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

[بلال اليامين]

السلام عليكم

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

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

A_dbu - Add-Delet.rar

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub مربع_تحرير_وسرد5_Click()
           Me.Child14.Form.FilterOn = False
           myCriteria = ""
        If Me.مربع_تحرير_وسرد5 = "كل المستويات" Then
            Me.Child14.Form.FilterOn = False
        Else
            myCriteria = myCriteria & "("
            myCriteria = myCriteria & "[القسم]= '" & Me.مربع_تحرير_وسرد5 & "'"
            myCriteria = myCriteria & ")"
        
            Debug.Print myCriteria
            Me.Child14.Form.Filter = myCriteria
            Me.Child14.Form.FilterOn = True
        End If

End Sub

Private Sub نص3_Click()
           Me.Child14.Form.FilterOn = False
           myCriteria = ""
        If Me.نص3 = "كل الافواج" Then
            Me.Child14.Form.FilterOn = False
        Else
            myCriteria = myCriteria & "("
            myCriteria = myCriteria & "[رقم الفوج]= '" & Me.نص3 & "'"
            myCriteria = myCriteria & ")"
        
            Debug.Print myCriteria
            Me.Child14.Form.Filter = myCriteria
            Me.Child14.Form.FilterOn = True
        End If

End Sub

A_dbu - Add-Delet.rar

تحياتي

 

[بلال اليامين]

السلام عليكم

اخي محمد عند اختيار  رقم الفوج يتتغير رقم الفوج والمستوى 

مثل عند اختيار  القسم الخامسة ثم نختار رقم الفوج  يظهر لي الاسماء التابعة له1 او 2 أو 3 أو 4 او 5  وهذا حسب الاختيار

اخي ةبارك الله فيك

 

[محمد أبوعبدالله]

2 ساعات مضت, بلال اليامين said:

مثل عند اختيار  القسم الخامسة ثم نختار رقم الفوج  يظهر لي الاسماء التابعة له1 او 2 أو 3 أو 4 او 5  وهذا حسب الاختيار

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

تفضل اخي الكريم

A_dbu - Add-Delet.rar

تحياتي

[بلال اليامين]

بارك الله فيك اخي محمد