Discussion :

[averooès]

Bonjours à toutes et à tous,
Pour exécuter une requête ajout sous VBA paramétrer sur un formulaire
Voila le code que j'ai écris et ça marche pas, j'aimerais savoir pour quoi?
Alors que le SQL marche.

Code :

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

1
2
3
4
5
6
7
Private Sub Commande1_Click()
CurrentDb.Execute ("INSERT INTO Table2 ( champ1t2, champ2t2 ) " & _
                    "SELECT Table1.champ1, Table1.champ2 " & _
                    "FROM Table1 " & _
                    "WHERE (((Table1.champ3)=" & [Formulaires]![Formulaire3]![champ3] & ")) ")
 
  End Sub

L’erreur qui me retourne c'est qu'il ne reconnait pas le champ 'l', je ne vois pas à quel champ il fait référence

[ilank]

Bonjour averooès,

essaie avec :

Code :

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

1
2
 
Forms("Formulaire3")!Champ3.Value

ou

Code :

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

1
2
 
Forms("Formulaire3")![Champ3]

Je crois qu'en VBA, les crochets servent à identifier le champ d'une table.

[mayekeul]

bonjour,
une petite question, ton champs se trouve dans un sous-formulaire?

[averooès]

le champ3 fais patie de la table1 il est source du controle champ3 dans la table1

[mayekeul]

tu dois faire comme ceci

Code :

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

[Nom de la table dans le formulaire]![nom du champ dans le formulaire]

En mode design, la représentation de ta table porte un nom qui peut être différente du nom réel de la table
pour le nom de champ, c'est pareil
verifie juste dans les propriétés

[averooès]

dans mon dernier je voulais dire champ3 et le nom du controle dans le formulaire et pas la table.
j'essaye ce nouveau code et ça marche toujours pas

Code :

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

1
2
3
4
5
6
Private Sub Commande1_Click()
CurrentDb.Execute ("INSERT INTO Table2 ( champ1t2, champ2t2 ) " & _
                    "SELECT Table1.champ1, Table1.champ2 " & _
                    "FROM Table1 " & _
                    "WHERE (((Table1.champ3)= " & Formulaires.Formulaire3.Controls.champ3 & ")) ")
End Sub