ارجوووكم مساعدة ضروووووري

اذا ممكن ترفقي لي البرنامج مع النموذج اللي فيه البحث ، اضبطه لك :)

الكود ممكن يتغير بشكل ثاني ، ليتلائم مع المعطيات.

جعفر

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

اختي الفاضلة :)

الكود التالي اصبح افضل من الاكواد اعلاه ، ويمكن استعماله في برنامجك اعلاه:

Public Sub FilterMe()

    Filt = ""
    If Len(Me.cc5 & "") <> 0 Then
        Filt = Filt & " AND [C5]= '" & Me.cc5 & "'"
    End If
    
    If Len(Me.cc4 & "") <> 0 Then
        Filt = Filt & " AND [C4]= '" & Me.cc4 & "'"
    End If
    
    Filt = Mid(Filt, 6)
    
    Me.Filter = Filt
    Me.FilterOn = True
    
End Sub

جعفر

وهنا ستلاحظين كيفية البحث في الحقول المختلفة:

'Text:
Filt = Filt & " AND [C4]= '" & Me.cc4 & "'"

'Numeric:
Filt = Filt & " AND [C4]= " & Me.cc4

'Date:
Filt = Filt & " AND [C4]=#" & Me.cc4 & "#"

'Part search OR Memo:
Filt = Filt & " AND [C4] like " & Chr(34) & "*" & Me.C4 & "*" & Chr(34)

جعفر

وهذه طريقة لتصدير البيانات الى ملف بصيغة csv ، واللي يفتحها الاكسل:

Private Sub cmd_Excel_Click()
    

'DoCmd.OutputTo acOutputReport, "rpt_search", acFormatXLS, "C:\find.XLS", True

    Dim rst As DAO.Recordset
    Dim fld As Field

    File_Path = "C:\find.csv"
    
    Open File_Path For Output As #1
    
'    S = ";"
    S = ","
    Set rst = Me.sfrm_search.Form.RecordsetClone

    'field names
    For Each fld In rst.Fields
        F = F & S & fld.Name
    Next
    
    F = Mid(F, 2)
    Print #1, F
    
    rst.MoveFirst
    'field values
    For i = 1 To rst.RecordCount
        F = ""
        For Each fld In rst.Fields
            F = F & S & fld.Value
        Next
        
        F = Mid(F, 2)
        Print #1, F

        rst.MoveNext
    Next i
    
    Close #1
    Application.FollowHyperlink File_Path

End Sub

جعفر