Bonjour,
Je dispose d'un formulaire nommé Clients composé de plusieurs champs.
Le formulaire s'ouvre en mode ajout.
Dans l'entête de formulaire, j'ai créé une zone de texte et un bouton.
Je souhaite à partir d'une saisie complète ou partielle et du clic sur bouton, afficher la fiche complète du client.
Voici une ébauche de code qui ne fonctionne pas : aucun filtre aucune données.
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub FiltreC_Click() Dim strTxt As String, strCriteria As String, strSql As String strTxt = txtCli.Value strCriteria = strTxt & "." Like " & Me.txtcli & " strSql = "SELECT DISTINCTROW " & strTxt & ".*" strSql = strSql & " FROM " & strTxt strSql = strSql & " WHERE ((" & strCriteria & "));" Forms!Clients.Filter = " & strSql & " Forms!Clients.FilterOn = True End Sub
Partager