كيفية التعديل بالبيانات مع اعتماد مبدئي ونهائي لها

up:confused:

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

Private Sub Form_Current()

If Me.NewRecord Then

Me.AllowEdits = True

Else

Me.AllowEdits = False

End If

End Sub

لوضع زر للتعديل:

ضع زر امر وفي حدث عند النقر ادخل هذا الكود:

Me.AllowEdits = True

لعمل زر لحفظ التعديل:

ضع زر امر وفي حدث عند النقر ايضاً ادخل هذا الكود:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "تم التعديل بنجاح", vbInformation + vbOKOnly, "الفريق العربي للبرمجة"

وها هو تطبيق ذلك بالمثال بعد التعديل البسيط

test.zip

الف شكر وجزاك الله خيرا أخي مبتدىء(f)