Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/09/2011, 10h25   #1
Membre du Club
 
Inscription : novembre 2003
Messages : 99
Détails du profil
Informations forums :
Inscription : novembre 2003
Messages : 99
Points : 44
Points : 44
Par défaut Problème d'insertion de date

Bonjour à tous. J'ai un problème pour insérer une date dans un champ d'une table par le code.
Code :
1
2
chrSQL = "insert into caisse (datecaisse , montantcaisse , refoperation) values (" & DateDepense & ", " & MontantDepense & ",  " & RefOperation & ") "
CurrentDb.Execute chrSQL
l'insertion s'effectue mais quelque soit la valeur du champ [DateDepense] la valeur insérée est "30/12/1899".

Les champs à insérer sont récupérés à partir d'un formulaire de saisie.
Merci d'avance pour l'aide.
s.rais est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/09/2011, 11h05   #2
Rédacteur/Modérateur
 
Avatar de Dolphy35
 
Homme Morgan BILLY
Technicien de Production
Inscription : octobre 2004
Messages : 4 103
Détails du profil
Informations personnelles :
Nom : Homme Morgan BILLY
Âge : 33
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Technicien de Production
Secteur : Industrie

Informations forums :
Inscription : octobre 2004
Messages : 4 103
Points : 8 728
Points : 8 728
Bonjour,

Code :
1
2
chrSQL = "insert into caisse (datecaisse , montantcaisse , refoperation) values (#" & DateDepense & "#, " & MontantDepense & ",  " & RefOperation & ");"
CurrentDb.Execute chrSQL
Les dates doivent être encapsulées de #.
si refOperation est une chaîne de caractères bien penser à '

Dolphy
__________________
Personnaliser la vue Backstage d'Access 2010
Découvrez avec nous Office 2010
Je ne réponds pas aux questions techniques par MP
Dolphy35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/09/2011, 11h06   #3
Membre confirmé
 
Avatar de lelensois16
 
Homme Romain M.
Étudiant
Inscription : avril 2009
Messages : 167
Détails du profil
Informations personnelles :
Nom : Homme Romain M.
Localisation : France, Nord (Nord Pas de Calais)

Informations professionnelles :
Activité : Étudiant
Secteur : Conseil

Informations forums :
Inscription : avril 2009
Messages : 167
Points : 204
Points : 204
Bjr,

Sous Access et VBA , les transypages sont assez légions ... donc si on veut éxécuter une requête avec une valeur date :

Code :
 SQL = " Select * From Table Where Date = #" & ChpDate & "# "
Cdt
lelensois16 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/09/2011, 20h56   #4
Membre du Club
 
Inscription : novembre 2003
Messages : 99
Détails du profil
Informations forums :
Inscription : novembre 2003
Messages : 99
Points : 44
Points : 44
Merci beaucoup. ça marche
s.rais est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 21h51.


 
 
 
 
Partenaires

Hébergement Web