Discussion :

[Brëzz]

Bonjour à tous,

J'ai créer une liste déroulante de nom dans un formulaire correspondant aux client de ma table "Client", j'aimerais ouvir le formulaire (déja créer) affichant tout les infos du client sélectionné dans la liste déroulante. Cependant,j 'atteinds toujours le premier enregistrement.

Pouvez-vous m'aidez ?

Cordialement,

Brezz

[Invité]

Bonjour

Si ton formulaire a une source, fait la création de la liste déroulante avec l'assistant (baguette magique), et suit les étapes, il te fera tout le code.

Philippe

[Brëzz]

Bonjour Philippe,

Mon problème ne vient pas de la liste déroulante qui marche très bien mais de l'événement de la liste lorsque je choisis un "nom" et appuie sur la touche entrée, cela m'ouvre mon formulaire "Client" toujours sur le premier client de ma table "Client" et pas le champs correspondant au "nom" sélectionné.

Cordialement,

Brezz

[platon1]

Bonjour,
je vais essayer de donner une réponse, ayant été confronté au même problème.
Voila ma situation, à toi de voir si la tienne est la même.
un formulaire avec une zone de liste (je pense que cela doit être le même chose pour une liste déroulante) qui ont comme source la même requête, on sélectionne une ligne dans la liste et on appuie sur un bouton du formulaire pour ouvrir un autre formulaire contenant l'enregistrement sélectionné.
Il faut mettre le code suivant dans la propriété "sur clic" du bouton du formulaire de liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "F_Entrée_Capital_Coop_Existant"
    stLinkCriteria = "[OrdreID]=" & Me![Liste0]
        If stLinkCriteria = "[OrdreID]=" Then
            MsgBox "Sélectionnez un coopérateur"
            GoTo 10
        End If
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Maximize
 
10 Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

la ligne importante est la ligne 8 qui définit ici que c'est le champ OrdreID, celui de la première colonne de la ligne sélectionnée qui permet de fixer l'enregistrement qui est visible dans le 2ème formulaire.
Les lignes du début et de la fin de la routine sont mises automatiquement par la mise en place du code évènementiel de la propriété "sur clic".
Si cela peut t'aider fait le savoir.
Bon courage

[Brëzz]

Bonjour platon1,

Merci beaucoup pour ta réponse cela fonctionne parfaitement pour moi !

Cordialement,

Brezz