Discussion :

[Xtine]

Bonjour,

J'ai un formulaire avec une liste de nom. Je voulais en double-cliquant dessus appeler un autre formulaire ouvert sur le nom sélectionné. Je précise, le formulaire appelé est constitué d'une liste déroulante de nom et d'un sous-formulaire (onglet) correspondant aux données du nom sélectionnée.

Sur l'évènement double-clic :

Code :

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

1
2
3
4
 
Private Sub Nom_Pers_DblClick(Cancel As Integer)
    DoCmd.OpenForm "F_GestionPersonnel", acNormal, , "[Code_Pers]= " & Me.ChoixPers    
End Sub

J'avais utilisé l'exemple "recherche multicritère de cafeine". Seulement la propriété de ma colonne liée est de 2 au lieu de 1.
J'ai même essayé en tapant ce code.

Code :

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

1
2
3
4
 
Private Sub Nom_Pers_DblClick(Cancel As Integer)
    DoCmd.OpenForm "F_GestionPersonnel", acNormal, , "[Code_Pers]= " &  Str(Nz(Me![ChoixPers]   
End Sub

Mais j'ai toujours une erreur.

[LE VIEUX]

Bonjour,
Un peu de précision :
Il semble que tu recherches d’après une Zone de liste, s’il y a plusieurs colonnes il faut préciser celle qui correspond au critère.
ton 2eme code outre la syntaxe qui n’est pas bonne laisserait penser que le critère est du texte /
Dans ce cas il faut utiliser des quottes :
Cela pourrait être :

Code :

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

1
2
3
Private Sub Nom_Pers_DblClick(Cancel As Integer)
    DoCmd.OpenForm "F_GestionPersonnel", acNormal, , "[Code_Pers]= '" & Me.ChoixPers.Column(x)& "'"    
End Sub

[Xtine]

Le Vieux > Merci pour ta réponse. J'ai essayé et il me répond qu'il ne trouve pas "ChoixPers".
ChoixPers est le nom donné au champ liste déroulante du formulaire F_GestionPersonnel. Lorsqu'on indique "Me" on indique bien le formulaire cité en début de l'expression ? ici F_GestionPersonnel ?

[LE VIEUX]

RE,
Pas clair tout cela !

Lorsqu'on indique "Me" on indique bien le formulaire cité en début de l'expression

Non : me. Désigne un objet dans le formulaire actif
dans ton expression Me.ChoixPers désigne le champ zone liste déroulante de ton formulaire en cours d’exécution et dans lequel il y a la référence qui permet d’identifier [Code_Pers] du formulaire "F_GestionPersonnel" que tu veux ouvrir.
j'ai peur que tu aies inversé.
En tapant Me. Vba va te proposer entre-autre les champs disponibles dans ton formulaire actif qui peuvent être sélectionnés.

[Xtine]

MERCI "le vieux".
J'ai regardé ce que vba me proposé, et j'ai pris Code_Pers, Et mon formulaire s'ouvre à la fiche de la personne demandée.
Donc le code devient

Code :

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

1
2
3
4
 
Private Sub Nom_Pers_DblClick(Cancel As Integer)
    DoCmd.OpenForm "F_GestionPersonnel", acNormal, , "[Code_Pers] = " & Me.Code_Pers    
End Sub

Encore merci