Bonjour à tous,
Lorsque j'appel ce module sur le clic d'un bouton de commande, j'ai ce message d'erreur :
Avez-vous une idée sur le problème que je rencontre.Erreur de compilation : Variable ou procédure attendue
Merci pour vos réponses,
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 Public Function LISTAGE_ARTICLES() Dim db As Database Dim Rst As Recordset Dim SqlQuery As String Dim SqlUpdate As String Dim SqlDelete As String Set db = CurrentDb SqlQuery = ("SELECT Tbl_TempLstTbl.Nom FROM Tbl_TempLstTbl " & _ "WHERE (((Tbl_TempLstTbl.Nom) Like 'TARIF*'));") Set Rst = db.OpenRecordset(SqlQuery) SqlDelete = ("Delete * from Tbl_TempArt;") CurrentDb.Execute (SqlDelete), dbFailOnError Do While Not Rst.EOF SqlUpdate = "INSERT INTO Tbl_TempArt ( codeart ) SELECT " & Rst.Fields("Nom").Value & ".[CODE PRODUIT] " & _ "FROM " & Rst.Fields("Nom").Value & " LEFT JOIN Tbl_TempArt ON " & Rst.Fields("Nom").Value & ".[CODE PRODUIT] " & _ "= Tbl_TempArt.codeart WHERE (((Tbl_TempArt.codeart) Is Null));" 'Debug.Print SqlUpdate CurrentDb.Execute (SqlUpdate), dbFailOnError Rst.MoveNext Loop MsgBox "Mise à jour terminée." Rst.Close db.Close Set Rst = Nothing Set db = Nothing End Function
Daniel
Partager