Discussion :

[babady]

bjr , chere ami developpeur, je vien encore vers vous pour demander de l'aide
j'ai mon code vba suivant qui affiche le message suivant après execution:

erreur d'execution 3075
erreur de syntaxe(operateur absent)dans l'expression [Code_article]
et la ligne DoCmd.OpenForm "Formulaire", , , "[Code_article]=" & liste1.Column(0) s'affiche selectionnee en jaune; j'ai fait tout mon possible pour cooriger cette erreur, en vain
voici le code complet

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
Private Sub Liste1_DblClick(Cancel As Integer)
'declaration des variables
Dim mess As String
Dim varCode_article As String
Dim varDesignation As String
Dim varPrix_unitaire_HT As Integer
Dim varQuantite As Integer
mess = "Formulaire"
mess = mess & vbNewLine & ".........."
mess = mess & vbNewLine & "Code_article:" & varCode_article
mess = mess & vbNewLine & "Designation:" & varDesignation
mess = mess & vbNewLine & "Prix_unitiare_HT:" & varPrix_unitaire_HT
mess = mess & vbNewLine & "Quantite:" & varQuantite
mess = mess & vbNewLine & vbNewLine & "pour plus d'information , cliquez sur ok "
If vbOK = MsgBox(mess, vbOKCancel, "information Catalogue") Then
 DoCmd.OpenForm "Formulaire", , , "[Code_article]=" & liste1.Column(0)
End If
End Sub

[bertiny]

Bonjour
Essaie d'ajouter

Code :

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

DoCmd.OpenForm "Formulaire",acNormal , , "[Code_article]=" & liste1.Column(0)

[babady]

bjr monsieur Bertiny, merci d'avoir repondu a ma question;
j'ai ajouter acNormal comme vous me l'avez demander mais le message d'erreur y ai toujour

merci

[Invité]

Bonjour

Essayes

Code :

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

DoCmd.OpenForm "Formulaire",acNormal , , "[Code_article]='" & liste1.Column(0) & "'"

Philippe

[babady]

Bonsoir monsieur philippe, je suis tres comptant de votre intervention, le code a marche,
je vous remercie infiniment, que dieu vous garde le plus longtemps possible

merci et bonne soiree

[Invité]

Bonjour

Une petite explication est nécessaire.

La clause Where est la même structure qu'une requête SQL, et donc pour une valeur texte on met des simples quotes.

Philippe