[Toutes versions] Utilisation de RechercherEnregistrement dans une macro

[damsmut]

Bonjour à tous,


Dans un formulaire, un bouton de recherche me permet de rechercher un enregistrement à partir des données saisie dans une zone de texte.


Pour ce faire j'ai créé une macro sur clic et j'ai utilisé l'action : "RechercherEnregistrement" avec un critère.

Tout ceci fonctionne très bien... il se positionne bien sur l'enregistrement recherché.

Par contre, le seul souci est que lorsqu'il ne trouve rien... ben il ne se passe rien... pas de message d'erreur.. rien.

J'aimerai bien pouvoir afficher un message du style "Aucun résultat de trouvé"...

Des idées ?

merci
a+
Dams'

[ClaudeLELOUP]

Bonjour,
Veux-tu passer par du code ?

[damsmut]

non par les macros si possible

[ClaudeLELOUP]

Reviens si tu ne trouves pas, je peux te proposerai un code à associer au clic de ton bouton.

[damsmut]

Envoyé par ClaudeLELOUP

Reviens si tu ne trouves pas, je peux te proposerai un code à associer au clic de ton bouton.

oui ça m'intéresse stp

[ClaudeLELOUP]

Bonjour,

Voici un code à associer au clic sur le bouton qui déclenche le processus (dans mon exemple : [BtChercher])

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BtChercher_Click()
With Me.Recordset
   .MoveFirst
   Do Until .EOF
      'numérique
        If .[cpte] = CDbl(Me.LaValeur) Then Exit Sub
      'texte
        'If .[libelle] = (Me.LaValeur) Then Exit Sub
      'Date
        'If .[datum] = CDate(Me.LaValeur) Then Exit Sub
        .MoveNext
   Loop
End With
MsgBox "Valeur non trouvée"
End Sub

Entre les crochets, tu indiques le nom du champ (donc la propriété source) que tu recherches.
Dans mon exemple, ce que l’on cherche est le contenu du contrôle appelé « LaValeur ».
Selon le type de ce que tu recherches tu enlèves l’apostrophe devant le if.
Dans mon exemple [cpte] est numérique.

L’idée c’est :
on se positionne sur le premier enregistrement et on avance jusqu’à trouver la valeur recherchée.
Si on ne trouve pas (fin du fichier) --> Message.