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

[الطـاير]

السلام عليكم

لدي نموذج اريد من النموذج هذا عند الفتح لا يعدل ولا يضيف بيانات وبالفعل عملت الكود التالي ولكن الغريب انه عندما افتحه يعدل في البيانات :

Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
Me.AllowAdditions = False
End Sub

مش عارف ايه المشكلة حد يحلها لي جزاكم الله خير

[rudwan]

السلام عليكم

تستطيع أن تضع الكود التالي :

me.recordset.locked=true

[الطـاير]

جزاك الله خير أخي رضوان سوف اجربها ان شاء الله

[gs7581]

اخي يمكنك من خصائص النموذج في وضع التصميم في التبويب بيانات

انتجعل كلا من السماح بالاضافة و السماح بالتحرير يساوي لا وعند فتح النموذج فلن تتمكن من اضافة او تحرير البيانات

وشكرا

[الطـاير]

شكرا اخي الكريم

بس انا عاوز اعمل ذر من خلاله اقدر اعدل او أضيف بيانات بس بكلمة سر

يعني محتاج اعدل برده

وشكرا

[الطـاير]

اخي الفاضل رضوان

بعد ما عملت الكود بتاعك :

Me.Recordset.Locked = True

عطاني رسالة الخطأ وعلم عليه بالأصفر مش عارف ليه

فهل من حل ، وشكرا

[rudwan]

عفوا أخي الكريم لم أنتبه أن النموذج هو الرئيسي عندك

اذا كان النموذج هو الرئيسي عندك فالكود الذي وضعته أنت أولا هو الصحيح

Private Sub Form_Open(Cancel As Integer)
Me.AllowAdditions = False

Me.AllowEdits = False




End Sub

و عندما تريد التعديل تضع كود آخر في المكان الذي تريده و تعكس كلمة false ب true

و ما هي المشكله التي واجهتك ؟

يمكنك تحميل ملفك في القسم المؤفت لنراه

تم تعديل مارس 13, 2005 بواسطه rudwan

[الطـاير]

اخي رضوان شكرا لك وللأخوه

ساحاول مرة اخرى والا سارفق الملف ان شاء الله

[امير عاطف]

Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
Me.AllowAdditions = False
Me.Refresh
End Sub