Bonsoir,

J'ai un problème avec la requête insert into ou du moins le Execute d'après le débogueur. J'ai testé l'insert into par une requête SQL via le menu requête dans Access et ce la fonctionne.
Donc qu'es ce que j'ai mal fait?
Si vous avez la solution ou une piste vers la solution, je suis tout ouï.

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
 
Private Sub Form_Open(Cancel As Integer)
 
    DoCmd.Maximize
 
    Dim cnConnection As ADODB.Connection
    Set cnConnection = New ADODB.Connection
 
    cnConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnConnection.ConnectionString = CurrentProject.Path & "\xxxxxxxxx.mdb"
    cnConnection.Open
 
 
    Dim cmdCommand As ADODB.Command
    Set cmdCommand = New ADODB.Command
    cmdCommand.ActiveConnection = cnConnection
 
 
    Dim strSql As String
    strSql = "INSERT INTO log "
    strSql = strSql & " (dateLog,type,position,tableLog,commentaire)"
    strSql = strSql & " VALUES ( '" & Now() & "','Information','Debut','Aucune','Lancement du formulaire')"
 
    Debug.Print strSql
 
    cmdCommand.CommandText = strSql
 
    cmdCommand.Execute
 
    cnConnection.Close
 
End Sub
Erreur d'execution '-2147217900 (80040e14)':
Erreur de syntaxe dans l'instruction INSERT INTO
La table log :
numLog : NuméroAuto
dateLog : Date/Heure
type : Texte (50)
position : Texte(50)
tableLog : Texte(50)
commentaire : Texte(255)


Merci d'avance