[A97] : Intégration de data dans une table via VBA

Bonjour à tous,

Je situe le contexte :
- une table "tblEtudes" contenant 6 champs [idEtude], [idClient], [Reference], [Designation], [idTypeEtude], [DateRecepDde]
- un formulaire "frmEtudeAdd" contenant des contrôles [txtidEtude], [cboIdClient], [txtReference], [txtDesignation], [cboidTypeEtude], [txtDateRecepDde]

J'aurais aimé qu'en cliquant sur un bouton de commande, les éléments renseignés dans les différents contrôles soient ajoutés à la table.

J'ai donc ce bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim oDB As DAO.Database Private Sub fraAddEtude_Click() Dim NumAuto As String NumAuto = "E" & Format(Now, "yyyymmdd-hhmmss") Me.txtidEtude.Value = NumAuto Set oDB = CurrentDb oDB.Execute "INSERT INTO tblEtudes(idEtude, idClient, Reference, Designation, idTypeEtude, DateRecepDde)" & _ " SELECT " & Me.txtidEtude.Value & ", " & Me.cboIdClient.Value & ", " & Me.txtReference.Value & ", " & Me.txtDesignation.Value & ", " & Me.cboidTypeEtude.Value & ", " & Me.txtDateRecepDde.Value & " FROM tblEtudes" MsgBox ("Etude créée sous le n°" & NumAuto), vbOKOnly End Sub

---

Lorsque je valide j'ai le message : Erreur d'exécution '3061': Trop peu de paramètres. 2 attendu.

Quand je regarde ce qui est surligné en jaune en débogage, tout semble pourtant OK puisque les différents Me. me renvoi bien les valeurs des contrôles !

Je fait donc "Fin" du débogage, je retourne sur le formulaire que je ferme et je vais regarder dans ma table...l'enregistrement a bien été crée, je comprends plus rien !!!

Avez-vous une idée de pourquoi ces messages d'erreurs ?

Par avance merci,
@+

bonjour, pas de problème de format de date par hasard ?

peux-tu nous afficher le resultat d'un debug.print de la requête sql que tu exécutes stp ?

Bonjour

Il y a un problème dans ta requête, va jeter un coup d'oeil sur cet article :

http://access.developpez.com/sql/

• Tes données viennent de valeurs, donc il faut remplacer SELECT par VALUES.
• L'ensemble des données doit être entre parenthèses.
• Les données de type texte doivent être entourés de ' (simple quote) et les dates de #.

Lis bien l'article, il y a différents exemples.

Starec

Message supprimé car incomplet, voir le suivant en dessous ;-)

:nono:

Tu as toujours le SELECT au lieu du VALUES.

Starec

Bonjour à vous 2, bonjour à tous !

J'ai fait évoluer le code en fonction des conseils de nos 2 spécialistes merci ;-).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Compare Database Option Explicit   Dim oDB As DAO.Database   Private Sub fraAddEtude_Click() Dim NumAuto As String NumAuto = "E" & Format(Now, "yyyymmdd-hhmmss") Me.txtidEtude.Value = NumAuto Set oDB = CurrentDb oDB.Execute "INSERT INTO tblEtudes(idEtude, idClient, Reference, Designation, idTypeEtude, DateRecepDde)" & _ " SELECT ('" & Me.txtidEtude.Value & "', " & Me.cboIdClient.Value & ", '" & Me.txtReference.Value & "', '" & Me.txtDesignation.Value & "', " & Me.cboidTypeEtude.Value & ", #" & Me.txtDateRecepDde.Value & "#) FROM tblEtudes" MsgBox ("Etude créée sous le n°" & NumAuto), vbOKOnly End Sub

---

J'ai finalement le message d'erreur en pj, erreur 3075.

Je fait "Fin", je sort du formulaire et l'enregistrement est bien crée dans la table !

Avez-vous une idée de pourquoi ce message d'erreur ?

