[محمود اكرم]

السلام عليكم
اولا
تضع في القسم العام
dim xx as boolean
ثانيا
وعندما تريد التعديل او الاضافة تضع فيه هذا الكود
xx=true
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=FALSE
Next c


ثالثا
وفي صناديق النص انصحك ان تجعلهم مصفوفة ستقول لي كيف ذلك اقول لك
عليك اولا تضع اول صندوق نص تسميه بخاصية الـ name تضع الاسم txt
ثم تنسخ صندوق النص الى العدد المطلوب فتظهر عند اول عملية لصق رسالة تنبيه تنبهك بانها ستعمل على صنع مصفوفة لذا وافق بالضغط على yes
وبعد ترتيب صناديق النصوص وربطها بال data1 ما عليك سوى الضغط على اي صندوق نص ثم تنتقل الى القائمة المنسدلة التي على اليمين في شاشة الكود وتختار gotfocus
if xx=false then
msgbox "this operator is not allowed right now"
exit sub
end if
رابعا
وفي حالة حفظ التعديل او الاضافة يتم جعل جعل خاصية
xx=true
و يتم تهيئة صناديق النصوص للكتابة
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=TRUE
Next c
هناك ملاحظة قد لاتعمل READONLY
لذا استعمل

Locked