Discussion :

[priest69]

Bonjour,

J'ai une table ERREUR_POINTAGE qui contient les champs suivants :

Code :

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

1
2
3
NumErreur (numéroauto)
IDsalarie (numérique)
Date (Date/heure)

et ma requête d'insertion :

Code :

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

CurrentDb.Execute "Insert Into ERREUR_POINTAGE Values(""" & RstPersonne!code & """, """ & TxtDate & """)"

J'ai aussi essayé avec une variable i dans le 1ere champ, mais ca n'a pas l'air de fonctionner (l'incrémentation merdouille !)

J'imagine qu'il existe un moyen ?

Merci

[cafeine]

Hello,

tu peux essayer un truc du genre

Code :

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

docmd.RunSQL "INSERT INTO ERREUR_POINTAGE Values( " & DMax( "NumErreur", "ERREUR_POINTAGE") + 1 & ", """ & RstPersonne!code & """, """ & TxtDate & """)"

[priest69]

Arf, problème de synthaxe INSERT INTO ... j'ai essayé de débugger, mais je ne vois pas ce qui merde

[Petogaz]

salut,

ton champ Date est de type Date donc ta variable doit avoir des # pour qu'il accepte l'insertion.
essais :

Code :

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

docmd.RunSQL "INSERT INTO ERREUR_POINTAGE Values( " & DMax( "NumErreur", "ERREUR_POINTAGE") + 1 & ", """& RstPersonne!code & """, "#" & TxtDate & "#")"

[Alexandre Sahli]

tu devrais naturellement lui dire où tu veux placer tes valeurs

donc

Code :

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

1
2
 
docmd.RunSQL "INSERT INTO ERREUR_POINTAGE ( IDsalarie , Date) Values ('"& RstPersonne!code & "' , " & Chr(35) &  TxtDate & Chr(35) &");"

A+

[Petogaz]

tu devrais naturellement lui dire où tu veux placer tes valeurs

petite rectification :
il n'est pas nécessaire de préciser les champs de la table quand on veux insérer dans tous les champs d'une table. seulement si l'insertion ne concerne que quelques champs.

[priest69]

Apparement le problème persiste ...

Code :

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

CurrentDb.Execute "INSERT INTO ERREUR_POINTAGE ([NumErreur],[IDsalarie], [date]) Values(" & DMax("NumErreur", "ERREUR_POINTAGE") + 1 & ", """ & RstPersonne!code & """, ""#" & TxtDate & "#"")"

A en croire le problème de synthaxe persiste ... le Dmax() me permet de rechercher la dernière valeur puis de l'incrémenter ... Je me demande si je ne dois pas l'exclure dans un 1er temps (faire le calcul en dehors de mon Insert puis récupérer la valeur de la variable ?)

[cafeine]

inutile d'exclure le DMax() je l'ai déjà testé, en revanche penche toi sur le format de date qui doit être US.

Il n'est peut être pas inutile de parcourir mon tutoriel qui porte précisément sur le débogage de SQL construit par VBA.

par exemple : faire un debug.print et copier / coller ton SQL dans une requête vierge.

[pgz]

Bonjour,

As-tu essayé

Code :

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

CurrentDb.Execute "INSERT INTO ERREUR_POINTAGE ([IDsalarie], [date]) Values("  & RstPersonne!code & ",  #" & TxtDate & "# )"

?


Peut-être faudra-t-il mettre un Format sur txtDate, ou si c'est effectivement un texte, remplacer les dieses par des quotes?

Bonne chance,

pgz

[Alexandre Sahli]

bien sur que c'est normal que le problème persiste.
Le numéro automatique c'est access qui le gère et personne d'autre donc tu ne peux naturellement pas lui donner une valeur!!


A+

[cafeine]

bien sur que c'est normal que le problème persiste.
Le numéro automatique c'est access qui le gère et personne d'autre donc tu ne peux naturellement pas lui donner une valeur!!


A+

faux

Code :

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

DoCmd.RunSQL "INSERT INTO tblClients VALUES ( " & dmax("cle", "tblclients") + 1 & " , 'Toto', #12/31/2006#, 3)"

ce code fonctionne très bien

[Alexandre Sahli]

Ok j'ai toujours pensé que ce n'était pas possible.
Il faut toutefois se poser la question du numauto, Pourquoi lui attribuer une valeur alors qu'access le fait tout seul!

[Petogaz]

la bonne syntaxe c'est Pz qui l'a j'ai du rajouté des " en trop pour la variable TxtDate
et n'oublis pas de vérifier le format date :

Code :

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

CurrentDb.Execute "INSERT INTO ERREUR_POINTAGE ([IDsalarie], [date]) Values("  & RstPersonne!code & ",  #" & format(TxtDate,"mm/dd/yyyy") & "# )"