Insertion d'une date dans une table avec vba
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:
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, :tagcode: :merci:
