مساعدة في البحث

[عبدالقدوس48]

السلام عليكم مساعدة عند بحث بالسنة ورقم العقد والوضعية في tabl1 يفتح لي على سجل في نموذج tabl وشكرا

مثال.accdb

[عمر ضاحى]

2 ساعات مضت, عبدالقدوس48 said:

السلام عليكم مساعدة عند بحث بالسنة ورقم العقد والوضعية في tabl1 يفتح لي على سجل في نموذج tabl وشكرا

مثال.accdb 620 kB · 1 download

اضف زر فى نموذج tabl1

واضف هذا الكود له

    Dim filter As String
    filter = ""
    
    If Not IsNull(Me.sana) Then
        filter = filter & "sana = '" & Me.sana & "' AND "
    End If
    
    If Not IsNull(Me.rakm) Then
        filter = filter & "rakm = '" & Me.rakm & "' AND "
    End If

    If Not IsNull(Me.wadia) Then
        filter = filter & "wadia = '" & Me.wadia & "' AND "
    End If

    If filter <> "" Then
        filter = Left(filter, Len(filter) - 5)
    End If

    DoCmd.OpenForm "tabl", , , filter