Bonsoir,
Il faut commencer par construire ton Expression Sql.
Pour ça tu procèdes ainsi:
Dim sQuery As String
sQuery = "SELECT * FROM TaTable"
Ensuite tu testes un par un sur les critères renseignés.
Le mieux serait que tes textbox soient indéxés et que
chaque index correspond à l' index du champ correspondant
Dim i As Integer,LePremier As Integer
'tu declares une variable
'Tu cherche ensuite le premier critère renseigné (très important
pour avoir un WHERE en premier)
For i=0 To LeDernier
If TextBox(i)<>"" Then
LePremier=i
sQuery=sQuery & " WHERE TaTable.Fields(" & i & ")='" & TextBox(i) & "'"
Exit For
End If
Next i
'tu teste pour savoir si tu n' est pas arrivé au dernier TextBox
If LePremier <LeDernier Then
'tu continues ensuite pour les autres critères à partir du premier renseigné
For i=LePremier To LeDernier
If TextBox(i)<>"" Then
sQuery=sQuery & " AND TaTable.Fields(" & i & ")='" & TextBox(i) & "'"
End If
Next
End If
Remarque : si aucun critère n' est renseigné ta requête
se résumera à : "SELECT * FROM TaTable"
-------------------------------------------------------------------------------------------------------------
-© Developper..c' est cultiver un sens de l' humour bien particulier.
Dit un jour mon poisson rouge Rolling.