QUAND METTRE UNE CLAUSE WHERE?

Dim strSQL                'la requète SQL
Dim blnWhereAdded   'True (1) si on a déjà ajouté la clause WHERE
Dim strField1              'la valeur du 1er champ... De type string
Dim intField2              'la valeur du 2ième champ... De type integer
Dim strField3              'la valeur du 3ième champ... De type string

'
' Définissez votre connexion et initialisez les trois variables strFieldx
'
blnWhereAdded = False
strSql = "SELECT * FROM Ma_Table"

If strField1 <> "" Then
  If Not blnWhereAdded Then
    strSQL = strSQL & " WHERE "
    blnWhereAdded = True
  Else
    strSQL = strSQL & " AND "
  End If
  strSQL = strSQL & "Champ1 LIKE '%" & strField1 &"%'"
End If

If intField2 <> "" Then
  If Not blnWhereAdded Then
    strSQL = strSQL & " WHERE "
    blnWhereAdded = True
  Else
    strSQL = strSQL & " AND "
  End If
  strSQL = strSQL & "Champ2 = " & intField2
End If  

If strField3 <> "" Then
  If Not blnWhereAdded Then
    strSQL = strSQL & " WHERE "
    blnWhereAdded = True
  Else
    strSQL = strSQL & " AND "
  End If
  strSQL = strSQL & "Champ3 LIKE '%" & strField3 &"%'"
End If

'
'Exécutez la requête strSQL puis affichez les résultats
'