Discussion :

[moilou2]

Bonjour, j'ai un problème de syntaxe dans mon instruction INSERT TO suivante:

Code :

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

1
2
3
sql = "insert into tbl_HistoriqueMaintenancePréventive values (" & id_HistoriqueMaintenancePréventive & ", '" & ID_MaintenancePréventive & "' ," & ID_Personnel & "," & Date & ", " & DatePrevueInitialement & ", '" & Commentaire & "', " & DuréeIntervention & " )"
 
odb.Execute (sql)

Je pense que le problème vient du fait que en mode débugage en analisant champs par champs, " & id_HistoriqueMaintenancePréventive & "=Null.

Voila comment ce dernier est obtenu

Code :

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

1
2
3
4
5
6
7
8
sql = "Select Max(ID_HistoriqueMaintenancePréventive) from tbl_HistoriqueMaintenancePréventive"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
 
   If oRst.RecordCount > 0 Then
    id_HistoriqueMaintenancePréventive = oRst.Fields(0).value + 1
    Else
    id_HistoriqueMaintenancePréventive = 1
    End If

Ce qui est bizard, c'est que lors de l'exectution, le code passe par le then, ce qui signifie que id_HistoriqueMaintenancePréventive, ne devrais pas être égal à Null?

Je suis un peu dérouté là...

[6ril25]

Salut,

juste pour être sûr: id_HistoriqueMaintenancePréventive n'est pas une clé primaire auto-incrémentée?...

[moilou2]

Non c'est une donnée de type numérique

[6ril25]

et quel est le message d'erreur?

[moilou2]

Erreur 3134

Erreur de syntaxe dans l'instruction INSERT TO

[6ril25]

et avant le .execute, tu peux mettre un msgbox sql et nous donner le contenu de ta requête, stp

[moilou2]

Tu présente sa comment l'insertion de la MsgBox?

[6ril25]

comme ça:

Code :

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

1
2
3
4
5
6
 
sql = "insert into tbl_HistoriqueMaintenancePréventive values (" & id_HistoriqueMaintenancePréventive & ", '" & ID_MaintenancePréventive & "' ," & ID_Personnel & "," & Date & ", " & DatePrevueInitialement & ", '" & Commentaire & "', " & DuréeIntervention & " )"
 
msgbox sql
 
odb.Execute (sql)

[moilou2]

Voila la fenetre en pièce jointe

[6ril25]

oki, y' plein de champs vide dans ta requête, d'où les erreurs.

tu peux me dire ce que donne la msgbox:

Code :

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

1
2
3
4
5
6
7
8
9
sql = "Select Max(ID_HistoriqueMaintenancePréventive) from tbl_HistoriqueMaintenancePréventive"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
 
   If oRst.RecordCount > 0 Then
msgbox oRst.Fields(0).value
    id_HistoriqueMaintenancePréventive = oRst.Fields(0).value + 1
    Else
    id_HistoriqueMaintenancePréventive = 1
    End If

[moilou2]

Code :

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

1
2
3
4
5
6
7
8
If oRst.RecordCount > 0 Then

   MsgBox oRst.Fields(0).value

    ID_HistoriqueMaintenancePréventive = oRst.Fields(0).value + 1
    Else
    ID_HistoriqueMaintenancePréventive = 1
    End If

Sa ma met Utilisation incorrecte de Null

[6ril25]

oki,
tu peux essayer ça:

Code :

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

1
2
3
4
5
6
7
8
9
sql = "Select Max(ID_HistoriqueMaintenancePréventive) As MaxId from tbl_HistoriqueMaintenancePréventive"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
 
   If oRst.Fields("MaxId").value > 0 Then
msgbox oRst.Fields("MaxId").value
    id_HistoriqueMaintenancePréventive = oRst.Fields("MaxId").value + 1
    Else
    id_HistoriqueMaintenancePréventive = 1
    End If

[moilou2]

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub CmdValider_click()
 
Dim ID_MaintenancePréventive As Variant, ID_Personnel As Variant, DuréeIntervention As Variant
Dim sql As String, Commentaire As String
Dim DateMaintenancePréventive As Date, DatePrevueInitialement As Date
Dim oRst As DAO.Recordset
Dim odb As DAO.Database
 
If Me.txtIDDemande.Caption = "null" Then Exit Sub
 
Set odb = CurrentDb
 
ID_MaintenancePréventive = Me.txtIDDemande.Caption
 
If Nz(Me.txtCommentaire, "") = "" Then
Commentaire = ""
Else
Commentaire = Me.txtCommentaire.value
End If
 
Commentaire = Replace(Commentaire, "'", "''")
 
DuréeIntervention = Me.listeDurée
 
sql = "select * from tbl_MaintenancePréventive where id_MaintenancePréventive = " & ID_MaintenancePréventive & ";"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
ID_Périodicité = oRst.Fields("ID_Périodicité").value
DatePrevueInitialement = oRst.Fields("DateProchaineIntervention").value
 
sql = "Select NombreDeJours from tbl_Périodicité where ID_Periodicité = " & ID_Périodicité & ""
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
 
ProchaineIntervention = oRst.Fields("NombreDeJours").value + Date
 
sql = "Update tbl_MaintenancePréventive set DateDerniéreIntervention=#" & Date & "#, DateProchaineIntervention = #" & ProchaineIntervention & "#  where  ID_MaintenancePréventive =" & ID_MaintenancePréventive & ";"
odb.Execute (sql)
 
sql = "Select Max(ID_HistoriqueMaintenancePréventive) As MaxId from tbl_HistoriqueMaintenancePréventive"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
 
   If oRst.Fields("MaxId").value > 0 Then
MsgBox oRst.Fields("MaxId").value
    id_HistoriqueMaintenancePréventive = oRst.Fields("MaxId").value + 1
    Else
    id_HistoriqueMaintenancePréventive = 1
    End If
 
ID_Personnel = Me.listeIntervenant
 
sql = "insert into tbl_HistoriqueMaintenancePréventive values (" & id_HistoriqueMaintenancePréventive & ", '" & ID_MaintenancePréventive & "' ," & ID_Personnel & "," & Date & ", " & DatePrevueInitialement & ", '" & Commentaire & "', " & DuréeIntervention & " )"
 
odb.Execute (sql)
 
MsgBox ("Votre Intervention a été correctement enregistrée")
DoCmd.Close
Form_SignalerMaintenancePreventiveTerminé.Refresh
 
End Sub

Je te remet tout pour voir si j'ai mis sa au bon endroit, mais du coup, sa bloque directement sur le sql, et l'erreur du "Erreur de syntaxe dans l'instruction INSERT TO" Revient de plus belle...

[6ril25]

tu peux me donner TOUS les noms de champs et leur format de la table tbl_HistoriqueMaintenancePréventive, stp