أخوتي الأعزاء بعد الرد الكريم من الأخت زهرا حصلت على كود مهم و كلنا ممكن نستفاد منه (مرفق)
و لقد فهمت الكود جيداً ، ولكن لايمكنني تعميمه على جميع النماذج فدائماً يظهر خطأ في التطبيق .
فهل من طريقة عامة(خوارزمية) خطوات لتطبيق الكود من نموذج لآخر أرجو شرح الخطوات بالتفصيل بشكل يناسب مبتدئ (درويش) مثلي
ولكم الشكر
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
تم استحداث دالة عامة بإسم في الوحدة النمطية
مهمة هذه الدالة هي عدم الحفظ او الحفظ بناء على رغبتك في حالة التغيير في النموذج او الذهاب الى سجل جديد حيث تصلح ان تضعها في اي مكان وتقوم بإستدعاءها من اي نموذج والدالة هي :
Public Function zaCheckUpdates(frm As Form) As Integer
Dim ctl As Control
If frm.Dirty Then
If MsgBox(" لقد تم إجراء تغييرات هل تريد حفظ التغييرات ", vbYesNo, " تأكيد الحفظ") = vbNo Then
DoCmd.RunCommand acCmdUndo
Cancel = True
SendKeys "{ESC}"
Exit Function
End If
End If
End Functionويتم استدعاؤها بهذه الطريقة في اي نموذج فقط كل ما عليك وضع هذا الكود في النموذج
Private Sub Form_BeforeUpdate(Cancel As Integer) Call zaCheckUpdates(Me) End Sub
وهذا المثال بعد التعديل
بسم الله الرحمن الرحيم
بارك الله فيك اختنا زهرة
مشكورة أختي زهرة
[تمت الإجابة]
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
