Bonsoir à tous,

Je lance un nouveau post sur ce sujet :

http://www.developpez.net/forums/d16...e/#post8852315

J'ai deux table; une table planning, et une table contrat.
en fonction des plages de dates prédéfinis dans un contrat; le code suivant insert des enregistrement dans la table planning :

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
Private Sub CmdAdd_Click()
If Me.Jour1.Value = False And Me.Jour2.Value = False And Me.Jour3.Value = False And Me.Jour4.Value = False And Me.Jour5.Value = False Then
MsgBox "Aucun jour n'a été séléctionné !", vbInformation, "Planning des gardes"
Else
Confirme = MsgBox("Voulez-vous ajouter ces dates sur le planning ?", vbYesNoCancel, "Planning des gardes")
Select Case Confirme
Case vbYes:
    DtDeb = Me.DateD
    DtFin = Me.DateF
    Num_Contrat = Me.IDContrat
    Nom_Contrat = Me.NumeroContrat
    Nom_Enfant = Me.Enfant
    Nom_Parents = Me.Famille
    Num_Famille = Me.NumeroFamille
    Nom_Repas = Me.Repas
    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, Parents, NFamille, NumeroContrat, Repas, Garde, Groupe, Place, AffectéA, SaisiPar, DateSaisie, Jour ) SELECT " & Num_Contrat & ", " & Nom_Enfant & ", " & Nom_Parents & ", '" & Num_Famille & "' AS Num_Famille, '" & Nom_Contrat & "' AS Nom_Contrat, '" & Nom_Repas & "' AS Nom_Repas, '" & 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_Saisie, #" & Format(DateC, "mm-dd-yyyy") & "# AS Jour;"
        DoCmd.SetWarnings True
        End If
        Next
 
    CmdAdd.Enabled = False
    Me.Statut = "Dates réservés"
    MsgBox "Les gardes ont été ajoutés sur le planning selon contrat N° " & Me.NumeroContrat, vbInformation, "Planning des gardes"
    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 If
End Sub
souhaiterais ajouter des champs Garde1; Garde2 ... dans la table contrat, et en fonction du jour sélectionné; leurs valeurs sont insérés automatiquement dans le champ : "Garde" de la table planning.

j'ai déjà essayé la solution proposé par User, mais j'ai un message d'erreur : Access ne trouve pas le champ "Garde" auquel il est fait référence dans votre expression ..

d'avance merci de votre aide.