Passage de variable ou non dans condition If

Version imprimable

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:

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:

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 :D

09/04/2024, 23h13
Thumb down

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

hahaha ! avec le nom et l avatar j adore :D
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:

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 .

Salut,

On peut factoriser:
Code:

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:

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:

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:

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

10/04/2024, 10h45
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 ?
10/04/2024, 13h45
deedolith

Citation:

Envoyé par biomat24

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".

Citation:

Envoyé par biomat24

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

Oui, précisément.

Citation:

Envoyé par biomat24

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.

Merci :)

Je crois comprendre a peu prés le principe et la structure de base , mais c est surtout comment le positionner dans mon code ...

je crée le SUB dans lequel je défini ma commande SQL

et je positionne miseajour() à la place de la requete ?

Ca donnerai quelque chose comme ca si je comprends bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")", 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

et la boucle

Code:

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
 
miseajour()
 
    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

10/04/2024, 19h25
deedolith

Pas vraiment,

Ce sont toutes les mise à jour successives de la base de données, que ce soit par requête ou par recordset, qu'il faut encapsuler dans une transaction.

Bonjour, merci pour la reponse mais du coup je crois que j ai pas compris grand chose à ça ...

du coup ce serait plutot comme ça ?

Code:

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

et dans l'action
la requete

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
 
miseajour( "delete * from T_Planning where ([IdStagiaire]=" & Nz(Me.IdStagiaire.Value, 0) & ") and ([DateJour] = " & FormatDateUs(dd) & ")", DbFailOnError )
 
    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

je suis pas du tout sur de ce que j avance :D

11/04/2024, 15h40
deedolith

Non !!

Je n'ai fourni qu'un exemple,
Tu dois l'analyser et l'adapter à ton besoin particulier.
Et non le copier / coller sans réfléchir.