Par avance merci,
@+

P.S. Si je remplace SELECT par VALUES, j'ai l'erreur 3137 en pj avec la même conséquence, je fait "Fin" puis ferme le formulaire et l'enregistrement est bien crée...

Citation:

---

Envoyé par boulap

Je situe le contexte :
- une table "tblEtudes" contenant 6 champs [idEtude], [idClient], [Reference], [Designation], [idTypeEtude], [DateRecepDde]

---

Dans un premier temps, on voudrait bien connaître le type des champs de ta table. C'est indispensable pour écrire correctement la chaîne SQL.

Dans un deuxième temps, comme a dit Starec, je ne pense pas que la clause SELECT soit appropriée dans un INSERT lorsque les données à insérer ne viennent pas directement d'une table mais sont des valeurs de variables ou de contrôles de formulaire.

Citation:

---

Envoyé par Alain36

Dans un premier temps, on voudrait bien connaître le type des champs de ta table. C'est indispensable pour écrire correctement la chaîne SQL.

---

Bonjour,
Voici les type de données :
[idEtude]= Texte, 16 caractères, masque de saisie \E00000000\-000000
[idClient]= Numérique entier long
[Reference]= Texte, 25
[Designation]= Texte, 30
[idTypeEtude]= Numérique entier long
[DateRecepDde]= Date,Heure Masque 00/00/00

Citation:

---

Envoyé par Alain36

Dans un deuxième temps, comme a dit Starec, je ne pense pas que la clause SELECT soit appropriée dans un INSERT lorsque les données à insérer ne viennent pas directement d'une table mais sont des valeurs de variables ou de contrôles de formulaire.

---

J'ai également testé avec le VALUES mais ça ne change pas grand chose comme je l'ai indiqué précédemment ;-)

Merci d'avance.

Alors, essaie la chose suivante :

Code:

---

1 2

oDB.Execute "INSERT INTO tblEtudes(idEtude, idClient, Reference, Designation, idTypeEtude, DateRecepDde)" & _ " VALUES ('" & Me.txtidEtude.Value & "', " & Me.cboIdClient.Value & ", '" & Me.txtReference.Value & "', '" & Me.txtDesignation.Value & "', " & Me.cboidTypeEtude.Value & ", #" & Format$(Me.txtDateRecepDde.Value,'mm/dd/yy') & "#);"

---

Dans une chaîne SQL, les dates doivent être au format anglosaxon (mm/jj/aa) et entourées de #, comme tu l'as mis.

Citation:

---

Envoyé par Alain36

Alors, essaie la chose suivante :

Code:

---

1 2

oDB.Execute "INSERT INTO tblEtudes(idEtude, idClient, Reference, Designation, idTypeEtude, DateRecepDde)" & _ " VALUES ('" & Me.txtidEtude.Value & "', " & Me.cboIdClient.Value & ", '" & Me.txtReference.Value & "', '" & Me.txtDesignation.Value & "', " & Me.cboidTypeEtude.Value & ", #" & Format$(Me.txtDateRecepDde.Value,'mm/dd/yy') & "#);"

---

Dans une chaîne SQL, les dates doivent être au format anglosaxon (mm/jj/aa) et entourées de #, comme tu l'as mis.

---

Lorsque je fait ça, les 2 lignes de le chaine SQL passe en rouge et j'ai "Erreur de syntaxe", je vais essayer de voir pourquoi mais ça me passe en rouge quand je rajoute le

Code:

---

,'mm/dd/yy'

---

Merci

Bonjour

Remplace les simples quotes (') par des doubles quotes (").

Starec

Citation:

---

Envoyé par Starec

Bonjour

Remplace les simples quotes (') par des doubles quotes (").

Starec

---

Effectivement c'est beaucoup mieux ainsi ;-)

Merci encore, un jour j'y arriverais du 1er coup entre les " ' # :-p

@+