اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه nogom
قام بنشر
  في 7‏/6‏/2018 at 10:39, nogom said:

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

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

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

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

Expand  

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

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

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

تحياتي

قام بنشر
  في 7‏/6‏/2018 at 13:39, nogom said:

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

Expand  

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

قام بنشر

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

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

 

  • Thanks 1
قام بنشر

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

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

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

قام بنشر

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

وهذا

لفتح الشفت

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

 

  • Thanks 1
قام بنشر
  في 7‏/6‏/2018 at 14:07, ابو ياسين المشولي 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

Expand  

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

قام بنشر
  في 7‏/6‏/2018 at 14:13, ابو ياسين المشولي said:

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

Shift-On.mdbFetching info...

Expand  

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

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

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

 

قام بنشر

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

 

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

قام بنشر
  في 7‏/6‏/2018 at 10:39, nogom said:

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

Expand  

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

 

  في 7‏/6‏/2018 at 10:39, nogom said:

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

Expand  

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

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

  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information