Bonjour,
J'ai récupéré ce code qui marche bien, mais je voudrais qu'il recherche aussi si la demande (rechnom) est partièle.
ensuite, je voudrais créer une commande qui continue à chercher.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Recherche_Click() Dim strcritere As String strcritere = "nom like " & Chr(34) & rechnom & Chr(34) Me.Recordset.findfirst strcritere If Me.Recordset.nomatch Then If rechnom <> "" Then Formattedmsgbox "ATTENTION@AUCUN enregistrement correspond à votre DEMANDE@", vbExclamation, "RECHERCHE 'PATIENT'" Else Formattedmsgbox "ATTENTION@Votre critère de recherche est vide@", vbExclamation, "RECHERCHE 'PATIENT'" End If End If End Sub
Si on trouve, on affiche.
Si on trouve pas, on affiche une msgbox.
et pour finir, si la recherche est exacte, comment effacer le champ "rechnom"?
Merci de votre aide.
Partager