السلام عليكم ورحمة الله وبركاته
هذا الكود جزء من كود كتبته الاساذه/زهرة
جزاها الله عنا افضل جزاء
وهو يمنع عملية التعديل فى البيانات
وهو يكتب فى حدث Form_BeforeUpdate
ولأننى اريد تكراره فى اكثر من نموذج
فكيف اكتب هذا الكود فى صورة Public sub
واستدعائه عند حدث التعديل
الكود
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
Else
If Me.Dirty Then
Me.Undo
MsgBox " No allow Edits ", vbCritical, "Error"
End If
End If
End Sub
السلام عليكم ورحمة الله وبركاته
أخي الكريم إفتح موديول جديد وإكتب الكود التالي فيه
Public Sub EditNotAllowed(MyForm As Form)
If MyForm.NewRecord = False Then
If MyForm.Dirty Then
MyForm.Undo
MsgBox " No allow Edits ", vbCritical, "Error"
End If
End If
End Subثم في أي نموذج داخل برنامجك تريد أن تمنع التعديل على بياناته أكتب الكود التالي في حدث Form_BeforeUpdate
Call EditNotAllowed(Me)
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
جزاك الله كل خير
وجعله في ميزان حساناتك
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…