المساعدة في تكوين إستعلام

[AymenShaban]

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

اخواني مرفق متال احتاج مساعده لو تكرمتم...

 

1) لدي قائمة ( Item_List ) ومشغل بها خاصية ( متعدد التحديد ) .

2) ولدي ايضا نوذج ( TT_Form ) مرتبط باستعلام باسم ( TT_Q ) .

 

احتاج مساعده في ان يكون الاستعلام ( TT_Q ) مفلتر على حسب العناصر المختارة من القائمة  ( Item_List )

 

ارجو ان يكون السؤال واضح 

ولكم مني كل الاحترام والتقدير

Aymen.rar

[AymenShaban]

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

 

هل السؤال غير واضح اخواني الكرام

[رمهان]

حياك اخ ايمن

احب الاسئلة  من النوع ده

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

Private Sub SearchCmd_Click()
For Each itm In Item_List.ItemsSelected
xt = xt & Item_List.Column(2, itm) & ","
Next
Me.tt.Form.Filter = "[no]in(" & xt & ")"
Me.tt.Form.FilterOn = True
End Sub

بالتوفيق

[AymenShaban]

حياك الله اخي رمهان وبارك الله فيك على اهتمامك 

 

 

جاري التجريب بعون الله 

[AymenShaban]

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

اخي الكريم رمهان عاجز عن شكرك وفعلا هذا هو المطلوب.

ولكن حابب اتعبك معي شوي يجازيك الله كل خير

اخي مرفق مثال بنفس الفكرة ولكن الفرق هو

النموذج ( TT_Form ) مرتبط بالجدول ( sales_T ) 

و القائمة ( Item_List  ) مرتبطة بالاستعلام الدي بدورة مرتبط بالجدول ( Menu_T )

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

أرجو ان لا اكون ازعجتك بكترت الاسئلة

 

Report.rar

[رمهان]

جرب

Private Sub SearchCmd_Click()
For Each itm In Item_List.ItemsSelected
xt = xt & Item_List.ItemData(itm) & "','"
Next
xt = "'" & Left(xt, Len(xt) - 2)
Me.tt.Form.Filter = "[Item]in(" & xt & ")"
Me.tt.Form.FilterOn = True
End Sub

بالتوفيق

[AymenShaban]

السلام عليكم

اخي رمهان الله يبارك فيك ويرحم ولديك وجزاك الله كل خير

واعتدر منك على ازعجك

[رمهان]

هل تم المطلوب اخ ايمن ؟