Discussion :

[skeut]

Bonjour,

Je cherche à insérer une date dans une table via VBA Access (lors de la saisie d'une demande dans la table Demandes via un formulaire, insertion automatique d'une tâche dans la table Taches).

J'ai essayé de tenir compte de tout ce qu'il faut, #date#, format américain, etc... mais j'ai toujours le message d'erreur suivant:

Erreur d'execution '-2147217913 (80040e07)'
Erreur de syntaxe dans la date dans l'expression '#02.18.2006#'.

Est-ce que l'un d'entre vous à une idée ? Mon code est ci-dessous et déclenché après MAJ du formulaire de saisie de la demande.

Merci d'avance et salutations.

________________________________

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Ajout d'une tâche dans la table Taches
 
Public Sub ajoutTache()
 
' Connexion à la BD
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
 
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=c:\WorStat\WorStatData.mdb;"
 
cnn.Open strCnn
 
'Insertion d'une tâche
Dim cmdInsert As New ADODB.Command
Dim strInsert As String
 
Dim ID As Long
Dim etat As Boolean
 
ID = genereIDTache(cnn)
etat = False
 
strInsert = "INSERT INTO Taches (Numero,Num_Demande,IDTache,DateExecution,EstTerminee) VALUES (" & ID & "," & Screen.ActiveForm!ztIDDemande & "," & ID & ",#" & Format(Screen.ActiveForm!ztDateDebutTraitement, "mm/dd/yyyy") & "#," & etat & ")"
 
 
cnn.BeginTrans
With cmdInsert
    .ActiveConnection = cnn
    .CommandText = strInsert
    .CommandType = adCmdText
    .Execute
End With
 
cnn.CommitTrans
 
cnn.Close
Set cnn = Nothing
 
End Sub

mod : cafeine,

[keita]

salut
dans ceci:

Erreur de syntaxe dans la date dans l'expression '#02.18.2006#'.

ta date est notée avc des points; essai avc des barres;
i.e comme: 02/18/2006
@+

[skeut]

Salut Keita,

merci pour la réponse.

C'est effectivement à cause des "points" au lieu des "/". POur que ça fonctionne, je dois changer les paramètres régionnaux (format de la date) pour que ça fonctionne mais ça ne me convient pas.

Je pensais qu'en formatant la date comme ceci

Code :

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

Format(Screen.ActiveForm!ztDateDebutTraitement, "mm/dd/yyyy")

la conversion était faite; ce n'est pas le cas.