[VBA]probleme insertion date

bonjour,

j'ai une table stock_membres
avec un champs date/heure au format date,abrégé DD/MM/YYYY

Quand je realise l'insert dans cette table sans le champ date ca fonctionne.
mais avec le champ date j'ai une erreur 3134

Voici mon code

Code:

---

1 2 3 4 5 6 7 8

dim strsql as string dim la_date as date dim nbsachets as integer   la_date = date nbsachet = me.cartons * 4   strsql = " insert into stock_membres (id_num_membres,nbre_cartons,nbre_sachets,date) values (' " & me.num_membres & " ,' " & me.cartons & " ', ' " & nbsachet & " ', ' " & la_date & " ');"

---

voici ce que j'obtiens

Code:

---

insert into stock_membres (id_num_membres,nbre_cartons,nbre_sachets,date) values ('1','2','8','23/03/2007');

---

Bonjour

Tu insères une date dans un champ date, il faut donc la mettre entre #

Code:

---

1 2	' " & la_date & " '

---

à transformer en

Code:

---

1 2	# " & la_date & " #

---

De plus quand c'est des nombres pas de ', c'est pour le texte.

Starec

j'ai remplacé les ' par #

strsql = " insert into stock_membres (id_num_membres,nbre_cartons,nbre_sachets,date) values (' " & me.num_membres & " ,' " & me.cartons & " ', ' " & nbsachet & " ', # " & la_date & " #);"

et maintenant j'ai ca:
insert into stock_membres (id_num_membres,nbre_cartons,nbre_sachets,date) values ('1','2','8',# 23/03/2007 #);

Re

Et Résultat ?

Starec

toujours la même erreur

Re

Inverse ton jour et ton mois grâce à la fonction format :f1:, pour passer au format anglosaxon.

Starec

pourquoi convertir en format anglosaxon?

mon champs en base: DD/MM/YYYY
la date est bien dans le même format: 23/02/2007?

merci

Bonjour,

Starec t'a donné la réponse, la date doit être mm/jj/aaaa.

mois/jour/année

A+

Re
Petit complément d'information

Lorsque tu es en VBA, tu dois adopter une syntaxe anglosaxonne pour les dates.

Ton jour étant le 23, VB interpréte cela comme un mois.

Starec

je veux bien suivre les instruction de starec mais je ne comprends pas le lien avec le format anglo saxon car j'ai bien en base un champs en format de date abrégé (DD/MM/YYYY).

Dans mon formulaire ma zone de texte est aussi au format DD/MM/YYYY.

insert into stock_membres (id_num_membres,nbre_cartons,nbre_sachets,date) values ('1','2','8',# 23/03/2007 #);

Donc pourquoi convertir?

Re

Petite explication tirée de la FAQ

http://access.developpez.com/faq/?page=dates#DateFormat

Starec

Je ne suis pas sur mais il me semble que le moteur jet de access n'utilise que le format anglosaxon et qu'il vaut mieux faire les requettes dans ce format.

ok

je vais tester

merci

toujours le même probleme: erreur 3134.

voici mon code.

Private Sub Commande4_Click()
Dim strsql As String
Dim la_date As Date
Dim nbsachets As Integer
Dim varX As Variant
Dim vl_id_num_membres As Integer

la_date = date
nbsachets = Me.stock_membres_billes_nbcartons * 4

varX = DLookup("[id_num_membres]", "stock_membres_billes", "[id_num_membres] =" & Forms![stock_membres_billes]!stock_membres_billes_rech.Column(2))

'MsgBox (" num_membres_rech ")
'MsgBox (Me.stock_membres_billes_rech.Column(2))

'MsgBox (" varx ")
'MsgBox (varX)

If varX = Val(Me.stock_membres_billes_rech.Column(2)) Then


MsgBox ("trouve")
strsql = "update stock_membres_billes set nbre_de_cartons = '" & Me.stock_membres_billes_nbcartons & "';"
MsgBox (" strsql ")


'MsgBox (strsql)
'DoCmd.RunSQL (strsql)

Else
MsgBox ("pas trouve")

strsql = "Insert into stock_membres_billes (id_num_membres,nbre_de_cartons,nbre_de_sachets,date) values ('" & Me.stock_membres_billes_rech.Column(2) & "','" & Me.stock_membres_billes_nbcartons & "','" & nbsachets & "',' " & Format(la_date, "mm/dd/yyyy") & " ');"
MsgBox (strsql)
DoCmd.RunSQL (strsql)

End If

Bonjour

Attention Heureux-Oli ta déjà sanctionné pour les balises de ton code

Réedite ton post (bouton Editer) et met les balises codes de début et fin autour de ton code, c'est le #.

On comprendra mieux, et redis nous sur quel ligne est l'erreur et le message de l'erreur, pas seulement le numéro.

Starec

resolu.

j'ai renommé mon champs de la table en date_modification au lieu de date.

merci