تغيير مصدر صف مربع تحرير وسرد حسب زر امر

وعليكم السلام :)

يعني تريد عمل فلتر على A او B او C حسب ضغطة الزر؟

جعفر

وكيف نعرف الخدمات نوع A ؟

عزيزي جعفر تعرف ذلك من الجدول مصدر مربع التحرير والسرد

ItemsTbl

تفضل :)

1. نعمل حقل في النموذج الرئيسي ، انا سميته Filter_By ، وطبعا تقدر تخفيه بعدين ،

2. لمربع السرد ItemNo ، في RecordSource ، نضيف الفلتر وهو عبارة عن قيمة Filter_By في النموذج الفرعي ،

3. وهذا الكود يعمل الباقي :)

Private Sub cmd_A_Click()

    Call Filtering("A")
End Sub

Private Sub cmd_B_Click()

    Call Filtering("B")
End Sub

Private Sub cmd_C_Click()

    Call Filtering("C")
End Sub

Function Filtering(F)

    Me.Filter_By = F
    Me.SubFrm!ItemNo.Requery
    
End Function

جعفر

264.MedicalAppliances.accdb.zip

مشكور اخي جعفر ووفقك الله

انظر المرفق هذا ما اريده ، اضافة الى اريد زرا يظهر كل العناصر فهل ممكنا ؟

MedicalAppliancesNew.rar

تفضل :)

هذا هو الكود الآن ، ولاحظ زر الكل ALL في الكود:

Private Sub cmd_A_Click()

    Call Filtering("A")
    
End Sub

Private Sub cmd_ALL_Click()
    
    Call Filtering("ALL")
  
End Sub

Private Sub cmd_B_Click()

    Call Filtering("B")

End Sub

Private Sub cmd_C_Click()

    Call Filtering("C")
    
End Sub

Function Filtering(F)

    Me.Filter_By = F
    Me.SubFrm!ItemNo.Requery
    Me.SubFrm!TypeItem.Requery
    Me.SubFrm.Requery
End Function

وهنا الشيئ المهم ، وذلك لتصفية حقل السرد ، هكذا يكون الاستعلام ، فعندما نريد اختيار الكل ، نطلب من الكود استخدام اسم نفس الحقل (لاحظ اسم الحقل الذي تحته خط احمر ، واسم الحقل بالسهم):

جعفر

264.1.MedicalAppliancesNew.accdb.zip

مشكور اخي جعفر

هذا هو المطلوب بعينه

بارك الله فيك

:)