Discussion :

[lecter85]

Bonjour,

Je suis débutant dans Access.

J'ai créé un formulaire de saisie d'informations qui alimente une table de clients. J'aimerais créer sur ce formulaire un bouton qui me permet à de faire une recherche en fonction d'un champs, et qu'il m'affiche le formulaire correspondant.

Exemple : j'ai 3 clients qui ont chacun un feuille de formulaire où sont affichées leurs données personnelles.

Client 1 : toto
Client 2 : tata
Client 3 : titi

Je suis dans le formulaire de saisie et je veux faire apparaître le formulaire du client tata pour pouvoir le modifier. Je clic sur le bouton et je recherche par rapport au champs nom le client tata. Je clic sur OK et Access m'affiche le formulaire du client tata.

C'est possible de faire ça ?

Merci de m'avoir lu.

[madefemere]

Bonjour,

Bienvenu dans Access,

1- Il faut une zone de texte disons TxtRechNom (indépendant pour la saisie du nom à rechercher).

2- Le bouton de commande BtnRecherche auquel on attache à l'évènement Surclick

Code :

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

1
2
3
4
5
6
7
8
Private Sub BtnRecherche_SurClick()
    With Me
        If Len(.TxtRechNom ) > 0 Then
            .RecordsetClone.FindFirst "Nom='" & .TxtRechNom & "'"
            .Bookmark = .RecordsetClone.Bookmark
        End If
    End With
End Sub

Conseils :
1- Faire les recherches plutôt à partir des clés primaires.
2- Utiliser une liste déroulante en lieu et place d'une zone de texte (quitte à la filtrer).

Bonne continuation

[lecter85]

Bonjour,

Merci de m'avoir répondu.

Cependant je n'arrive pas à le faire fonctionner

Ca me dit que "Nom=" n'est pas reconnu en tant que nom de champ ou expression correcte.

Mon champ, dans ses propriétés, porte le nom "Texte27", et sa source de contrôle est "Nom appelant".

J'ai donc fais ceci en VBA :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande369_Click()
    With Me
        If Len(.Texte27) > 0 Then
            .RecordsetClone.FindFirst "Nom='" & .Texte27 & "'"
            .Bookmark = .RecordsetClone.Bookmark
        End If
    End With
End Sub

J'écris le nom du client dont je souhaite voir la fiche dans le bandeau "Texte27" puis je clique sur le bouton "Commande369" et j'ai l'erreur.

[madefemere]

Vérifiez que vos avez bien la zone de texte Nom dans votre formulaire qui contient le nom de vos clients.
Mettons entre crochets le champ à la ligne 4

Code :

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

.RecordsetClone.FindFirst "[Nom]='" & .Texte27 & "'"

Bonne continuation

[lecter85]

Yes ça marche !

Merci beaucoup !

[lecter85]

J'ai une dernière question :

Quand je clic sur le bouton rechercher alors que le champs de recherche est vide, je souhaite afficher un msgbox avec le message : "Veuillez saisir un nom".

Code :

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

1
2
3
If Me.Texte27= "" Then
      MsgBox "Veuillez saisir un nom"
End If

Seulement ça ne fonctionne pas.

Même quand je met sans condition :

Code :

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

MsgBox "Veuillez saisir un nom"

ça ne fonctionne pas.

Une idée ?

[lecter85]

C'est bon j'ai trouvé :

Code :

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

1
2
3
If IsEmpty(Me.Texte27) Then
      MsgBox "Veuillez saisir un nom", VbOKOnly, "Attention"
End If