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

الطـاير · مارس 12, 2005

السلام عليكم

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

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

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

**rudwan** · مارس 12, 2005

السلام عليكم

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

me.recordset.locked=true

الطـاير · مارس 12, 2005

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

gs7581 · مارس 12, 2005

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

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

وشكرا :rol:

الطـاير · مارس 13, 2005

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

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

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

وشكرا

الطـاير · مارس 13, 2005

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

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

Me.Recordset.Locked = True

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

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

**rudwan** · مارس 13, 2005

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

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

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

Me.AllowEdits = False




End Sub

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

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

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

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

الطـاير · مارس 13, 2005

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

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

**امير عاطف** · أبريل 28, 2005

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

الردود الموصى بها