[A-07] Question passage arguments Sub
Bonjour
Un question concernant le passage d'arguments entre Sub :
J'ai une Sub (privée) qui doit être appelée par 5 autres Sub activées par des événements. Elle comporte une requete de mise à jour (enfin comprise grâce à Kiki.Gaby - merci encore !).
code de la Sub appelante:
Code de la Sub appelée:
Code:
1 2 3 4 5 6 7 8
| Private Sub MySub(MonChamp)
Dim db As Database
Dim sql As String
DoCmd.SetWarnings False ' pour ne pas avoir de message lors mise à jour
sql = "UPDATE [SER] SET [SER].SER_COMNum = [Forms]![CLI]![COM]![COM_Num] WHERE [SER].SER_ID = MonChamp"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
End Sub |
Egalement essayé avec:
Code:
Private Sub MySub(ByVal MonChamp)
Et en codant:
Code:
sql = "UPDATE [SER] SET [SER].SER_COMNum = [Forms]![CLI]![COM]![COM_Num] WHERE [SER].SER_ID =" & MonChamp
Ayant mis des MsgBox après "sql = ..." pour vérifier que le contenu soit bien ce que je voulais, j'obtiens bien dans le message que MonChamp soit le contenu désiré dans le deuxième code. Le premier ne remplaçant pas "MonChamp" par sa valeur.
J'ai donc simplement copié 5 fois les lignes dans les Sub appelantes. Cela fonctionne très bien... mais c'est carrément agricole.
Je préfererais passer un argument à une seule Sub appelée par les 5 autres. J'aurais tendance à penser que l'erreur vient de la manière d'écrire ce "MonChamp" (Syntaxe ?).
Ai essayé entre crochet, pas plus de résultat.
L'un de vous voit-il où est l'erreur ?
Merci