Discussion :

[chobra2000]

Bonjour et bonne année aux membres de Developpez.

J'ai crée une formulaire avec zone texte pour effectuer de recherche dans une sous formulaire, mais il y a une erreur sur DoCmd.ApplyFilter "", strFilter
Merci pour votre aide

Formulaire: Voyageur
Sous formulaire: VoyageurSF (source requête)
Zone texte: Mots_Cles
Bouton Clic: Recherche
Enregistrements de recherche : Voyageur (combiné Prénom et nom)
Code VBA bouton (Au Clic)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Recherche_Click()
    Dim strFilter As String
 
    strFilter = "[Recherche] Like '*" & Me.Mots_Cles & "*'"
    If Len(Me.Mots_Cles) = 0 Or IsNull(Me.Mots_Cles) Then strFilter = "[Voyageur] Is Null"
 
    DoCmd.ApplyFilter "", strFilter
 
End Sub

[tee_grandbois]

bonsoir,

J'ai crée une formulaire avec zone texte pour effectuer de recherche dans une sous formulaire, mais il y a une erreur sur DoCmd.ApplyFilter "", strFilter

que dit le message d'erreur ?

Enregistrements de recherche : Voyageur (combiné Prénom et nom)

attention au apostrophes contenus dans les noms propres qui peuven provoquer des erreurs ; dans ce cas il est préférable de privilégier l'utilisation des guillemets pour la syntaxe, qu'il faut doubler dans ce cas:

Code :

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

strFilter = "[Recherche] Like ""*" & Me.Mots_Cles & "*"""

enlever les guillemets aussi pour filtername

Code :

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

DoCmd.ApplyFilter , strFilter

[tee_grandbois]

En fait, j'ai zappé le fait que c'était un sous-formulaire, il faut donc appliquer le filtre sur l'objet sous-formulaire comme cela:

Code :

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

1
2
3
 
Me.VoyageurSF.Form.FilterOn = True
Me.VoyageurSF.Form.Filter = strFilter