ارجو تصحيح الكود

انصحك بتغيير التصميم بحيث يعرض اكثر من طلبية  

راجع المثال بعد التعديل

http://arabsh.com/files/0c31404f63fb/bycmpnybymnth-accdb.html

تحياتي

تفضل :)

ملاحظة الاخ a1d كانت صحيحة ، فغيرت نموذجك الى نموذج مستمر ، ثم وضعت النموذج الفرعي في ذيل النموذج الرئيسي :) ،

والان عندما تختار اي سجل من النموذج الرئيسي ، ستجد نتائجه في النموذج الفرعي :)

هذا شكل النموذج الجديد:

وكود النموذج بالكامل اصبح:

Option Compare Database

Private Sub CVZ_AfterUpdate()

    Call Check_Selected
        
' Dim StrSQL As String
'  Dim XXstrsql As String
'StrSQL = "SELECT * FROM OrdersTbl WHERE (((OrdersTbl.cmpno)=[Forms]![MainFrm]![CVZ]));"
'XXstrsql = "SELECT * FROM OrdersTbl"
'If Me.CVZ = "<all>" Then
' Me.Form.RecordSource = XXstrsql
'Else
' Me.Form.RecordSource = StrSQL
'End If
End Sub

Private Sub DateXz_AfterUpdate()

    Call Check_Selected
    
'Dim StrSQL As String
'Dim StrSQL1 As String
'Dim StrSQL2 As String
'StrSQL = "SELECT * FROM OrdersTbl WHERE (((month(OrdersTbl.OrderDate))= [Forms]![MainFrm]![DateXz]));"
'StrSQL1 = "SELECT * FROM OrdersTbl"
'StrSQL2 = "SELECT * FROM OrdersTbl WHERE ((OrdersTbl.cmpno)=[Forms]![MainFrm]![CVZ] and month(OrdersTbl.OrderDate)= [Forms]![MainFrm]![DateXz] );"
'If Me.DateXz <> 0 And Me.CVZ <> 0 Then
' Me.Form.RecordSource = StrSQL2
' Else
' Me.Form.RecordSource = StrSQL
' End If
End Sub

Private Sub Form_Close()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

Private Sub Form_Load()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

Private Sub Check_Selected()
    
    Dim FF As String

    FF = ""
    
'DateXz
'date: has to be as per the table format
    If Len(Me.DateXz & "") = 0 Then
        
    Else
        FF = "month(OrderDate)=" & Me.DateXz
    End If
'---------

'CVZ
'Numeric:
    If Len(Me.CVZ & "") = 0 Then
        
    Else
        If Me.CVZ = "<all>" Then
            
        Else
            FF = FF & " AND CmpNo =" & Me.CVZ
        End If
    End If
'---------

    If Left(FF, 4) = " And" Then FF = Mid(FF, 6)
    Me.Filter = FF
    Me.FilterOn = True
    
End Sub

جعفر

303.ByCmpnyByMnth.accdb.zip

لم افهم سبب تغيير طريقة عرض النموذج من مفرد الى مستمر

فقد نقلت الاكواد الى مثالي وعملت جيدا وحصل المطلوب

واليكم المرفق

ByCmpnyByMnth2.rar

عموما وعلى كل حال الف الف شكر ، فهذا هو المطلوب