Discussion :

[AlainL]

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 :

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

MySub(MonChamp)

Code de la Sub appelée:

Code :

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

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 :

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

Private Sub MySub(ByVal MonChamp)

Et en codant:

Code :

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

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

[Heureux-oli]

Salut,

Ton champ contient quoi comme type de données?


L'appel correct serait

Code :

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

Sub MySub(MonChamp As String)

Jette un oeil ici

Dans ton SQL, si c'est un String que tu passes, il faut des ' ou " en plus.

Code :

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

sql = "UPDATE [SER] SET [SER].SER_COMNum = [Forms]![CLI]![COM]![COM_Num] WHERE [SER].SER_ID ='" &  MonChamp & "'"

[AlainL]

Arggghhh ! C'était effectivement cela, manque de guillemets.

Merci beaucoup Heureux-Oli