[Ahmed_Mansoor]

أهلا أخي الكريم , تم تعديل كود زر البحث على حسب ماكان موجود في جملة الإستعلام , هذا كود زر البحث :

PHP كود :

Private Sub Command1_Click()

If List1.ListCount <= 0 Then Exit Sub

Dim ZSQL As String
Dim I As Integer

For I = 0 To List1.ListCount - 1
    If List1.Selected(I) = True Then
       If Trim$(ZSQL) = "" Then
          ZSQL = "Issuing_Department ='" & Trim$(List1.List(I)) & "'"
       Else
          ZSQL = ZSQL & " or Issuing_Department ='" & Trim$(List1.List(I)) & "'"
       End If
    End If
Next
    
If Trim$(ZSQL) = "" Then
   Exit Sub
Else
   If InStr(1, ZSQL, "=") > 1 Then ZSQL = "(" & ZSQL & ")"
End If

If Trim$(Combo4.Text) <> "" Then ZSQL = ZSQL & " and Type='" & Trim$(Combo4.Text) & "'"

If Trim$(Combo9.Text) <> "" Then ZSQL = ZSQL & " and work_purpose='" & Trim$(Combo9.Text) & "'"

If Trim$(Combo10.Text) <> "" Then ZSQL = ZSQL & " and section='" & Trim$(Combo10.Text) & "'"

If Trim$(Combo8.Text) <> "" Then ZSQL = ZSQL & " and Line='" & Trim$(Combo8.Text) & "'"

If Trim$(Combo5.Text) <> "" Then ZSQL = ZSQL & " and Issued_satus='" & Trim$(Combo5.Text) & "'"

If Trim$(Combo7.Text) <> "" Then ZSQL = ZSQL & " and Requested_by='" & Trim$(Combo7.Text) & "'"

If Trim$(Combo14.Text) <> "" Then ZSQL = ZSQL & " and Request_Type='" & Trim$(Combo14.Text) & "'"

Data1.RecordSource = "select * from RRS where " & ZSQL & " order by RRS"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then Data1.Recordset.MoveLast

End Sub