ما هو الكود المناسب لتفعيل مربع نص بناء على خانة أختيار

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

لاحظ الملف المرفق تم عمله لأحد الأخوان قبل مدة لاحظي الأكواد بالوحدة النمطية للنموذج آمل أن أكون أفدتك ....

XC.rar

[Private Sub C1_BeforeUpdate(Cancel As Integer)
If Me.C1.Value = True Then
Me.T1.Enabled = True
Else
Me.T1.Enabled = False
End If
End Sub

مع الاعتذار لاستاذنا العزيز أبو رهف ( فليست هذه الاجابة تعقيبا ولكن تشابكت الخطوط )

ابو رهف

sabhha

أشكركم على مساعدتي ولكن ظهرت لدي مشكله وقد جربت الطريقتين ولكن لم تنفع حيث أني كنت قد وضعت هذا الكود في حدث عند التنشيط لعدم التعديل

Private Sub Form_Activate()
Me.AllowEdits = False
End Sub

وبعدها لم أستطع أن أضع علامة الصح على مربع الأختيار

فهل يوجد حل أم لا بد من حذف الكود؟ بالرغم من أني أحتاجه

db2.rar

اليك الحل فى المرفقات ولكن الكود

Private Sub Form_Activate()

Me.AllowEdits = False

End Sub

يمنع التعديل فى النموذج سواء بالضغط او غيرة

ارجو ان اكون وفقت فى الحل

aa.rar

السلام عليكم

نعم هناك حل وهو بعد حذف الكود

اضغطي shift ثم انقري على كل حقل في النموذج لا تريدين أن يتم التعديل عليه ثم من خصائص وفي تبويب : بيانات عدلي القيمة : مؤمن إلى / نعم

أشكركم جميعاً من أعماق قلبي

الأخ bibo1dd بالفعل هذا ما أريده ولكن كان مقصدي هل بالأمكان أضافه كود عدم التعديل على النموذج.

الأخت sabhha صحيح أن هذه الطريقة تنفع لو كانت البيانات ثابته لكن لو أردت أضافه سجل جديد فأنه لا يقبل .

على العموم لكم التحية والتقدير قمت بألغاء كود عدم التعديل وهو أقرب الحلول .