Création automatique d'enregistrement à partir d'intervalles dates

**User** · 25/11/2016, 21h27

De rien,

Pouvez-vous clore la discussion ?

Cdlt,

PS: personnellement pour ce genre d'opération j'utilise plutôt les recordset

**kh.lakehal** · 26/11/2016, 13h34

bonjour,

Voici le code final pour l'ajout des dates, pourriez-vous jeter un œil, j'ai un message d'erreur : Erreur de synutaxe dans l'instruction INSERT INTO

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
Private Sub CmdAdd_Click()
Confirme = MsgBox("Voulez-vous ajouter ces dates sur le planning ?", vbYesNoCancel)
Select Case Confirme
Case vbYes:
    DtDeb = Me.DateD
    DtFin = Me.DateF
    Num_Contrat = Me.IDContrat
    Nom_Enfant = Me.Enfant
    Nom_Garde = Me.Garde
    Num_Groupe = Me.Groupe
    Nb_Place = Me.Place
    Nom_Employe = Me.AffectéA
    Nom_Utilisateur = Me.SaisiPar
    Date_Saisi = Me.DateCréation
 
    '
        For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        DateC = DtDeb + Boucle
        j = Weekday(DateC, 2)
        If Me("Jour" & j).Value = True Then
        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO Planning ( IDContrat, Enfant, Garde, Groupe, Place, AffectéA, SaisiPar, DateCréation, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, " & Nom_Garde & " AS Nom_Garde, " & Num_Groupe & " AS Num_Groupe, " & Nb_Place & " AS Nb_Place, " & Nom_Employe & " AS Nom_Employe, " & Nom_Utilisateur & " AS Nom_Utilisateur, #" & Format(DateCréation, "mm-dd-yyyy") & " # AS Date_Saisi, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
        DoCmd.SetWarnings True
        End If
        Next
 
    MsgBox ("Les gardes ont été ajoutés sur le planning selon les dates indiquées")
    DoCmd.Close
    Case vbNo:  Me.Undo ' Non : On annule les changements...
                DoCmd.Close '  ... et on ferme
    Case vbCancel: ' Rien ne se passe : On reste dans le formulaire
End Select
End Sub

Merci

**kh.lakehal** · 26/11/2016, 13h46

Envoyé par User

De rien,

Pouvez-vous clore la discussion ?

Cdlt,

PS: personnellement pour ce genre d'opération j'utilise plutôt les recordset

Pourriez-vous jeter un coup d'oeil sur le code ci-dessus ? si vous avez des suggestions, je suis preneur ...

**tee_grandbois** · 26/11/2016, 14h28

Bonjour,
remplace les doubles quote du formatage de tes dates par des simples quote cela devrait résoudre ton problème :

Code :

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

...#" & Format(DateCréation, 'mm-dd-yyyy') & " # AS Date_Saisi,"...

et l'alias des champs n'est pas nécessaire dans une instruction SELECT quand c'est pour une utilisation dans un INSERT INTO dans du code VBA.

**kh.lakehal** · 26/11/2016, 19h14

Bonjour,

Merci de ton retour,

Le code suivant fonctionne très bien :

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
Private Sub CmdAdd_Click()
Confirme = MsgBox("Voulez-vous ajouter ces dates sur le planning ?", vbYesNoCancel)
Select Case Confirme
Case vbYes:
    DtDeb = Me.DateD
    DtFin = Me.DateF
    Num_Contrat = Me.IDContrat
    Nom_Enfant = Me.Enfant
    '
        For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        DateC = DtDeb + Boucle
        j = Weekday(DateC, 2)
        If Me("Jour" & j).Value = True Then
        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
        DoCmd.SetWarnings True
        End If
        Next
 
    MsgBox ("Les gardes ont été ajouté sur le planning selon les dates indiqués")
    DoCmd.Close
    Case vbNo:  Me.Undo ' Non : On annule les changements...
                DoCmd.Close '  ... et on ferme
    Case vbCancel: ' Rien ne se passe : On reste dans le formulaire
End Select
End Sub

A partir du moment ou je rajoute d'autres champs, j'ai un message d'erreur ...

**tee_grandbois** · 26/11/2016, 19h31

A partir du moment ou je rajoute d'autres champs, j'ai un message d'erreur ...

Quel message d'erreur ? Quels sont les champs qui posent problème ?

**kh.lakehal** · 26/11/2016, 19h43

Envoyé par tee_grandbois

Quel message d'erreur ? Quels sont les champs qui posent problème ?

J'ai le message d'erreur suivant : Erreur de syntaxe dans l'instruction INSERT INTO

n'importe quel champ ...

en PJ une copie d’écran de mes deux tables: Planning et Contrat Nom : 26-11-2016 19-41-10.jpg
Affichages : 196
Taille : 50,8 Ko

Nom : 26-11-2016 19-41-10.jpg
Affichages : 196
Taille : 50,8 Ko

Nom : 26-11-2016 19-41-39.jpg
Affichages : 145
Taille : 63,8 Ko

**tee_grandbois** · 26/11/2016, 20h10

Ok, il faut regarder le résultat de la construction de la requête.
Peux-tu remplacer ceci :

Code :

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

CurrentDb.Execute "INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"

par :

Code :

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

1
2
3
4
        Dim stSQL As String
		stSQL = "INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
		Debug.Print stSQL
		CurrentDb.Execute stSQL

et poster le résultat du Debug.Print qui s'est édité dans la fenêtre d'exécution de VBA ?

**kh.lakehal** · 26/11/2016, 20h50

Ce code fonctionne à l'origine;

résultat d'exécution :

Code sql :

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

1
2
3
4
5
6
7
8
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-07-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-14-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-21-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-28-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-07-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-14-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-21-2016# AS Jour;
INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT 35 AS Num_Contrat, 6 AS Nom_Enfant, #11-28-2016# AS Jour;

**tee_grandbois** · 26/11/2016, 21h53

Et qu'est-ce qui provoque l'erreur ?

**kh.lakehal** · 26/11/2016, 21h59

Envoyé par tee_grandbois

Et qu'est-ce qui provoque l'erreur ?

Quand je modifie le code en rajoutant des champs supplémentaires

**tee_grandbois** · 26/11/2016, 22h32

Montre le code sinon on ne peut pas trouver !

**kh.lakehal** · 26/11/2016, 23h41

Envoyé par tee_grandbois

Montre le code sinon on ne peut pas trouver !

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
Private Sub CmdAdd_Click()
Confirme = MsgBox("Voulez-vous ajouter ces dates sur le planning ?", vbYesNoCancel)
Select Case Confirme
Case vbYes:
    DtDeb = Me.DateD
    DtFin = Me.DateF
    Num_Contrat = Me.IDContrat
    Nom_Enfant = Me.Enfant
    Nom_Garde = Me.Garde
    Num_Groupe = Me.Groupe
    Nb_Place = Me.Place
    Nom_Employe = Me.AffectéA
    Nom_Utilisateur = Me.SaisiPar
    Date_Saisi = Me.DateCréation
 
    '
        For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        DateC = DtDeb + Boucle
        j = Weekday(DateC, 2)
        If Me("Jour" & j).Value = True Then
        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO Planning ( IDContrat, Enfant, Garde, Groupe, Place, AffectéA, SaisiPar, DateCréation, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, " & Nom_Garde & " AS Nom_Garde, " & Num_Groupe & " AS Num_Groupe, " & Nb_Place & " AS Nb_Place, " & Nom_Employe & " AS Nom_Employe, " & Nom_Utilisateur & " AS Nom_Utilisateur, #" & Format(DateCréation, "mm-dd-yyyy") & " # AS Date_Saisi, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
        DoCmd.SetWarnings True
        End If
        Next
 
    MsgBox ("Les gardes ont été ajoutés sur le planning selon les dates indiquées")
    DoCmd.Close
    Case vbNo:  Me.Undo ' Non : On annule les changements...
                DoCmd.Close '  ... et on ferme
    Case vbCancel: ' Rien ne se passe : On reste dans le formulaire
End Select
End Sub

**kh.lakehal** · 27/11/2016, 13h02

En mettant les champs de type texte entre quote simple, je n'ai plus de message d'erreur; néanmoins, aucune ligne n'est créé à la fin ...

Code :

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

 " & Nom_Garde & " AS ' Nom_Garde ', " & Num_Groupe & " AS ' Num_Groupe ', " & Nb_Place & " AS ' Nb_Place ',

**tee_grandbois** · 27/11/2016, 18h36

Envoyé par kh.lakehal

En mettant les champs de type texte entre quote simple, je n'ai plus de message d'erreur; néanmoins, aucune ligne n'est créé à la fin ...

Code :

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

 " & Nom_Garde & " AS ' Nom_Garde ', " & Num_Groupe & " AS ' Num_Groupe ', " & Nb_Place & " AS ' Nb_Place ',

Les champs de type texte en simple quote, n'est pas le souci. De plus ce ne sont pas des champs mais des alias de champs qui, je le répète, ne servent à rien dans un SQL exécuté en VBA. Ne rien mettre, au contraire, allège plutôt la lecture.
Par contre si rien ne s'ajoute, il faut vérifier que le SQL est correct.
Remet le mode déboguage en remplaçant :

Code :

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

1
2
3
4
 
        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO Planning ( IDContrat, Enfant, Garde, Groupe, Place, AffectéA, SaisiPar, DateCréation, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, " & Nom_Garde & " AS Nom_Garde, " & Num_Groupe & " AS Num_Groupe, " & Nb_Place & " AS Nb_Place, " & Nom_Employe & " AS Nom_Employe, " & Nom_Utilisateur & " AS Nom_Utilisateur, #" & Format(DateCréation, "mm-dd-yyyy") & " # AS Date_Saisi, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
        DoCmd.SetWarnings True

par :

Code :

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

1
2
3
4
5
        Dim stSQL As String
		stSQL = "INSERT INTO Planning ( IDContrat, Enfant, Garde, Groupe, Place, AffectéA, SaisiPar, DateCréation, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, " & Nom_Enfant & " AS Nom_Enfant, " & Nom_Garde & " AS Nom_Garde, " & Num_Groupe & " AS Num_Groupe, " & Nb_Place & " AS Nb_Place, " & Nom_Employe & " AS Nom_Employe, " & Nom_Utilisateur & " AS Nom_Utilisateur, #" & Format(DateCréation, 'mm-dd-yyyy') & " # AS Date_Saisi, #" & Format(DateC, 'mm-dd-yyyy') & "# AS Jour;"
		Debug.Print stSQL     ' Pour imprimer l'instruction SQL 
                DoCmd.SetWarnings True     ' Pour afficher les messages d'erreur
		CurrentDb.Execute stSQL