Recherche sur un champ et recherche suivant

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.

Code:

---

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

---

ensuite, je voudrais créer une commande qui continue à chercher.
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.

Citation:

---

Envoyé par DurDur

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.

---

Remplace

Code:

---

1 2	strcritere = "nom like " & Chr(34) & rechnom & Chr(34)

---

par

Code:

---

1 2	strcritere = "nom like " & Chr(34) & "*" & rechnom & "*" & Chr(34)

---

Citation:

---

ensuite, je voudrais créer une commande qui continue à chercher.

Si on trouve, on affiche.
Si on trouve pas, on affiche une msgbox.

---

pour la commande, c'est FindNext en lieu et place de FindFirt, pour la logique de message je t'en laisse le soin. C'est

Code:

---

1 2	Me.Recordset.nomatch

---

qui te dit si tu n'a pas trouvé ce que tu cherchais.

Citation:

---

et pour finir, si la recherche est exacte, comment effacer le champ "rechnom"?

---

Je suppose que RechNom est dans ton form courrant

Code:

---

1 2	me.RechNom=""

---

A+

Voilà une réponse rapide.

Je vais essayé tout ça.

Pour l' "*", j'avais trouvé un truc, maintenant je vais faire la suite.

Pour continuer la recherche en effaçant le champ "rechnom", peut-on mettre son contenu dans une variable ?

Merci.

Citation:

---

Envoyé par DurDur

Voilà une réponse rapide.
Pour continuer la recherche en effaçant le champ "rechnom", peut-on mettre son contenu dans une variable ?

---

Oui, tu peux il suffit de définir une variable globale au formulaire en dehors de la procédure.

Tu peux aussi essayer avec une variable 'static' dans ta procédure. Les variables static ne sont pas réinitialisée à chaque appel de la procéduer.

Attention les variables globales sont à manier avec précaution, c'est une bonne source de bug. L'attitude recommandée est de ne pas les utiliser et de préférer le passage de paramètres

La première partie de ma demande fonctionne trés bien.

Pour effacer le champ "rechnom", j'ai essayé plusieurs choses qui ne me satisfont pas.

Il faudrait que cette fonction s'efface seulement si on fait une autre commande que RECHERCHE ou SUITE DE RECHERCHE et je ne vois pas d'autre solution que de mettre sur chaque champ et commande, à reception du focus, le code:

Code:

---

me.rechnom=""

---

Avez vous une autre idée ?

Je m'absente pour une semaine.

Merci beaucoup et

@+