Discussion :

[JeremieT]

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 :

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

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,
@+

[Jean-Philippe André]

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 ?

[Invité]

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

[JeremieT]

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

[Invité]

Tu as toujours le SELECT au lieu du VALUES.

Starec

[JeremieT]

Bonjour à vous 2, bonjour à tous !

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

Code :

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

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

[Alain36]

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.

[JeremieT]

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

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.

[Alain36]

Alors, essaie la chose suivante :

Code :

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

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.

[JeremieT]

Alors, essaie la chose suivante :

Code :

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

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 :

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

,'mm/dd/yy'

Merci

[Invité]

Bonjour

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

Starec