سؤال بخصوص القائمة المسندلة

[alzahrani07]

السلام عليكم ورحمة الله وبركاته

أخواني عندي مشكلة وإن شاء الله ألاقي الحل عندكم

مرفق لكم ملف أكسس فيه جدول فيه شويت بيانات وفورم صغير مختصر بس عشان نطبق الحل عليه

 

المطلوب : القوائم الثلاث المنسدلة تتعبئ من البيانات الظاهر في الفورم فقط ولا تعتمد على الجدول

إذا اخترت احد الخيارات من القائمة المنسدلة طبا راح تتغير السجلات وفي نفس الوقت تتغير البيانات في القوائم المنسدلة

يعني بالعربي اللي يظهر في القوائم المنسدلة هو نفس اللي في السجلات الظاهر في الوقت الحالي

 

أتوقع راح نستخدم Row Source في القوائم المنسدلة بس كيف ما عرفت

Database1.accdb

[أبو آدم]

وضح العلاقة و الضوابط بين مصدر سجلات النموذج ومصدر الصف للقائمة المنسدلة لتتضح الامور ؟\

ما علاقة تغيير مصدر السجلات للنموذج باختيار قيمة في القائمة المنسدلة ؟

وما علاقة القوائم ببعض

كل مرة اقرأ مشاركتك يخطر ببالي شيئ جديد ....

[Shivan Rekany]

في ١٤‏/١٠‏/٢٠١٨ at 21:53, alzahrani07 said:

المطلوب : القوائم الثلاث المنسدلة تتعبئ من البيانات الظاهر في الفورم فقط ولا تعتمد على الجدول

إذا اخترت احد الخيارات من القائمة المنسدلة طبا راح تتغير السجلات وفي نفس الوقت تتغير البيانات في القوائم المنسدلة

يعني بالعربي اللي يظهر في القوائم المنسدلة هو نفس اللي في السجلات الظاهر في الوقت الحالي

 

أتوقع راح نستخدم Row Source في القوائم المنسدلة بس كيف ما عرفت

استأذن من استاذ @أبو آدم

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

Option Compare Database

Private Sub Combo0_AfterUpdate()
    Me.Combo2 = Null
    Me.Combo4 = Null
    Me.Combo2.Requery
    Me.Combo4.Requery
    If Len(Me.Combo0 & "") = 0 Then
        Me.Form.RecordSource = "Table1"
    ElseIf Len(Me.Combo0 & "") > 0 Then
        Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));"
    End If
    Me.Requery
End Sub

Private Sub Combo2_AfterUpdate()
    If Len(Me.Combo2 & "") = 0 Then
        Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));"
    ElseIf Len(Me.Combo2 & "") > 0 Then
        Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*""));"
    End If
    Me.Combo4 = Null
    Me.Combo4.Requery
    Me.Requery
End Sub

Private Sub Combo4_AfterUpdate()
    If Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 = 0 Then
        Me.Form.RecordSource = "Table1"
    ElseIf Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 > 0 Then
        Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.Day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));"
    ElseIf Len(Me.Combo0 & "") > 0 And Me.Combo4 > 0 Then
        Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*"") AND ((Table1.day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));"
    End If
End Sub

واليك القاعدة بعد اضافة الاكواد بحث بواسطة ثلاث كومبوبوكس.accdb
@alzahrani07 تم اصلاح

تم تعديل أكتوبر 18, 2018 بواسطه Shivan Rekany

[alzahrani07]

طيب أشرح المطلوب بطريقة ثانية

بعد فتح الفورم تظهر جميع البيانات الموجودة في الجدول ، القائمة المنسدلة الأولى (WC) بتحتوي على MM و IC

مثلا اخترت IC في القائمة المنسدلة الأولى. المطلوب حاليا ان القائمة المنسدلة الثانية (OMC) تظهر OMC1 فقط والقائمة المنسدلة الثالثة تظهر Mon فقط

أقصد القوائم المنسدلة تتظهر محتوى الفورم فقط وليس الجدول بالكامل.

 

 

أخوي

Shivan Rekany

للاسف المرفق أو الرابط فيه مشكلة