Discussion :

[marcmarc150]

bonjour,
J'ai une erreur de syntaxe 3134
Je planche depuis le matin dessus, mais je ne vois pas ...

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
 
  Private Sub cloturer_suivi_ext_interne_lieux_Click()
Dim LResponse As Integer
Dim sCommandSql As String
 
    If IsNull(Me.date_reel_suivi_interne_lieux) Then
        Me.cloturer_suivi_ext_interne_lieux = 0
        MsgBox "Le champ DATE REEL doit être complété.", vbCritical
        Exit Sub
 
    Else
 
        LResponse = MsgBox("Valider le contrôle ...", vbYesNo, "Continue")
        If LResponse = vbYes Then '
            DoCmd.SetWarnings False
            sCommandSql = "INSERT INTO tbl_suivi_ext_interne_lieux (num_suivi_ext_interne_lieux, periodicite_suivi_ext_interne_lieux, " & _
                    "date_suivi_ext_interne_lieux, date_suivante_suivi_ext_interne_lieux, entreprise_controle_suivi_ext_interne_lieux, fk_id_lieux) " & _
                "VALUES ('" & Me.num_suivi_ext_interne_lieux.Value & "', " & Me.periodicite_suivi_ext_interne_lieux.Value & ", " & _
                    "#" & Format(Me.date_reel_suivi_interne_lieux.Value, "mm/dd/yyyy") & "#, " & _
                    "#" & Format(DateAdd("d", Me.periodicite_suivi_ext_interne_lieux.Value, Me.date_reel_suivi_interne_lieux.Value), "mm/dd/yyyy") & "#, " & _
                    "'" & Me.entreprise_controle_suivi_ext_interne_lieux.Value & "', " & Me.fk_id_lieux.Value & ");"
            DoCmd.RunSQL sCommandSql
            DoCmd.SetWarnings True
            Me.Requery
 
Else
 
            Me.date_reel_suivi_interne_lieux = ""
            Me.cloturer_suivi_ext_interne_lieux = 0
        End If
        Me.Requery
    End If
 
 
End Sub

En copie jpeg la table, quelle est mon erreur ???

Marcmarc150

[marcmarc150]

Re bonjour,
Après moult recherches....j'ai trouver mon erreur....

Erreur de dénomination du fK_id_site

Merci a tous

Marcmarc150