éxecution d'une requête ajout avec VBA

**averooès** · 04/02/2009, 14h13

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** · 04/02/2009, 15h02

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** · 04/02/2009, 15h15

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

**averooès** · 04/02/2009, 15h31

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

**mayekeul** · 04/02/2009, 15h42

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** · 05/02/2009, 14h06

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

**mayekeul** · 05/02/2009, 14h10

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

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

**Pierre Fauconnier** · 05/02/2009, 14h30

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 :

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

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) & "')) ")

**averooès** · 05/02/2009, 15h54

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

Code :

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

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 :

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

& Formulaires.Formulaire3.Controls(Modifiable0) &

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

Code :

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

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

**ilank** · 05/02/2009, 16h04

Bonjour averooès,
essaie ceci

Code :

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

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

**averooès** · 05/02/2009, 16h12

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

**azertix** · 05/02/2009, 16h41

A tester :

Code :

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

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 :

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

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 --

**ilank** · 05/02/2009, 17h15

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

Code :

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

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

**Pierre Fauconnier** · 05/02/2009, 18h36

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 :

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

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.

**averooès** · 06/02/2009, 16h26

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

**Pierre Fauconnier** · 06/02/2009, 16h35

As-tu testé ma dernière proposition?

Oui?

Cela fonctionne ?? ==>>> TANT MIEUX

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

**odoine** · 06/02/2009, 17h22

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 :

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

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

éxecution d'une requête ajout avec VBA

VBA Access

Discussions similaires

Partager

Partager