Discussion :

[biomat24]

Bonjour

En m'inspirant du planning trouvé je personnalise tout ca .
https://denishulo.developpez.com/tut...ss/planningv3/

j ai un formulaire (le formulaire de saisie du planning) sur lequel j ai des cases a cocher ( 5 pour les 5 jours ouvrables du nom de CBLundi, etc ...) qui définissent des jours de planning .

si les cases sont décochées j'exclu les enregistrement de ces jours du planning . (L M M J V )


Dans la conception du planning, les jours sont identifiés par des fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function EstWeekEnd(ByVal dt As Date) As Boolean
    ' teste si la date passée en argument est sur un week-end ou non
    EstWeekEnd = (Weekday(dt) = 1) Or (Weekday(dt) = 7)
 
End Function
 
Public Function EstLundi(ByVal dt As Date) As Boolean
    ' teste si la date passée en argument est sur un week-end ou non
    EstLundi = (Weekday(dt) = 2)
 
End Function

On contrôle ensuite l'enregistrement ou non des jours du planning et on enregistre

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
dd = dd + 1
 
                Do While (dd <= df) ' parcours des jours de la période
 
 
                    If (Not EstWeekEnd(dd)) And Not (EstFerie(dd)) And Not (EstLundi(dd)) Then
 
 
                        DoCmd.SetWarnings False
                        DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"
                        DoCmd.SetWarnings True
 
 
                        rs.AddNew
                        rs!IdStagiaire = Me.IdStagiaire
                        rs!IdMotifAbsence = Nz(Me.IdMotifAbsence, Null)
                        rs!NbHeures = Nz(Me.NbHeures, Null)
                        rs!DateJour = dd
                        rs!PeriodeJour = Me.PeriodeJour
                        rs.Update
 
 
                     End If
 
                   dd = dd + 1
 
                Loop

Mon soucis c est que je ne sais pas comment contrôler la case a cocher "me.CBLundi = false" pour qu'elle ajoute le parametre ESTLundi(dd) en exclusion de l'enregistrement .

(je sais meme pas si je suis trés clair !)


If (Not EstWeekEnd(dd)) And Not (EstFerie(dd)) And Not (EstLundi(dd)) Then

et bien sur que ca fasse le même fonctionnement pour les autres case a cocher biensur


Merci d avance si vous me comprenez

[Thumb down]

Bonjour,
Je ne comprends pas ton histoire de case à cocher !
Je n'en vois aucune dans ce que tu nous présente.

[biomat24]

hahaha ! avec le nom et l avatar j adore
ca me met dans l ambiance direct !

effectivement on ne voit pas les cases a cocher .

en fait ils sont dans un le formulaire F_Saisie_planning et les valeurs sont récupérées par me.Caseaccocher

au final j ai opté pour un IF par case a cocher.
je pense que ca peut s optimiser mais bon ...

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
 
  If Me.CBLundi = True And Num_Jour = 2 Then
 
                        DoCmd.SetWarnings False
                        DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"
                        DoCmd.SetWarnings True
 
                        rs.AddNew
                        rs!IdStagiaire = Me.IdStagiaire
                        rs!IdMotifAbsence = Nz(Me.IdMotifAbsence, Null)
                        rs!NbHeures = Nz(Me.NbHeures, Null)
                        rs!DateJour = dd
                        rs!PeriodeJour = Me.PeriodeJour
                        rs.Update
                    End If
 
                    If Me.CBMardi = True And Num_Jour = 3 Then
 
                        DoCmd.SetWarnings False
                        DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"
                        DoCmd.SetWarnings True
 
                        rs.AddNew
                        rs!IdStagiaire = Me.IdStagiaire
                        rs!IdMotifAbsence = Nz(Me.IdMotifAbsence, Null)
                        rs!NbHeures = Nz(Me.NbHeures, Null)
                        rs!DateJour = dd
                        rs!PeriodeJour = Me.PeriodeJour
                        rs.Update
                    End If
 
                    If Me.CBMercredi = True And Num_Jour = 4 Then
 
                        DoCmd.SetWarnings False
                        DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"
                        DoCmd.SetWarnings True
 
                        rs.AddNew
                        rs!IdStagiaire = Me.IdStagiaire
                        rs!IdMotifAbsence = Nz(Me.IdMotifAbsence, Null)
                        rs!NbHeures = Nz(Me.NbHeures, Null)
                        rs!DateJour = dd
                        rs!PeriodeJour = Me.PeriodeJour
                        rs.Update
                    End If

