اختيارين من قائمة يتم فلترة اختيارهم فى قائمة اخرى

[ahmad soliman]

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

[Foksh]

ممكن توضح مطلبك بملف مرفق ، وعلى حد علمي انه يمكن ذلك.

[kkhalifa1960]

حسب مافهمت من طالبك تفضل . 

• 1- علم بالماوس على القاهرة بالناحية اليسار بمفردها ثم دوس على ذر السهم لليمين بيظهر أحياء القاهره باليمين .
• 2- علم بالماوس على أي حي بالقاهرة بالناحية اليمين ثم دوس على ذر السهم لليسار بيرجع القاهره باليسار .
• 3- علم بالماوس على القاهرة ثم الاسكندرية بالناحية اليسار  ثم دوس على ذر السهم لليمين بيظهر أحياء القاهره والاسكندرية باليمين .
• 4- علم بالماوس على أي حي بالقاهرة بالناحية اليمين ثم دوس على ذر السهم لليسار بيرجع القاهره باليسار . 
• علم بالماوس على أي حي بالاسكندرية بالناحية اليمين ثم دوس على ذر السهم لليسار بيرجع الاسكندرية باليسار . 

  ووافني بالرد .

CopyList (1).accdb

تم تعديل أكتوبر 6, 2023 بواسطه kkhalifa1960

[شايب]

مشاركة مع الاستاذ خليفة

اعتقد ان الافضل ان يكون لدينا جدول للمدن وجدول اخر للاحياء

ونعمل مربع قائمة متعددة الاختيار لاسماء المدن وقائمة منسدلة لاسماء الاحياء يتم تحديد مصدرها من خلال كود استعلام بمعيار in

اخونا الشايب

 

 

[kkhalifa1960]

أخونا @شايب ارشح عملك أفضل إجابة وياليت ترفقه  ليكون هناك إثراء للموضوع . 

[Foksh]

27 دقائق مضت, kkhalifa1960 said:

ارشح عملك أفضل إجابة

أضم صوتي لصوتك استاذ @kkhalifa1960 ،

45 دقائق مضت, شايب said:

اعتقد ان الافضل ان يكون لدينا جدول للمدن وجدول اخر للاحياء

والى الأخ @شايب المقترح المنطقي 

[kkhalifa1960]

المرفق به المقترحان .

CopyList (2).accdb

[شايب]

في 6‏/10‏/2023 at 22:26, kkhalifa1960 said:

أخونا @شايب ارشح عملك أفضل إجابة وياليت ترفقه  ليكون هناك إثراء للموضوع . 

الاخ العزيز شايب لا يهتم لامر افضل اجابة

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

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

ثم عمل كود بسيط للمرور على ماتم اختياره من مربع القائمة واستخدامه كمعيار استعلام كمصدر للقائمة المنسدلة

On Error GoTo a
Dim k As String
Dim i As Integer
For i = 0 To c_2.ListCount - 1
If c_2.Selected(i) = True Then
k = k & c_2.Column(0, i) & ","
End If
Next i
Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _
             "WHERE tbl_Towns_Blocks.id IN (" & Left(k, Len(k) - 1) & ")"
DoCmd.GoToControl "c_3"
Me.c_3.Dropdown
Exit Sub
a: Me.c_3.RowSource = ""

وهنا استخدمنا امر معالجة الخطأ لافراغ القائمة المنسدلة وهو استخدام قد لا يروق لبعض الخبراء

وبالامكان استخدام For Each بدلا من for next ليكون الامر

On Error GoTo a
Dim s As Variant
Dim t As String
t = ""
For Each s In Me.c_2.ItemsSelected
t = t & "" & Me.c_2.ItemData(s) & ", "
Next
t = Left(t, Len(t) - 2)
Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _
             "WHERE tbl_Towns_Blocks.id IN (" & t & ")"
DoCmd.GoToControl "c_3"
Me.c_3.Dropdown
Exit Sub
a: Me.c_3.RowSource = ""

في جميع الاحوال هي مجرد مشاركة من غير متخصص ويترك الامر للاساتذة والخبراء

اخونا الشايب

 

CopyList (1)(1).accdb

[ahmad soliman]

شكرا لحضراتكم 🌺

[ahmad soliman]

الملف مش عايز يفتح وبيجيب رسالة the active control on this file is blocked review your trust center 

[ahmad soliman]

بعتذر على عدم التعليق سابقا لانى بدخل على انت من كمبيوتر الشغل

[ahmad soliman]

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