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
| Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
'On affiche la totalité des résultats
SQL = "SELECT [Projet].[N° Projet], [Chef de Projet].[Nom], [Projet].[Désignation Projet] FROM [Chef de Projet] Inner Join [Projet] ON [Projet].[Référence Chef de Projet] = [Chef de Projet].[Référence Chef de Projet] Where [Projet].[N° projet] <> '0' "
'Si le champ de recherche du nom/mail est vide, on fait rien, sinon on rajoute une recherche sur ce nom/mail dans la requete
If Nz(Me.rechParNum, "") = "" Then
Else
SQL = SQL & "And [Projet].[N° Projet] = '" & Me.rechParNum & "' "
End If
If Nz(Me.rechParChef, "") = "" Then
Else
SQL = SQL & "And [Chef de Projet].[Nom] like '*" & Me.rechParChef & "*' "
MsgBox (SQL)
End If
If Nz(Me.rechParDes, "") = "" Then
Else
SQL = SQL & "And [Projet].[Désignation Projet] like '*" & Me.rechParDes & "*' "
End If
'On découpe la requête pour affiche le nombre de résultats (stats)
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
'Affichage des stats et des resultats
'Me.nbRes.Caption = DCount("*", "[Projet]", SQLWhere) & " / " & DCount("*", "[Projet]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery |
Partager