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
Partager