probleme date enregistrement dans table

Question

bonjour, 
J'ai besoin d'un peu d'aide. J'ai crée une base de données access pour gerer les emprunt d'une bibliothèque. et à partir de mon formulaire je souhaite enregistrer dans ma table le retour d'un livre. J'ai crée un bouton et en j'ai un code vba avec un requete d'insertion. 
Voici le code 

Private Sub cmdenregistrer_Click()
Dim 
Req As String
Req = "Insert INTO Retour values ( " & ldnum_livre.Value & ", " & lmcode_agent.Value & " , " & 
date_emprunt.Value & " , "
Req = Req & date_retour.Value & ") ; "

 

DoCmd.RunSQL (Req)
MsgBox ("Retour 
enregistré")
End Sub
Tous s'enregistre dans ma table mais le problème c'est qu au  lieu d'enregistrer la date que je saisi il met la date par defaut d'access soit 30/12/1899. Avez vous un idée d'ou ca peut venir?
merci 
Soph

cs_Exploreur · Answer

Salut,

Il faut sûrment donnée à "date_emprunt.Value" la date à l'instant T, du style : 

Date_emprunt.Value = FormatDateTime ( now, vbShortDate)

Car à mon avis, à un moment du ne doit pas prendre la date actuelle...
A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Ne pas oublié aussi, que les date dans une requête doivent avoir un format bien précis et être entourées de #...............#

A+
Exploreur

 Linux a un noyau, Windows un pépin

fofy39 · Answer

Je vien d'essayer ta solution mais ca ne marche pas non plus .
Il me met toujours la date de 1899
Mais merci kan meme

Renfield · Answer

date_emprunt.Value  vaut surement 0

#MM/DD/YYYY#   je dirai même, Exploreur

cs_Exploreur · Answer

Salut Renfield,

Je ne peux être que d'accord...

A+
Exploreur

 Linux a un noyau, Windows un pépin

fofy39 · Answer

Slt 
ca ne veut toujours pas marcher ! Meme en suivant vos conseils et vos solutions !  d' autre idée ???
merci 
Soph 
[javascript:Insert_Emoticon('/imgs2/smile_shy.gif'); ][javascript:Insert_Emoticon('/imgs2/smile_shy.gif'); ][javascript:Insert_Emoticon('/imgs2/smile_shy.gif'); ]

cs_Exploreur · Answer

Salut,


Je serai bien tenté de faire un truc du genre :



Req = "Insert INTO Retour values ( " & ldnum_livre.Value & ", " & lmcode_agent.Value & " , # " & Format$(Date, "MM/DD/YYYY") & " # )"


A+
Exploreur

 Linux a un noyau, Windows un pépin

chaibat05 · Answer

Salut,
c' est quoi date_retour ? un DTPicker ?
Si c' est ça , fais en sorte que sa valeur pr défaut soit la date du jour.

<hr />

Renfield · Answer

Gaffe, Exploreur...

Format$(Date, "MM/DD/YYYY")  

a remplacer par 

Format$(Date, "MM\/DD\/YYYY") 

sinon, le \ sera interprété comme le séparateur de dates courtes, et tu pourrais avoir en sortie un '.' ou un '-', selon les paramètre régionnaux.

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Salut Renfield,

En voilà encore une de gaffe(for me)!!!

On refait :
Req = "Insert INTO Retour values ( " & ldnum_livre.Value & ", " & lmcode_agent.Value & " , # " & Format$(Date, "MM\/DD\/YYYY") & " # )"

Par contre ce que dis Chabait05(que je salue) est logique, si sa date vient d'un Dtpicker, alors il faut qu'il initialise celui-ci :

Private Sub Form_Load()
Dtpicker1.Value = Format$(Date, "MM\/DD\/YYYY") << Format pour requête
OU
Dtpicker1.Value = Format$(Date, "DD\/MM\/YYYY") 
End Sub
A+
Exploreur

 Linux a un noyau, Windows un pépin

chaibat05 · Answer

Salut Exploreur,
C' est tout à fait ça; il faut l' initialiser au Load du formulaire.
Seulement,(re-gaffe :-))
Private Sub Form_Load()
  Dtpicker1.Value = Format$(Date, "MM\/DD\/YYYY") << Format pour requête
  OU
  Dtpicker1.Value = Format$(Date, "DD\/MM\/YYYY") 
End Sub
n' est valable que si tu as personnalisé la propriété Format au format spécifié.
Sinon Dtpicker1.Value=Date marche aussi bien puisque le DTpicker s' aligne 
automatiquement aux paramètres régionnaux.

a++

<hr />® l l i n g , l' agité du bocal : 
   Etre une heure, une heure seulement..Rien qu' une heure,
   Vert, vert, vert et beau à la foooooooooooooooooooooooois.

Probleme date enregistrement dans table

11 réponses

Votre réponse

Discussions similaires