Discussion :

[L_layton]

Bonjour,
J'ai fait une requête qui lors de l'appuie sur un bouton exécute la requête. Quand je le fait les date ne sont pas enregistrer et je ne sais pas pourquoi.
Pouvez vous me dire se qui ne vas pas ?

Code :

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

1
2
3
4
5
6
7
Dim SQL As String
Dim DATE_DEBUT As String
Dim DATE_fin As String
DATE_DEBUT = 20/ 5/ 205
DATE_fin = Str(Format(Me.DATE_fin, "yyyy-mm-dd"))
    SQL = "INSERT INTO dbo_PERSONNE (DATE_DEBUT,DATE_FIN,ID_PERSONNE,ID_SERVICE,CLE_AUTORISATION,PARKING) values (" & DATE_DEBUT & "," & DATE_fin & "," & Me.ID_PERSONNE & "," & Me.ID_SERVICE & "," & Me.CLE_AUTORISATION & "," & Me.PARKING & ")"
    DoCmd.RunSQL SQL

merci

[marot_r]

Bonjour.

Je ne sais pas pour le reste mais :

Code :

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

DATE_DEBUT = 20/ 5/ 205

ce n'est pas une date c'est une série de division.

Si tu veux composer une date tu peux faire :

Code :

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

DATE_DEBUT = #5/20/ 205# 'Attention, inversion du mois et du jour.

ou plus certain :

Code :

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

DATE_DEBUT = dateserial(205, 5, 20)

Et je pense que l'année 205 n'est pas dans la plage des valeurs pour les dates valides.

A+

[L_layton]

J'avais mis une date au pif pour voir si cela marchait mais merci beaucoup.
J'ai remarqué que le nom de la table dans la requête n'était pas bonne et après avoir modifié ça ne change rien.
toute mes valeurs sont rentré sauf mes dates

[marot_r]

Bonjour.

le dbo_ dans le nom de la table me laisse penser que c'est une table MS-SQL Server pas Access, si oui vérifie le type vu par Access et bien date et pas autre chose.

Aussi est-ce que tu peux faire une saisie de date manuellement dans la table ?

Enfin essaye de remplacer ton DoCmd.RunSQL par :

Code :

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

1
2
3
dim db as dao.database:set db=currentdb
db.execute(SQL, dbFailOnError)
set db=nothing

Le dbFailOnError te donnera peut-être une piste.

A+

[L_layton]

J'ai essayer et je n'ai aucun message d'erreur. Cependant j'ai remarqué que peut importe la valeurs que je met elle n'est pas prise en compte ( même si je le met dans le select )

[marot_r]

Bonjour.

Tu as juste essayé le Db.Execute ou tu as aussi fait les autres tests suggérés : la saisie manuelle et le type des données ?

A+

[L_layton]

j'ai fait écrit directement avec access dans la table et ça marche. et j'ai tenter de rentrer la chaine sous format string et date donc la j'ai plus trop d'idée

[Jean-Philippe André]

Bonjour,

le format date dans une requete est de type #TonFormatStandard#

aussi dans ton SQL ca donnera :

Code :

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

SQL = "INSERT INTO dbo_PERSONNE (DATE_DEBUT,DATE_FIN,ID_PERSONNE,ID_SERVICE,CLE_AUTORISATION,PARKING) values (#" & DATE_DEBUT & "#,#" & DATE_fin & "#," & Me.ID_PERSONNE & "," & Me.ID_SERVICE & "," & Me.CLE_AUTORISATION & "," & Me.PARKING & ")"

[L_layton]

Bonjour,

le format date dans une requete est de type #TonFormatStandard#

aussi dans ton SQL ca donnera :

Code :

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

SQL = "INSERT INTO dbo_PERSONNE (DATE_DEBUT,DATE_FIN,ID_PERSONNE,ID_SERVICE,CLE_AUTORISATION,PARKING) values (#" & DATE_DEBUT & "#,#" & DATE_fin & "#," & Me.ID_PERSONNE & "," & Me.ID_SERVICE & "," & Me.CLE_AUTORISATION & "," & Me.PARKING & ")"

J'ai essayé et ça ne marche toujours pas. A noté que ma base access est connecté via odbc à une base SQL Server. La base se trouve sous SQL SERVER. Les requêtes access fonctionne normalement mais le problème viens peut être de la.

Code :

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

SQL = "INSERT INTO dbo_AUTORISATION_ACCES (DATE_DEBUT,DATE_FIN,ID_PERSONNE,ID_SERVICE,CLE_AUTORISATION,PARKING) values (#" & DATE_DEBUT & "#,#" & DATE_FIN & "#," & Me.ID_PERSONNE & "," & Me.ID_SERVICE & "," & Me.CLE_AUTORISATION & "," & Me.PARKING & ")"

Quand je avec ce code d'enregistrement j'ai toujours le même problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim t As Recordset
 
Set t = CurrentDb.OpenRecordset("dbo_AUTORISATION_ACCES", DB_OPEN_DYNASET)
t.AddNew
'Ajout des enregistrements dans la table MaTable
 
t![ID_PERSONNE] = Me.ID_PERSONNE
t![ID_SERVICE] = Me.ID_SERVICE
t![CLE_AUTORISATION] = Me.CLE_AUTORISATION
t![PARKING] = Me.PARKING
t![DATE_DEBUT] = Me.DATE_DEBUT
t![DATE_FIN] = Me.DATE_FIN

edit :
Je viens de remarquer que je peux saisir des dates à la seule condition que mon champs soit liée et que j'utilise le bouton de base access pour enregistrer. Le problème c'est que le datepicker disparait quand le champs est liée à la colonne date début
re edit :
access considère mes champs dates comme des strings alors que la base créer sur SQLServer les considère comme des date. donc comment je peux faire pour que Access les considère comme des dates comme tel ?