طريقة عمل نسخة اختياطية

[nogom]

السلام عليكم ورحمة الله وبركاته

انا سويت برنامج ارشيف وعندي سؤاليين

1- هل يوجد طريقة لإغلاق مفتاح الشيفت ليكي لا يدخل على التصميم

2- اريد انا اسوي زر النسخة الاحتياطية وطريفية استرداد النسخة الاحتياطية

تم تعديل يونيو 7, 2018 بواسطه nogom

[النجاشي]

2 ساعات مضت, nogom said:

السلام عليكم ورحمة الله وبركاته

انا سويت برنامج ارشيف وعندي سؤاليين

1- هل يوجد طريقة لإغلاق مفتاح الشيفت ليكي لا يدخل على التصميم

2- اريد انا اسوي زر النسخة الاحتياطية وطريفية استرداد النسخة الاحتياطية

السوال الأول نعم يوجد 

والثاني المنتدي فيه الكثير من مواضيع النسخ الاحتياطي

بإذن الله في الليل راح انفذ لك طلبك حاليا على الموبيل

تحياتي

[nogom]

اذا حابب ارسلك الملف ما عندي اي مشكلة

[النجاشي]

8 دقائق مضت, nogom said:

اذا حابب ارسلك الملف ما عندي اي مشكلة

براحتك انت إذا بدك نعطيك مثال أو أنك طرحت قاعدتك هون لكي يتم التعديل عليها

[ابو ياسين المشولي]

هذا كود ايقاف الشفت

Dim msg, style, title, result
msg = "سيتم توقيف الشيفت"
style = vbYesNo
title = " تحذير - إيقاف مفتاح"
result = MsgBox(msg, style, title)
If result = vbYes Then
ChangeProperty "AllowBypassKey", DB_Boolean, False
 MsgBox "تم إيقاف الشيفت", vbInformation, "إتمام العملية"
ElseIf result = vbNo Then
DoCmd.CancelEvent
 MsgBox "تم الترجع عن ايقاف الشيفت", vbInformation, "إلغاء العملية"
End If

 

[nogom]

وين رح احط هذا المود

انا عامل اول ما تفتح البرنامج يطلعلط فورم الدخول

اسم مستخدم وكلمة مرور

[ابو ياسين المشولي]

حطي في اي امر كي يفعل الشفت

وهذا

لفتح الشفت

Dim msg, style, title, result
msg = "سيتم تفعيل الشيفت"
style = vbYesNo
title = " تحذير - إيقاف مفتاح"
result = MsgBox(msg, style, title)
If result = vbYes Then
ChangeProperty "AllowBypassKey", DB_Boolean, True
 MsgBox "تم تفعيل الشيفت ", vbInformation, "إتمام العملية"
ElseIf result = vbNo Then
DoCmd.CancelEvent
 MsgBox "تم الترجع عن تفعيل الشيفت", vbInformation, "إلغاء العملية"
End If

 

[nogom]

الان, ابو ياسين المشولي said:

Dim msg, style, title, result msg = "سيتم تفعيل الشيفت" style = vbYesNo title = " تحذير - إيقاف مفتاح" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_Boolean, True MsgBox "تم تفعيل الشيفت ", vbInformation, "إتمام العملية" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "تم الترجع عن تفعيل الشيفت", vbInformation, "إلغاء العملية" End If

فين احط هذه الاكواد

[ابو ياسين المشولي]

هذا مثال للاستاذة زهرة

Shift-On.mdb

[nogom]

2 دقائق مضت, ابو ياسين المشولي said:

هذا مثال للاستاذة زهرة

Shift-On.mdb

الله يعطيك العافية يا غالي

يعنيي هذا اانا اختار الملف ومن بعدها يقفل الملف صح

انا فتحت الملف بس لمااضغط على خيار اختيار الملف لا يفتح  اي شي عشان اختار الملف

 

[ابو ياسين المشولي]

تختار القاعده

بشرط بصيغه mdb

[nogom]

انا حولت الملف الى mdb ولكن الملف الخاص بالشفت لايعمل عند الضغط على اختيار الملف

 

بعدين لقيت كود النسخ الاختياطي مع زر النسخ الاحتياطي

[nogom]

فينكم يا جماعة الخبرة بدي حل للنسخة الاحتياطية

 

[Shivan Rekany]

في ٧‏/٦‏/٢٠١٨ at 13:39, nogom said:

1- هل يوجد طريقة لإغلاق مفتاح الشيفت ليكي لا يدخل على التصميم

اتفضل اليك هذه المشاركة لاستاذنا ابوخليل فيه قاعدة على ذلك

 

في ٧‏/٦‏/٢٠١٨ at 13:39, nogom said:

2- اريد انا اسوي زر النسخة الاحتياطية وطريفية استرداد النسخة الاحتياطية

وايضا اليك هذا المثال لاستاذنا ابو خليل على نسخة الاحتياطية واستراده

اذا تبحث في المنتدى قبل ان تسأل سؤال راح تجد ما تريد ان شاء الله
تحياتي لك ولاستاذنا ابوخليل

[nogom]

الله يعطيك الافية يارب ما قصرت رح اشوفه 

شكرا لك