1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT [RDV CLIENT].[Numero],[RDV CLIENT].[Numenregistrement],[RDV CLIENT].[Identifiant],[RDV CLIENT].[Nom Client],[RDV CLIENT].[Intervenant],[RDV CLIENT].[Date RDV],[RDV CLIENT].[Heure Début RDV],[RDV CLIENT].[Heure Fin RDV],[RDV CLIENT].[Durée],[RDV CLIENT].[Type Reporting], [RDV CLIENT].[Type Intervention],[RDV CLIENT].[Catégorie],[RDV CLIENT].[Etat] FROM [RDV CLIENT] Where [RDV CLIENT]![Numero] <> 0 "
If chkNomclient Then
SQL = SQL & "And [RDV CLIENT]![Nom Client] like '*" & Me.TxtNomClient & "*'"
End If
If Me.ChkIntervenant Then
SQL = SQL & "And [RDV CLIENT]![Intervenant] = '" & Me.CmbIntervenant & "'"
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
'Me.lblStats.Caption = DCount("*", "RDV CLIENT", SQLWhere) & " / " & DCount("*", "RDV CLIENT")
Me.LstResults.RowSource = SQL
Me.LstResults.Requery
End Sub |
Partager