Discussion :

[kgb1917]

Bonjour,

Dans un formulaire, j’ai 2 zones de liste et un sous formulaire en mode continu.

Sur l’évènement AprèsMiseàJour de la zone de liste 2, j’aimerai que le contenu de la zone de liste 2 s’insère dans le sous formulaire via une requête ajout.

J’ai suivi les 2 solutions de MS (ici), rien n’y fait.

Code :

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

1
2
3
4
5
6
7
8
Private Sub MaZonedeListe2_AfterUpdate()
Dim sql1 As String
Dim sql2 As String
sql1 = TEST("Formulaire2", " MaZonedeListe1", 0)
sql2 = TEST("Formulaire2", " MaZonedeListe2", 0)
DoCmd.RunSQL "INSERT INTO Table1 (Champ1, Champ2) SELECT Champ1, Champ2 FROM Table1 WHERE Champ1 = sql1 AND Champ2 = sql2;"
Me.SFormulaire2.Requery
End Sub

Mais j’ai toujours un message demandant d’entrer la valeur pour les paramètres sql1 et sql2 alors qu’en mode debug, ils sont bien renseignés. L'insertion de la valeur sélectionnée ne se fait pas non plus dans le sous formulaire.
Où sont les erreurs ?

Merci par avance de votre aide

[jean-paul lepetit]

Salut,
tu as créé la fonction test ?

[kgb1917]

Bonjour jean-paul lepetit,

c'est celle du site de MS (ici). Je l'ai renommée TEST parce que j'avais nom ambigue avec retour.

Merci de ton aide

[jean-paul lepetit]

si tes zones de liste te retournent du texte :

Code :

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

1
2
3
4
5
6
7
8
Private Sub MaZonedeListe2_AfterUpdate()
Dim sql1 As String
Dim sql2 As String
sql1 = TEST("Formulaire2", " MaZonedeListe1", 0)
sql2 = TEST("Formulaire2", " MaZonedeListe2", 0)
DoCmd.RunSQL "INSERT INTO Table1 (Champ1, Champ2) SELECT Champ1, Champ2 FROM Table1 WHERE Champ1 = '" & sql1  & "' AND Champ2 = '" & sql2 &"';"
Me.SFormulaire2.Requery
End Sub

Si elles te retournent du numérique :

Code :

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

1
2
3
4
5
6
7
8
Private Sub MaZonedeListe2_AfterUpdate()
Dim sql1 As String
Dim sql2 As String
sql1 = TEST("Formulaire2", " MaZonedeListe1", 0)
sql2 = TEST("Formulaire2", " MaZonedeListe2", 0)
DoCmd.RunSQL "INSERT INTO Table1 (Champ1, Champ2) SELECT Champ1, Champ2 FROM Table1 WHERE Champ1 = " & sql1  & " AND Champ2 = " & sql2 &";"
Me.SFormulaire2.Requery
End Sub

[kgb1917]

Merci Jp.

Je n'ai plus le message sur la valeur des paramètres. Par contre, j'en ai un autre : 0 ligne(s) ajoutée(s)...

Je ne comprend pas bien. Si le code est bon, où est l'erreur ?

[jean-paul lepetit]

c'est que ta requête ne renvoie pas de résultat et que donc tu n'ajoutes rien à ta table

[kgb1917]

Oui, mais comment je peux faire dans ce cas ?

[jean-paul lepetit]

C'est que les critères de ta requête ne sont pas bon