كود إستثناء مربع تحرير من منع التعديل للنموذج

[أبا عمر]

السلام عليكم ورحمة الله وبركاته 
كيف حالكم إخواني الكرام أسأل_ الله_في عليائه أن يرضى عنكم أجمعين
هذا الكود

 

Form.AllowEdits = False
 

 

 

خاص بمنع التعديل على النموذج فهل من إضافه عليه لإستثناء عنصر تحكم مثلا مربع تحرير وسرد حيث الكود يقوم بمنع التعديل على كامل النموذج .
جزاكم _ الله _ خيراً

تم تعديل مارس 1, 2013 بواسطه أبو آدم
لإحتواء الكود

[Bluemind]

السلام عليكم

ارفق مثالك ليتم التعديل عليه

[أبو آدم]

أخي أبا عمر

نرّد على عموم السؤال بعموم الرّد

 

النموذج به مجموعة من العناصر ، نريد أن نمنع التعديل فيها ، بإستثاء واحد منها ....!!

 

نذهب لمربع التحرير و السرد المعني (بعدم الاغلاق) ، نذهب لخصائص المربع ..... وفي آخرها Tag  نضع عبارة DoNotLock

ننشيئ وحدة نمطية جديدة في التطبيق ، ننسخ اليها 

 

 

 

Function LockUnlock(frm As Form, blnLock As Boolean)
Dim ctl As Control


For Each ctl In frm.Controls
     Select Case ctl.ControlType
     Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
           If ctl.Tag <> "DoNotLock" Then
              ctl.Locked = blnLock
           Else
              ctl.Locked = False
           End If
      End Select
Next
End Function

 

نذهب لمحرر الفيجوال للنموذج وننسخ اليه الكود

 

 

Private Sub Form_Current()

If Not Me.NewRecord Then
   LockUnlock Me, True
End If


End Sub
 

 

نعيد تشغيل النموذج ونجرب النتائج

 

وندعوا لأبي آدم بدعوة طيبة بظهر الغيب

 

.......

 

والله من وراء القصد وهو حسبي

 

........

[أبا عمر]

1- أستاذي الفاضل Bluemind جزاك_ ربي _خيرا .
2- أستاذي الفاضل أبو آدم جزاك_ ربي_ خيراً  .
3- وبخصوص طلبك وندعوا لأبي آدم بدعوة طيبة بظهر الغيب لك ما طلبت وزيادة _والله _ المستعان
4- سأحاول تطبيق ما تفضلت به وأوافيك بالنتيجة .

تم تعديل مارس 1, 2013 بواسطه أبا عمر

[أبو آدم]

تم تعديل عنوان الموضوع لتوضيح الدلالة

 

حياك الله أبا عمر

 

.............