VBA Archives -

La fonction DoCmd.FindRecord permet de faire une recherche dans une table
Celle ci fonctionne très bien avec une valeur saisie en dure ou bien avec un inputbox, mais avec une zone de recherche c’est un peu plus compliqué, mais pas tant que ça

Si vous saisissez un texte dans la zone, au moment de la recherche avec l’option acSearchAll(recherche dans tous les champs du formulaire) et bien ACCESS ne trouve rien car la valeur recherchée se trouve déjà dans un champ du formulaire (celui de la zone de texte)
On se mord la queue ???

Solution:
Avant de lancer la recherche
=> Sauvegardez le texte dans une variable de type String
=> Vider le champ zone de texte

Après avoir exécuté votre recherche
=> remettre le texte recherché dans la zone de texte

            Dim sRecherche As String
            sRecherche = txt_Recherche
            txt_Recherche = "" 'on vide le champ pour que la recherche ne se fasse pas avec celui ci sinon ça ne marche pas
            DoCmd.FindRecord _
                FindWhat:=sRecherche, _
                Match:=acAnywhere, _
                MatchCase:=False, _
                Search:=acSearchAll, _
                SearchAsFormatted:=True, _
                OnlyCurrentField:=acAll, _
                FindFirst:=False
            txt_Recherche = sRecherche 'on remet la valeur au champ de recherche

Dim sRecherche As String

sRecherche = txt_Recherche

txt_Recherche = "" 'on vide le champ pour que la recherche ne se fasse pas avec celui ci sinon ça ne marche pas

DoCmd.FindRecord _

FindWhat:=sRecherche, _

Match:=acAnywhere, _

MatchCase:=False, _

Search:=acSearchAll, _

SearchAsFormatted:=True, _

OnlyCurrentField:=acAll, _

FindFirst:=False

txt_Recherche = sRecherche 'on remet la valeur au champ de recherche

Catégorie : VBA

ACCESS DoCmd.FindRecord Recherche avec une zone de texte