غلق الكتابة فى حقل بنموذج بناء على حقل أخر بنفس النموذج

[figo82eg]

ارجو المساعدة فى المثال الأتى حيث أريد غلق حقل فى نموذج بناء على بيانات يتم كتابتها فى حقل أخر بنفس النموذج ومرفق مثال للتوضيح

New Microsoft Office Access Application.zip

[Matin_Murad]

اتفضل 

 

New Microsoft Office Access Application.mdb

تم تعديل يونيو 8, 2022 بواسطه Matin_Murad
توضيح

[abouelhassan]

Private Sub نوع_الخطاب_AfterUpdate()
If Me.نوع_الخطاب = "داخلى" Then
Me.الجهة_الخارجية_الوارد_منها.Enabled = False
Me.الجهة_الداخلية_الوارد_منها.Enabled = True

End If

If Me.نوع_الخطاب = "خارجى" Then
Me.الجهة_الداخلية_الوارد_منها.Enabled = False
Me.الجهة_الخارجية_الوارد_منها.Enabled = True

End If

End Sub

 

[figo82eg]

شكرا اخى الكريم على اهتمامك ومساعدتك ولكن عند علق النموذج وفتحه مرة أخرى يتم فتح الحقول التى تم قفلها من قبل فهل من حل

[Matin_Murad]

New Microsoft Office Access Application.mdb

[متقاعد]

فكرة اخرى

مشاركة مع الاساتذة @Matin_Murad و @abouelhassan

الفكرة طالما راح نستخدم الكود في اكثر من حدث

في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل النوع فاجد انه لا داعي لتكرار كتابة الكود

اولا نعمل اجراء في النموذج اسميته k او اي اسم

Sub k()
Select Case Me.نوع_الخطاب
Case Is = "داخلي"
Me.الجهة_الخارجية_الوارد_منها.Enabled = False
Me.الجهة_الداخلية_الوارد_منها.Enabled = True
Case Is = "خارجي"
Me.الجهة_الداخلية_الوارد_منها.Enabled = False
Me.الجهة_الخارجية_الوارد_منها.Enabled = True
End Select
End Sub

ثم في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل نوع الخطاب

call k

تحياتي

[متقاعد]

استكمال للرد السابق

الاساتذة الفضلاء استخدموا دالة if

وبجهد كبير وعمل رائع يستحق كل التقدير فقط وددت عدم تكرار الكود في حدثين

والامر الاخر تكرار استخدام الدالة بينما يمكن استخدام

ElseIf

بدلا من اعادة الجملة الشريطية للاحتمال الثاني

وفي حالتي استخدمت

Select Case

الان ماذا لو اردنا تنفيذ المطلوب بدون اكواد

ممكن ذلك عن طريق التنسيق الشرطي نختار الحقل المطلوب اغلاقة ثم تنسيق شرطي ثم قاعدة جديدة ثم تعبير ونكتب

[نوع الخطاب]="داخلي"

ومثلة للحقل الاخر مع اختيار خارجي

تحياتي

[figo82eg]

بارك الله فيكم أساتذتى الكرام وجعله الله فى ميزان حسناتكم هو المطلوب زيادة