Discussion :

[norel38]

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 :

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

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 :

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

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

[Invité]

Bonjour

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

Code :

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

1
2
 
' " & la_date & " '

à transformer en

Code :

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

1
2
 
# " & la_date & " #

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

Starec

[norel38]

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 #);

[Invité]

Re

Et Résultat ?

Starec

[norel38]

toujours la même erreur

[Invité]

Re

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

Starec

[norel38]

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

[soltani1]

Bonjour,

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

mois/jour/année

A+

[Invité]

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

[norel38]

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?

[Invité]

Re

Petite explication tirée de la FAQ

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

Starec

[Guennec.Yannick]

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.

[norel38]

ok

je vais tester

merci

[norel38]

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

[Invité]

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

[norel38]

resolu.

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

merci