Ca fonctionne en tout cas .

[deedolith]

Salut,

On peut factoriser:

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
 If (Me.CBLundi = True And Num_Jour = 2) Or _
    (Me.CBMardi = True And Num_Jour = 3) Or _
    (Me.CBMercredi = True And Num_Jour = 4) Then
     DoCmd.SetWarnings False
    DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"
    DoCmd.SetWarnings True
 
    rs.AddNew
    rs!IdStagiaire = Me.IdStagiaire
    rs!IdMotifAbsence = Nz(Me.IdMotifAbsence, Null)
    rs!NbHeures = Nz(Me.NbHeures, Null)
    rs!DateJour = dd
    rs!PeriodeJour = Me.PeriodeJour
    rs.Update
End If

Note:

Code :

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

DoCmd.RunSQL "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")"

Sauf erreur de ma part, si la requête échoue, l'instruction DoCmd.RunSQL ne génère aucun avertissement ou exception.
Je préfère passer par la méthode Execute de l'objet Database, qui grâce à son second paramètre lèvera une exception en cas de problème:

Code :

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

CurrentDb.Execut "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")", DbFailOnError

De plus, dans le cadre de mise à jour successives, on préferera encadrer les opérations par une transaction, ce qui permettra de revenir en arrière en cas de problème, et ne pas laisser les données dans un état incohérent:

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
Public Sub MiseaJour()
On Error Goto Error
    Dim Db As DAO.Database
    Set Db = CurrentDb
 
    Dim Wks As DAO.Workspace
    Set Wks = DbEngine.Workspaces("#Default Workspace#")
 
    Wks.BeginTrans    '// Debut de la transaction
 
    Db.Execute("DELETE .................", DbFailOnError)
    Db.Execute("UPDATE ................", DbFailOnError)
    Db.Execute("INSERT ......................", DbFailOnError)
 
    Wks.CommitTrans    '// Tout c'est bien passé, on valide la transaction
Exit Sub
Error:
    Wks.RollBack    '// Il y a eut un problème, on annule les changements
    Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End SUb

[biomat24]

ha oui merci je vois le principe .

je vais tenter la modif,

concernant la 3eme partie je comprends pas vraiment le terme encadrer les operations par une transaction ...

le cde fourni permet en cas d'erreur de retablir l etat d origine c est ca ?

je le positionne dans la meme feuille VBA que mes instructions ?

[deedolith]

concernant la 3eme partie je comprends pas vraiment le terme encadrer les operations par une transaction

Entourer, encapsuler, prend le terme qui te convient.
Le but est de:
1) Débuter une transaction (BeginTrans): Dire au moteur de base de données: "Attention, je débute une série d'opérations liées entre-elles".
2) Confirmer la transaction (CommitTrans): Dire au moteur de base de données: "Tous c'est bien passé, tu peux appliquer les changements".
Ou
2) Annuler la transaction (Rollback): Dire au moteur de base de données: "Il y a eut un problème, n'applique pas les changements".

le cde fourni permet en cas d'erreur de retablir l etat d origine c est ca ?

Oui, précisément.

je le positionne dans la meme feuille VBA que mes instructions ?

Où tu veux, ce ne sont que des exemples pour illustrer mes propos.
A toi d'adapter en fonction de ton besoin.

N'hésite pas à écrire des fonctions de test pour faire des expérimentations.