Discussion :

[Adrinoob]

Bonjour à tous,

Voilà j'ai une erreur d'Access concernant l'ouverture d'un formulaire, je passe par ce bout de code-ci:

Code :

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

1
2
3
4
 
Private Sub VENDEUR_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm CLIENTS", acNormal, , "[Nom]= " & VENDEUR, , acWindowNormal
End Sub

et j'obtiens l'erreur suivante:



seulement voilà ce bout de code-là marche très bien alors qu'ils sont similaires:

Code :

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

1
2
3
4
 
Private Sub BIEN_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm BIENS", acNormal, , "[Code Bien]= " & BIEN, , acWindowNormal
End Sub

Auriez-vous même un semblant de piste ou eu déjà eu la même erreur ? Je précise que je ne peux pas donner la bdd, que le type de donnée qui passe par la clause WHERE est bon et que j'ai essayé les macros intégrés qui, en vain, donnent la même erreur...

Cordialement,
Adrien

[madefemere]

Bonjour,

Le contenu de [VENDEUR] est du texte, donc il faut mettre entre quotes.
Cela donnerait :

Code :

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

1
2
3
Private Sub VENDEUR_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm CLIENTS", acNormal, , "[Nom]= '" & VENDEUR & "'", , acWindowNormal
End Sub

Pour prévoir les noms avec apostrophes, il faut utiliser des guillemets

Code :

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

1
2
3
Private Sub VENDEUR_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm CLIENTS", acNormal, , "[Nom]= """ & VENDEUR & """", , acWindowNormal
End Sub

Cordialement.

[Adrinoob]

Merci beaucoup de ta réponse ça marche à merveille, j'ai honte de ne pas y avoir pensé... A force de bloquer à chercher quelque chose de complexe l'évidence même était sous mes yeux !

Merci et bonne journée !