AymenShaban قام بنشر يونيو 19, 2017 مشاركة قام بنشر يونيو 19, 2017 السلام عليكم ورحمة الله وبركاته اخواني مرفق متال احتاج مساعده لو تكرمتم... 1) لدي قائمة ( Item_List ) ومشغل بها خاصية ( متعدد التحديد ) . 2) ولدي ايضا نوذج ( TT_Form ) مرتبط باستعلام باسم ( TT_Q ) . احتاج مساعده في ان يكون الاستعلام ( TT_Q ) مفلتر على حسب العناصر المختارة من القائمة ( Item_List ) ارجو ان يكون السؤال واضح ولكم مني كل الاحترام والتقدير Aymen.rar رابط هذا التعليق شارك More sharing options...
AymenShaban قام بنشر يونيو 21, 2017 الكاتب مشاركة قام بنشر يونيو 21, 2017 السلام عليكم ورحمة الله وبركاته هل السؤال غير واضح اخواني الكرام رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 21, 2017 مشاركة قام بنشر يونيو 21, 2017 حياك اخ ايمن احب الاسئلة من النوع ده هذا كود يفلتر النموذج وليس هناك حاجة لفلترة الاستعلام . هذا حسب فهمي 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 بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
AymenShaban قام بنشر يونيو 22, 2017 الكاتب مشاركة قام بنشر يونيو 22, 2017 حياك الله اخي رمهان وبارك الله فيك على اهتمامك جاري التجريب بعون الله رابط هذا التعليق شارك More sharing options...
AymenShaban قام بنشر يونيو 22, 2017 الكاتب مشاركة قام بنشر يونيو 22, 2017 السلام عليكم ورحمة الله وبركاته اخي الكريم رمهان عاجز عن شكرك وفعلا هذا هو المطلوب. ولكن حابب اتعبك معي شوي يجازيك الله كل خير اخي مرفق مثال بنفس الفكرة ولكن الفرق هو النموذج ( TT_Form ) مرتبط بالجدول ( sales_T ) و القائمة ( Item_List ) مرتبطة بالاستعلام الدي بدورة مرتبط بالجدول ( Menu_T ) هنا لم استطع تنفيد الامر الدي تفضلت به حضرتك فهل من طريقة أرجو ان لا اكون ازعجتك بكترت الاسئلة Report.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة رمهان قام بنشر يونيو 22, 2017 أفضل إجابة مشاركة قام بنشر يونيو 22, 2017 جرب 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
AymenShaban قام بنشر يونيو 22, 2017 الكاتب مشاركة قام بنشر يونيو 22, 2017 السلام عليكم اخي رمهان الله يبارك فيك ويرحم ولديك وجزاك الله كل خير واعتدر منك على ازعجك رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر أغسطس 11, 2017 مشاركة قام بنشر أغسطس 11, 2017 هل تم المطلوب اخ ايمن ؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.