éxecution d'une requête ajout avec VBA

Version imprimable

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:

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

04/02/2009, 15h02
ilank
Bonjour averooès,

essaie avec :
Code:

1 2 Forms("Formulaire3")!Champ3.Value
ou
Code:

1 2 Forms("Formulaire3")![Champ3]
Je crois qu'en VBA, les crochets servent à identifier le champ d'une table.
04/02/2009, 15h15
mayekeul

bonjour,
une petite question, ton champs se trouve dans un sous-formulaire?
04/02/2009, 15h31
averooès

le champ3 fais patie de la table1 il est source du controle champ3 dans la table1
04/02/2009, 15h42
mayekeul

tu dois faire comme ceci

Code:

[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

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:

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

Code:

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

en suivant ton code,tu devrais essayer comme ça en principe!

Bonjour

Ton champ3, il est numérique ou de type texte?

s'il est de type texte, tu dois encadrer la valeur du champ3 avec des apostrophes, et donc utiliser

Code:

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

Voila
J’ai créé un nouveau formulaire avec une zone de liste alimenté par le champ3 de la table1
Voila le code
Code:

1 2 3 4 5 6 7 8 9 Private Sub Commande2_Click() Dim str As String str = " & Formulaires.Formulaire3.Controls(Modifiable0) & " Debug.Print str dbsVeil.Execute ("INSERT INTO Table2 ( champ1t2, champ2t2 ) " & _ "SELECT Table1.champ1, Table1.champ2 " & _ "FROM Table1 " & _ "WHERE (((Table1.champ3)='" & Formulaires.Formulaire3.Controls(Modifiable0) & "')) ") End Sub
Le str c’est pour savoir s’il prend la valeur afficher dans le contrôle, il m’imprime ceci

Code:

& Formulaires.Formulaire3.Controls(Modifiable0) &

Voila le sql de la requête il s’exécute belle et bien
Code:

1 2 3 4 INSERT INTO Table2 ( champ1t2, champ2t2 ) SELECT Table1.champ1, Table1.champ2 FROM Table1 WHERE (((Table1.champ3)=Formulaires!Formulaire3!Modifiable0));
:cry: :cry: :cry:

Bonjour averooès,
essaie ceci

Code:

1
2
3
4
5
6
7
8
Private Sub Commande2_Click()
Dim str As String
str = "Champ3 = " & Formulaires!Formulaire3!Modifiable0
Debug.Print str
CurrentDB.Execute ("INSERT INTO Table2 (champ1t2, champ2t2) " & _
            "SELECT Table1.champ1, Table1.champ2 FROM Table1 " & _
            "WHERE Table1.champ3=" & Formulaires!Formulaire3!(Modifiable0))
End Sub

05/02/2009, 16h12
averooès

merci pour ton aide, mais ça marche pas erreure "objetrequis"

A tester :

Code:

1
2
3
4
5
Private Sub Commande2_Click()
CurrentDB.Execute ("INSERT INTO Table2 (champ1t2, champ2t2) " & _
            "SELECT Table1.champ1, Table1.champ2 FROM Table1 " & _
            "WHERE Table1.champ3=" & Me.Modifiable0)
End Sub

Essaye avec DAO sinon ;)
Exemple avec l'ajout d'un contrat (à adapter) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' -- Ajout de l'enregistrement dans la table CONTRAT --
If DCount("*", "CONTRAT", "[NumContrat] LIKE '" & Me.lstNumContrat & "'") = 0 Then
'Si le contrat existe déjà, on ne l'ajoute pas
   Dim bd As Database
   Dim tContrat As Recordset
   Dim cContrat as String
 
   Set bd = CurrentDb
   Set tContrat = bd.OpenRecordset("CONTRAT", dbOpenDynaset)
   cContrat = "NumCli=" & Me.txtNumCli ' Définition du critère
   tContrat.FindFirst cContrat ' Recherche du critère
 
   tContrat.AddNew ' Ajout de l'enregistrement
   tContrat![NumContrat] = Me.lstNumContrat
   tContrat![DateEffetContrat] = CDate(Me.txtDateEffet)
   tContrat.Update
   MsgBox "Le contrat " & Me.lstNumContrat & " a bien été ajouté", vbOKOnly + vbInformation, "Confirmation d'ajout..."
   Me.lstNumContrat.Requery ' Actualisation de la zone de liste
End If
' -- Fin du traitement de la table CONTRAT --

05/02/2009, 17h15
ilank

Averooès C'est quoi dbsVeil ? Dans le doute je l'ai remplacé par CurrentDB.

Code:

merci pour ton aide, mais ça marche pas erreure "objetrequis"

D'accord mais sur quelle ligne ? Tu dis avoir créer un nouveau formulaire quel est son nom, remplace Formulaire3 par le nom du nouveau formulaire
05/02/2009, 18h36
Pierre Fauconnier
J'ajoute qu'il serait plus simple de construire TOUTE la chaine SQL dans une variable. Ainsi, tu peux tester exactement ce que tu passes
Code:

1 2 3 sql = "insert into ..." debug.print sql docmd.runsql sql
En mettant un point d'arrêt (F9) sur la ligne DoCmd, tu peux alors voir dans la fenêtre d'exécution ce que contient exactement SQL.

Bien entendu, il faut supprimer la ligne Debug... une fois la solution trouvée.
06/02/2009, 16h26
averooès

Salut vraiment j’ai crus que mon problème c’était un classique, il s’avère que c’est pas le cas.
La base porte le nom dbsVeil Le formulaire porte le nom Formulaire3, le contrôle porte le nom Modifiable0, donnez moi juste la syntaxe pour retourner la valeur afficher dans le contrôle.
N’hésitez pas à me faire des propositions
06/02/2009, 16h35
Pierre Fauconnier

As-tu testé ma dernière proposition?

Oui?

Cela fonctionne ?? ==>>> TANT MIEUX

Cela ne fonctionne pas?? ==>>> Donne-nous la valeur de la chaine SQL !!!

DAO

Le plus simple est d'utiliser une référence DAO..
tu l'ajoutes dans les références.
Ensuite tu crées ta requête d'ajout dans le module des requêtes en mettant des paramètres ensuite voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 Dim db As DAO.Database Dim ess As DAO.Recordset Dim rqMaQuery As QueryDef Dim i As Integer Dim Var_Resa As Long Set db = CurrentDb Set rqMaQuery = db.QueryDefs("R_AJT_Carnet_Affecte") 'Nom de ta requête ajout rqMaQuery.Parameters(0) = Var_Resa 'ou valeur d'une boite de liste 0=premier paramètre rqMaQuery.Execute
et ça doit fonctionner mais il ne faut pas oublier de rajouter la référence Microsoft DAO x.x object library