1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Sub Cmd_rech_Click()
'Déclarration des variables
Dim sql As String
Dim SQLWhere As String
'Requete SQL
sql = " SELECT Referenced, Opérateur, DateD, DateF, Type_client, Nom_client, Nature, Produit FROM Demande_Assitance;"
If Me.Chkclient Then
sql = sql & "And Demande_Assistance!Type_client like '*" & Me.liste_type & "*' "
End If
If Me.chknom Then
sql = sql & "And Demande_Assistance!Nom_Client = '" & Me.txtnom & "' "
End If
If Me.chkop Then
sql = sql & "And Demande_Assistance!Opérateur like '*" & Me.liste_opérateur & "*' "
End If
If Me.chkcode Then
sql = sql & "And Demande_Assistance!Num_code like '*" & Me.txtcode & "*' "
End If
If Me.chkcompte Then
sql = sql & "And Demande_Assistance!Num_compte = '" & Me.txtcompte & "' "
End If
If Me.chkcarte Then
sql = sql & "And Demande_Assistance!Num_carte = '" & Me.txtcarte & "' "
End If
SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
sql = sql & ";"
Me.listresults.RowSource = sql
End Sub |
Partager