اذهب الي المحتوي
أوفيسنا

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


alzahrani07

الردود الموصى بها

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

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

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

 

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

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

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

 

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

Database1.accdb

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

في ١٤‏/١٠‏/٢٠١٨ 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 تم اصلاح

تم تعديل بواسطه Shivan Rekany
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

 

أخوي

Shivan Rekany

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information