2 réponses
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
13 mai 2008 à 14:00
13 mai 2008 à 14:00
bonjour,
A ma connaissance pour faire ce que tu demandes il faut utiliser du VB.
car on peux utiliser la clause SQL "LIKE" mais avec un parcours de la chaine à rechercher.
pour l'utilisation de deux table simultanément c'est un peu compliqué.
Voici une fonction pour te donner une condition sur chaine à rechercher avec une tolérence de un caractère :
////////////////////////////////////////////////////
Function GetCondition(Champ1, s As String) 'Ou "Champ1" est le nom du champ du filtre, et "s" est la chaine recherchée
Dim SQL As String
SQL = "(" & Champ1 & " = '" & s & "')"
For i = 1 To Len(s)
SQL = SQL & " or (" & Champ1 & " LIKE '" & Left(s, i - 1) & "?" & Mid(s, i, 1) & Right(s, Len(s) - i) & "')"
Next i
If s <> "" Then
SQL = SQL & " or (" & Champ1 & " LIKE '" & s & "?')"
End If
GetCondition = SQL
End Function
////////////////////////////////////////////////////
A ma connaissance pour faire ce que tu demandes il faut utiliser du VB.
car on peux utiliser la clause SQL "LIKE" mais avec un parcours de la chaine à rechercher.
pour l'utilisation de deux table simultanément c'est un peu compliqué.
Voici une fonction pour te donner une condition sur chaine à rechercher avec une tolérence de un caractère :
////////////////////////////////////////////////////
Function GetCondition(Champ1, s As String) 'Ou "Champ1" est le nom du champ du filtre, et "s" est la chaine recherchée
Dim SQL As String
SQL = "(" & Champ1 & " = '" & s & "')"
For i = 1 To Len(s)
SQL = SQL & " or (" & Champ1 & " LIKE '" & Left(s, i - 1) & "?" & Mid(s, i, 1) & Right(s, Len(s) - i) & "')"
Next i
If s <> "" Then
SQL = SQL & " or (" & Champ1 & " LIKE '" & s & "?')"
End If
GetCondition = SQL
End Function
////////////////////////////////////////////////////