كيف امكن واعطل بعض حقول النموذج عبر vba؟

[أبو ليمونه]

السلام عليكم

 

شباب صممت قاعدة بيانات وقسمتها الى جداول والى نماذج

 

ملف النماذج يحتوي على نموذج واحد اسمه frm راح اسوي منه اربع نسخ لاربع مستخدمين

 

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

 

بحكم ان الحقول كثيرة لدي فلا اريد ان اذهب الى خصائص كل حقل وتمكينه او تعطيله في كل نسخة من النسخ الاربع، لذا قمت بتصميم نموذج اسمه frmControl ووظيفته تمكين وتعطيل كل حقول النماذج بشكل اسرع... لكن احتاج الى اكواد vba ليعمل ...

 

ولدي حقلين هما DateOfBrith و Age اريد تمكينهم أوتعطيلهم بناء على القيمة الموجودة بالحقل Contry ...

 

ارفقت لكم مثال مبسط لما اريد عمله ...

 

اتمنى ان اجد منكم المساعدة ...

 

ودمتم،،،

Prob.zip

[علي المصري]

ضع الكود التالي في حدث بعد التحديث للقائمة المنسدلة contry في النموذج frm

Private Sub Contry_AfterUpdate()
If (Me.Contry.Value = "Jordanians" Or Me.Contry.Value = "Kazakhs" Or _
    Me.Contry.Value = "Kenyans" Or Me.Contry.Value = "Koreans") Then
        Me.DateOfBrith.Enabled = True
        Me.Age.Enabled = True
Else
        Me.DateOfBrith.Enabled = False
        Me.Age.Enabled = False
End If
End Sub

[أبو ليمونه]

اخي علي 

 

شكرا لك على الكود وعلى مشاركتك ...

 

انا خبرتي بالاكواد اشوي ضعيفة ...

 

ولكن انا اريد تمكين وتعطيل الحقول عبر وضع علامة صح من الفورم frmControl

 

حاولت تعديله لكن لاحظت ان الفورم frmControl لا يحفظ الحقول التي وضعت عليها صح بعد اغلاقه 

 

فلو وضعت هذا الكود في النموذج frmControl فانه لا يعمل 

Private Sub Form_Current()
If (Me.CheckJordanians.Value = True Or Me.CheckKazakhs.Value = True Or _
    Me.CheckKenyans.Value = True Or Me.CheckKoreans.Value = True) Then
        [Forms]![frm]![DateOfBrith].Enabled = True
        [Forms]![frm]![Age].Enabled = True
Else
        [Forms]![frm]![DateOfBrith].Enabled = False
        [Forms]![frm]![Age].Enabled = False
End If
End Sub

ايضا ما هو الكود الذي اضعه في النموذج frm في حدث عند الفتح لكي يشيك على الحقول التي فيها صح في النموذج frmControl

 

 

 

شكرا لك

تم تعديل ديسمبر 27, 2014 بواسطه أبو ليمونه

[أبو ليمونه]

اخواني انا بامس الحاجة لوضع لوحة تحكم للفورم

 

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

 

آمل منكم اعطائي مثال ... وانا سوف اقوم بالباقي

 

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

 

وشكرا لكم