Recherche de valeurs partielles contenues dans un champ sur un sous-formulaire
Bonsoir
Désespérant de mes recherches (peut être mal faites, même si cela fait 3,4 heures que j'y suis), je viens solliciter la communauté.
Je souhaiterais obtenir les enregistrements contenant une partie des valeurs.
Exemple : je tape dans ma zone de texte "exe", et, en cliquant sur un bouton, j'obtiens dans mon sous-formulaire la liste de tous les enregistrement contenant "Exe" dans le champ NumAffaire, comme "exemple" ou "pré-exemple".
En recherchant, j'ai deux pistes et j'y suis presque je pense. La première :
Code:
1 2 3 4 5 6
|
Private Sub btn_RechercheAffaire_Click()
sql = "SELECT * FROM ListeAffaires_Loc WHERE NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"";"
Me.SF_ListeAffaires_Loc.Form.Filter = "cstr(NumAffaire) = sql"
Me.SF_ListeAffaires_Loc.Form.FilterOn = True
End Sub |
Elle me permet de filtrer directement le résultat grâce aux deux dernières lignes, mais je crois que c'est sur la première, ou entre la première et la deuxième que ça ne fonctionne pas : on me demande la valeur du paramètre de sql.
La seconde :
Code:
1 2 3 4 5 6 7 8
|
Private Sub btn_RechercheAffaire_Click()
Set rs = Me.SF_ListeAffaires_Loc.Form.Recordset
criteres = "NumAffaire = """ & Me.txt_RechercheAffaire & """"
Call rs.FindNext(criteres)
Me.SF_ListeAffaires_Loc.SetFocus
Set rs = Nothing
End Sub |
Elle fonctionne uniquement si je rentre un numéro d'affaire écrit correctement, mais ne filtre pas dessus, elle me l'indique.
Je ne suis pas une pointe en VBA ouais... :?
Merci d'avance