حماية السجل الاول

[ali1]

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

عندي نمودج معمول بالاكسس لإدخال البيانات واريد السجل الاول رقم (1) ان يكون محمي من التغيير او مخفي لا يظهر بتاتا ادا ممكن لانه ضروري ؟

فمن لدية الخبرة متكرما وله الشكر الجزيل

[محمد طاهر عرفه]

فى نموذج التعديل أو لااضافة ضع الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.PerID = 1 Then

MsgBox " This record can not be Edited !!!", vbCritical, " PLease Chose a contract"

Cancel = True

SendKeys "{ESC}"

Exit Sub

End If

[ali1]

اشكرك اخ محمد طاهر من كل قلبي والله يوفقك فى الدنيا والاخرة

اخي المحترم انا عندي كود في نفس الحدث وهو :

Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("  DO YOU LIKE SAVE CHANGES ", vbYesNo, _

  " FOR CONFIRMATION ") = vbNo Then

  Cancel = True

  SendKeys "{ESC}"

  Exit Sub

End If


End Sub

ولما لصقت الكود الي كتبته لي حصل خطأ وهو :

compile error:

method or data member not found

والدي اريده هو كيف اوفق بين الكودين يعنى ايش السطر الدي الغي من احد الكودين او اي طريقة تنصحني بها والله ولي التوفيق وشكرا لك .

[محمد طاهر عرفه]

الرسالة تعني أنه لا يوجد لديك مربع نص باسم

PerID

علي النموذج فغيره الي الاسم عندك

و هو مربع النص الذي به رقم حقل معرف السجل الذي تريد منع التعديل فى السجل الذي يحوي رقم ا فيه

و للجمع

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.PerID = 1 Then

MsgBox " This record can not be Edited !!!", vbCritical, " PLease Chose a contract"

Cancel = True

SendKeys "{ESC}"

Exit Sub

End If


If MsgBox("  DO YOU LIKE SAVE CHANGES ", vbYesNo, _

 " FOR CONFIRMATION ") = vbNo Then

 Cancel = True

 SendKeys "{ESC}"

 Exit Sub

End If


End Sub

[ali1]

شكرا للاخ محمد طاهر والله يكثر خيرك ويزيدك علم وخبرة على ما بدلته من معروف وجوابك نفعني كثير والف شكر