كيفية حماية الحقول من التعديل

كود يقوم بتغيير كل الحقول الموجودة داخل الفورم إلى ReadOnly = False or True

Sub SetReadOnly(Byval V As Bolean)
Dim T As Object
For Each T in Me.Controls
If TypeOf (T) Is Textbox Then
T.ReadOnly = V
End IF
Next
End Sub

وبتمرير True أو False تحصل على ما تريد بإذن الله

SetReadOnly(False)

بارك الله فيك على هذا التجاوب,,,, ألف شكر

طريقة ايضا سهلة

ضع كل الحقول داخل groupbox او panel

ومن ثم اعمل له enable = false

فكل الحقول داخله ستاخذ نفس الخاصية

الله يعطيكم العافية على تجاوبكم

طبقت كلا الطريقتين الأولى أطول كود و لكن كمظهر للحقول أفضل

الطريقة الثانية بسيطة و لكن تظهر بيانات الحقول باهته

مع العلم أنه في لغة الدلفي تغير خاصية AutoEdit في الداتاست الى False تمنع التعديل حتى تعطي أمر بالتعديل و لا تتأثر مظهر الحقول

أنا أعتقد أنه يجب أن توجد مثل تلك الخاصية في الفيجول بيزك خاصة في النسخة 2005

على كل حال اشكركم على تلك الجهود