Discussion :

[Darkpioupiou]

Bonjour à tous,

Après plusieurs heures de recherche, je me tourne vers vous pour vous appeler à l'aide :
Je suis dans un formulaire access et je souhaite rechercher des enregistrements avec la fonction ci-après déclenchée par un bouton de commande :
DoCmd.FindRecord "*" & TXT_SEARCH.Value & "*", , , acSearchAll, , , False (TXT_SEARCH étant une zone de texte où je tape la valeur pour ma recherche)



Elle fonctionne bien mais je souhaiterais revenir au début des enregistrements lorsque ma recherche a atteint la fin de la table pour aller jusqu'à l'enregistrement d'où je suis partie initialement. Sur l'aide microsoft, c'est ce que la clause acSearchAll est sensée faire mais en fait, elle s'arrête à la fin de la table et ne revient pas au début. Cela réagit exactement pareil que si j'avais mis "acDown".

Si je cherche "martin" par exemple et que je suis sur l'enregistrement n° 4, la fonction va bien trouver l'enregistrement n°6 mais ne reviendra pas au début pour afficher l'enregistrement n° 2

Est ce que quelqu'un a une explication à ce phénomène et pourrait m'apporter une aide précieuse dont j'ai vraiment besoin ?

Je vous en remercie par avance.

[tee_grandbois]

bonjour,

Si je cherche "martin" par exemple et que je suis sur l'enregistrement n° 4, la fonction va bien trouver l'enregistrement n°6 mais ne reviendra pas au début pour afficher l'enregistrement n° 2

Est ce que quelqu'un a une explication à ce phénomène et pourrait m'apporter une aide précieuse dont j'ai vraiment besoin ?

pour moi, ce n'est pas un comportement anormal: dans l'aide il est indiqué que acSearchAll effectue la recherche dans tous les enregistrements mais il n'est pas indiqué que cela fait revenir au début, d'ailleurs, la commande "Rechercher" dans la barre des boutons de déplacement fonctionne aussi comme cela.



Si tu veux que cela boucle, il faut passer par du code.
Voici un exemple de code qui n'indique pas à quel enregistrement commence la recherche mais revient bien au début de la table quand la fin est atteinte mais la recherche boucle infiniment:

Code VBA :

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

1
2
3
Option Compare Database: Option Explicit
' déclaration variable n° d'enregistrement en cours à mettre au tout début du code du formulaire
Public lCurrentRecord As Long

code du bouton

Code VBA :

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
19
20
21
22
Private Sub btnChercher_Click()
Dim vCherche As Variant
vCherche = Nz(Me.txtRecherche, "*")
' on vide le champ de recherche 
Me.txtRecherche = ""
' se positionne sur le premier champ de recherche
Me.Adresse.SetFocus
 
' mémorisation du n° d'enregistrement 
lCurrentRecord = Me.CurrentRecord
 
DoCmd.FindRecord "*" & vCherche & "*", , , acSearchAll, , , False
 
' si la recherche n'a pas abouti, on retourne au début de la table
If Me.CurrentRecord = lCurrentRecord Then
    DoCmd.GoToRecord acDataForm, Me.Name, acFirst
    DoCmd.FindRecord "*" & vCherche & "*", , , acSearchAll, , , False
End If
 
' on restaure le champ de recherche
Me.txtRecherche = vCherche
End Sub

[micniv]

Jolie réponse, Tee_grandBois

[Darkpioupiou]

Bonjour,

Merci beaucoup pour la réponse tee_grandbois . Je vais m'empressée de la tester.

Voici le lien de l'aide microsoft qui indiquait le retour au début de acSearchAll : https://support.office.com/fr-fr/art...7-ea71949f39cd
C'est dans la rubrique "Sens".

Merci encore pour la réponse. Je reviens vers vous pour dire le résultat.

Bonne journée

[Darkpioupiou]

Ca marche impeccable. Merci infiniment. Maintenant, je vais décortiquer pour comprendre.