اريد كود فيه الغاء الحفظ التلقائي وفيه تعبئة الخانات اجباري بالترتيب

[salah_2024]

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

اخوتي الاعزاء حياكم الله 

اريد كود فيه 

1- الغاء الحفظ التلقائي ويكون الحفظ برسالة هل تريد الحفظ    نعم    لا   

2- وكذلك اريد في نفس الكود اجبار تعبئة خانات معينة بالترتيب .

لو نفرض معي الجدول والنموذج الاتي:-

اسم النموذج  FR1

اسم الجدول TB1

اسم الحقول المطلوبة تعبئتها اجباري وكذلك اسمائها في النموذج   B1     B2     B3

[زياد الحسناوي]

وعليكم السلام كود الغاء الحفظ التلقائي في الاكسس 

في حدث قبل التحديث

Private Sub Form_BeforeUpdate(Cancel As Integer)
m = MsgBox("Do you want to Save", vbYesNo + vbInformation, "Save")
If m = vbYes Then
DoCmd.Save
DoCmd.GoToRecord , , acNext
MsgBox("Saving done ", vbOk + vbInformation, "Save")
ElseIf m = vbNo Then
Me.Undo
DoCmd.CancelEvent
End If

 

وهذه صورة اجبار تعبئة خانات معينة بالترتيب .

تم تعديل أكتوبر 14, 2023 بواسطه زياد الحسناوي

[زياد الحسناوي]

واذا ردت كود برمجي للاجبار على الادخال استخدم الآتي 

If Is Null (Me.x) Then
msgbox "يجب ادخال المعلومات", vbCritical, "حقل مطلوب"
Me.x.FetFocus
Else
Docmd.GotoRecord , , acNext
End If

طبعا X اسم الحقل 

[Foksh]

أخي الكريم أنا بالنسبة لي فأنا اعتمد طريقتين :-

الأولى عن طريق استعلام حذف للسجل الرئيسي اذا كان Null = فارغ فإنه النموذج يقوم بتشغيل هذا الإستعلام عند الاغلاق أو الزر المسؤول عن الإغلاق فقط .

والثانية هي كالآتي :-

• في النموذج الذي لا أرغب فيه أن يتم حفظ التلقائي عند الخروج من النموذج فإني أقوم بإنشاء مربع نص ( واسمه مثلاً Drty ) ؛ وأجعل قيمته الإفتراضية = 0
• في خصائص النموذج استعمل الحدث عند وجود شوائب ( On Dirty ) وأضع به هذا الكود البسيط ,

[Drty] = 0

• وفي حدث عند الإغلاق للنموذج أو الزر المسؤول عن الإغلاق أقوم بوضع هذا الكود الخفيف أيضاً ,

If Me.Drty = 0 Then
Me.Undo
DoCmd.CancelEvent
End If