Discussion :

[popof60]

Bonjour,

J'utilise ce code depuis un petit moment, il fonctionne trés bien sauf dans ce cas précis

Code :

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

1
2
3
4
5
6
7
Private Sub Liste491_DblClick(Cancel As Integer)
Dim stDocName As String, criteria As String
Dim Rep As String, rep2 As String
stDocName = "suivi contacts"
criteria = "RéfAppel='" & Me.Liste491.Column(0) & "'"
DoCmd.OpenForm stDocName, , , criteria
End Sub

Aucune erreur d'appélation ... là je comprends pas trop

[Milyshyn76]

Coucou, à quoi te sert ce code?

[popof60]

il permets d'un double click dans ma liste d'ouvrir un formulaire selon un critère précis ... ici le critère se trouvant dans la colonne 0 de ma liste

[wulfram]

Tu as effectué une vérification des types de données ?
Le critère est bien du texte, pas une date ou un nombre ?

[popof60]

le critère est dans mon cas un nombre ...

[Milyshyn76]

Coucou,
essaie ceci...

Code :

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

DoCmd.OpenForm "nomformulaire", , , "nomcritère=" & Me.nomliste.Column(0)