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,