Discussion :

[nico62370]

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.

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

Merci.

[charliejo]

Tu n'utilises pas correctement la propriété Filter
Dans Filter tu mets normalement jute le critère et non toute la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.Filter = "PaysRégion = 'USA'"
Me.FilterOn = True

De plus la récupération de tes valeurs à l'air vraiment bizarre....tu n'aurais pas la même chose dans strTxt et Me.txtcli par hasard...
Test les valeurs de tes variables!

[vlksoft]

Pourquoi prefères-tu ouvrir le formulaire en mode ajout??? alors que tu veux faire des recherches.