Discussion :

[Daniel MOREAU]

Bonjour à tous,

Lorsque j'appel ce module sur le clic d'un bouton de commande, j'ai ce message d'erreur :

Erreur de compilation : Variable ou procédure attendue

Avez-vous une idée sur le problème que je rencontre.

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

Merci pour vos réponses,

Daniel

[cafeine]

Hello,

Et le débogueur ne s'arrête sur aucune ligne quand tu demandes la compilation ?

[soltani1]

Bonjour,

Et la valeur de retour de la fonction?

A+

[Daniel MOREAU]

Bonjour caféine,

Le débogueur s'arrête sur le clic du bouton

Code :

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

1
2
3
Private Sub Commande57_Click()
LISTAGE_ARTICLES
End Sub

[Invité]

Re

Pourquoi y'a t il des parenthèses ?

Code :

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

1
2
3
4
5
6
 
SqlQuery = ("SELECT Tbl_TempLstTbl.Nom FROM Tbl_TempLstTbl " & _
                "WHERE (((Tbl_TempLstTbl.Nom) Like 'TARIF*'));")
            Set Rst = db.OpenRecordset(SqlQuery)
 
            SqlDelete = ("Delete * from Tbl_TempArt;")

Vu le message il intérpréte cela comme des fonctions

Starec

[Kloun]

T'as essayé de compiler tous les modules ?

[Invité]

Re

ListageArticle est une fonction, donc à la fin tu dois avoir as + un type, hors dans ton cas ce n'est pas une fonction. Remplace Function par Sub.

Starec

[random]

starec testes ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function bemol()
bemol = 10
MsgBox ("hello")
End Function
 
Function teste() As Integer
teste = bemol
bemol
End Function

ben oui le typage est facultatif et on peut faire le call d'une fonction
vba a parfois des aspects curieux

[Daniel MOREAU]

merci à tous pour vos réponses,

Tout d'abord j'ai compilé et je n'ai pas d'erreur, ensuite pour répondre à starec, j'ai remplacé sans succès function par sub.

Je ne comprend pas ce qui se passe.

Je souhaite faire appel à ce module à partir de bouton de différents formulaires c'est pourquoi j'ai mis ce code dans ce module, mais peut-être ne faut-il pas faire comme cela.

Daniel

[random]

essaye de préfixer l'appel

call nommodule.lissagemachin

[Daniel MOREAU]

Bon j'ai trouvé,

Tout simplement, j'ai nom du Module et de la fonction était identique.

Voilà pourquoi !!!!!

C'est bon à savoir pour le futur

Merci à tous pour vos réponses.

Daniel