Discussion :

[juxantof]

Bonjour,

Je sais c'est surement très simple mais.... je trouve pas :/

Voilà j'aimerai dans un formulaire de recherche ex Nom : "tapez le nom " qu'Access me retrouve le nom d'un client qui est dans une table de(table client avec leur nom).
Beaucoup de tuto existe avec menu déroulant mais pas en tapant dans une zone texte.

En gros je désire la même fonction que Ctrl F mais dans un formulaire.

Ne vous moquez pas svp ^^

Comment procéder ?


Cordiallement

[madefemere]

Bonjour,

En général, on utilise plutôt un formulaire basé sur la table pour faire les recherches. (On ne permet pas aux utilisateurs d'avoir accès directement aux tables==> c'est dangereux). Tu as de ce fait divers exemples de formulaires de recherche dans la section tutoriels du site que tu pourrais simplifier.

Qu'importe la méthode, il faut
- un formulaire basé sur la table avec le champ contenant la valeur à chercher "NomPersonne"
- une zone de texte (ZdtRechMot) indépendante où il faut saisir le mot à chercher ou la valeur avec comme étiquette "taper le nom :"
- un bouton pour lancer la recherche BtnRecherche
- Un bouton pour annuler la recherche

Après, il y a 2 méthodes :
1- Filtrer les enregistrements du formulaire selon la valeur saisie dans la zone de texte (Le formulaire n'affichera que l'enregistrement concerné).
Il faut utiliser la propriété Filter du formulaire dans ce cas et lui attribuer la valeur correspondante lors du click sur le bouton BtnRecherche.
Le code ressemblerait à :

Code :

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

1
2
Me.Filter ="[NomPersonne]='" & Me.ZdtRechMot & "'"
Me.FilterOn = True

2- Atteindre l'enregistrement concerné du formulaire
Là, il faut utiliser la propriété BookMark du Recordset de l'objet Formulaire et avec une commande FindFirst la synchroniser avec celui du clone du Recordset.
Le code serait

Code :

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

1
2
3
4
5
6
7
8
With Me.RecordsetClone
     .FindFirst "[NomPersonne]='" & Me.ZdtRechMot & "'"
     If Not .Nomatch then
          Me.RecordSet.BookMark = .BookMark
     Else
          MsgBox "Valuer non trouvée !"
     End If
End With

Cordialement et bonne continuation

[juxantof]

Bonjour madefemere,

Merci beaucoup pour la rapidité de ta réponse.Je ne comprend pas tout mais je vais chercher en tout cas merci encore

Bonne journée à toi.

Cordialement.