سؤوال بخصوص ضغط واصلاح قاعدة البيانات بزر امر مرتبط بوقت

[محمد التميمي]

السلام عليكم 

تعلمنا من اساتذتنا الكرام في هذا المنتدى العظيم (والعظمة لله) ان عملية الضغط والاصلاح لقاعدة البيانات باستمرار اي بمعنى كل فتح واغلاق يتلف البيانات

لاكن عندما يعمل مدخل البيانات بأدخال بيانات كثيرة وفتح واغلاق بكثرة وبدون ضغط واصلاح ايضاً يتلف البيانات . لان القاعدة التي يعمل عليها شخص ما غالباً ما تكون

مغلقة ولا يستطيع الذهاب الى صفحة الخيارات ومن ثمة اختيار ضغط واصلاح .

السؤوال : هل نستطيع انشاء زر امر يحتوي على كود ضغط واصلاخ ونضعه مثلاً في نموذج الواجهة لاكن بشرط 

وهذا الشرط يكون رز الامر هذا مخفي ويظهر لنا مثلاً كل اربعة ايام او اكثر او اقل وفي اي وقت نختاره يكون فاصل زمني بين عملية ضغط وآخرى . 

واعتذر للاطالة عليكم

شكراً

[محمد أبوعبدالله]

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

ممكن نختصر اكواد طويلة ونستخدم الخيارات الموجودة في الاكسيس

5 ساعات مضت, محمد التميمي said:

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

الفكرة هنا كيف نصل الى نافذة خيارات البرنامج

الكود التالي مكون من زرين امر احدهما للتأشير علامة صح امام ضغط واصلاح قاعدة البيانات عد الاغلاق

والزر الثاني يعكس العملية ويقوم بازالة علامة صح

 

5 ساعات مضت, محمد التميمي said:

وهذا الشرط يكون رز الامر هذا مخفي ويظهر لنا مثلاً كل اربعة ايام او اكثر او اقل وفي اي وقت نختاره يكون فاصل زمني بين عملية ضغط وآخرى . 

ايضا واختصارا لعملية كثيرة وانشاء جدول وكتابة اكود يمكن عرض InputBox وتحديد كلمة سر لتنفيذ العملية

Private Sub Command0_Click()

 If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then
    MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena"
 Else
    Application.SetOption "Auto compact", True
    MsgBox " سيتم ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena"
 End If

End Sub

Private Sub Command1_Click()
 
 If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "123" Then
    MsgBox " كلمة المرور غير صحيحة", vbInformation, "officena"
 Else
    Application.SetOption "Auto compact", False
    MsgBox " تم الغاء ضغط واصلاح قاعدة البيانات عند اغلاق البرنامج", vbInformation, "officena"
 End If

End Sub

db9.rar

تحياتي

[محمد التميمي]

5 ساعات مضت, محمد أبوعبدالله said:

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

ممكن نختصر اكواد طويلة ونستخدم الخيارات الموجودة في الاكسيس

الفكرة هنا كيف نصل الى نافذة خيارات البرنامج

الكود التالي مكون من زرين امر احدهما للتأشير علامة صح امام ضغط واصلاح قاعدة البيانات عد الاغلاق

والزر الثاني يعكس العملية ويقوم بازالة علامة صح

يسلالالالالالالالالالالالالالالالالام ايه الحلاه دي يراجل

السلام عليكم

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

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

بارك الله بجهودك القيمة استاذ محمد ودعائي لك ولاخواننا واساتذتنا بالموفقية والصلاح

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي