شرط على القائمة في النموذج

دائما توجد بيانات بالقائمة

عموما

ضع الكود التالى فى مربعالسرد - بعد التحديث

Private Sub مربع_تحرير_وسرد3_AfterUpdate()
Me.n = True
End Sub

ولكى يبدأ مربع السرد على فراغ و مربع الاختيار على false

Private Sub Form_Load()
Me.na = ""
Me.n = False
End Sub

بارك الله فيك اخي ابو لميس حل جيد ولكنني اريد الكود كما يلي باستخدام قاعدة if كما يلي ( اذا كانت القائمة تحتوي على قيمة يكون مربع الاختيار نعم وعندما تكون فراغ يعود المربع الى لا ... حاولت بهذا الكود واريد اعرف اين الخطأ

Private Sub menu_AfterUpdate()

If Me.na = "*" Then

Me.n = True

Else

Me.n = False

End If

End Sub

تفضل اخي الكريم

ملفك بعد التعديل

za-shk-UP.rar

بالتوفيق

بارك الله فيك اختي زهرة المنتدى حل والله جميل لكن المشكلة تكمن في ان القائمة قد يكون بها اكثر من عشرين اختيار وفي الحل المرفق يجب ادراج هذه الاختيارات في الشرط وما اريده هو اختصار هذا الكود بصيغة تشمل جميع الخيارات في القائمة مع العلم أن القائمة يتم الاضافة لها باستمرار حسب الحاجة ( يمكن ان يكون الشرط على وجود وعدم وجود بيانات في حقل القائمة وباختصار فهل يمكن تنفيذ ذلك)

مرة اخرى بارك الله فيك وفي جهودك المميزة

faife كتب:

بارك الله فيك اختي زهرة المنتدى حل والله جميل لكن المشكلة تكمن في ان القائمة قد يكون بها اكثر من عشرين اختيار وفي الحل المرفق يجب ادراج هذه الاختيارات في الشرط وما اريده هو اختصار هذا الكود بصيغة تشمل جميع الخيارات في القائمة مع العلم أن القائمة يتم الاضافة لها باستمرار حسب الحاجة ( يمكن ان يكون الشرط على وجود وعدم وجود بيانات في حقل القائمة وباختصار فهل يمكن تنفيذ ذلك)

مرة اخرى بارك الله فيك وفي جهودك المميزة

za-shk-END.rar

بالتوفيق

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