Emploi du temps incrémenté et paramêtré

**GeoFrey** · 20/04/2016, 10h00

Bonjour bonjour, comme c'est sur le même sujet et afin de gagner du temps nous allons rester ici..
Toute la partie calendrier fonctionne à merveille dorénavant mais comme "option" je dois pouvoir modifier l'etat de l'intervention je m'explique.
J'ai donc les Requetes SF_lundi,mardi.... Avec les Formulaires qui correspondent que l'on insère dans les onglets du planning. jusqu'ici pas de soucis.
Le planning affiche donc les données du SF, et dans ces données il y a une variable état sous forme de liste déroulante avec : En cours, Pièces manquantes, terminée ou prête.
Lorsque l'on créer l'intervention on donne l'etat de celle ci par conséquent on a un état de base qui doit être affiché. Ici toujours pas de problème. Le soucis est que je voudrais sur le planning modifier par la liste cette valeur. On doit pouvoir la changer et une fois sur "terminée" soit la ligne se fige soit elle se surligne en vert je ne sais pas encore on s'occupera de ça plus tard. Donc Dans mon SF Mardi par exemple La liste à comme source donc "etat" de la requette attribuée et en contenu "etat" aussi mais la table cette fois ci afin d'obtenir toute la liste sinon j'avais juste sa valeur donnée à la création d'affichée.

J'ai en code afin de rafraîchir et d'enregistrer le changement de données "sur changement" de la liste

Code :

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

1
2
3
4
 
Forms!F_Planning.Refresh
Forms!F_Planning.Requery
Forms!F_Planning.Refresh

Le changement se fait bien sur le planning, sur la requete SFMardi je l'ai à jour mais sur la requête SF Inter qui est reliée au SF journalier, elle ne se met pas à jour par conséquent le changement est juste "visible" et non pas interne à la BDD. Je ne comprend pas pourquoi vu qu'elles sont reliées. De plus il m'affiche uniquement les ID des Etat et non leurs nom... Aussi il faudrait que cette modification ne change que pour le jour là et non pour les 200-500 autres récurrences...

Merci d'avance.

**User** · 20/04/2016, 11h18

Bonjour,

Je ne connais pas la requête SF_Inter, ni le sous-formulaire SF_Journalier. Il faudrait que je vois comment tu les as construis.

Poste ta base si nécessaire.

à+

**GeoFrey** · 20/04/2016, 11h25

Pardon je me suis mal expliqué,

SFjournalier = tout les formulaires et requete allant du lundi au samedi comme tu l'avais fait

Je te pose le dossier ce sera plus simple. Réfere toi uniquement au mardi pour voir ce que j'ai déjà fait les autres jours ne sont encore pas traités.

Pièce jointe 207433

**User** · 20/04/2016, 12h03

J'ai remplacé ta pièce jointe par la nouvelle dans ton dernier message :

Il faut dans les requêtes : sf_Lundi,mardi... remplacer le champ Etat par CE_Etat.

Ensuite, dans les sous-formulaires SF_Lundi,Mardi, dans les propriétés du champ Etat, il faut mettre :

Source Contrôle : "CE_Etat"
Nbre de colonnes : 2
Largeurs colonnes : 0cm

Comme cela du affiche la colonne n°2 (Etat) de la table Etat, et tu saisis l'ID_Etat, colonne n°1 de la table Etat.

à+

**GeoFrey** · 20/04/2016, 12h07

Merci beaucoup

**User** · 25/04/2016, 16h18

Bonjour,

Si l'état de la machine est à "terminée", on ajoute une récurrence en bout de file.

Il faut d'abord supprimer le champ "CE_Etat" de la requête "R_Inter2".

La procédure de génération devient alors :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Sub GenererInterventions()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim n As Long, r As Long, dt As Date, IT As String
Dim s As Long, m As Long, e As Long
 
Set db = CurrentDb
Set rs1 = db.OpenRecordset("R_Inter2")
Set rs2 = db.OpenRecordset("Intervention", dbOpenDynaset)
 
Do Until rs1.EOF
 
IT = rs1!Intitule_intervention
dt = rs1!Date_Intervention
r = rs1!Recurrence
n = Nz(rs1!NbRecurrence, 10)
m = rs1!CE_Machine
s = rs1!CE_Secteur
 
dt = dt + r
 
Do While n > 0
 
   If (Not EstFerie(dt)) And (Weekday(dt) <> 1) Then
 
      rs2.FindFirst "Intitule_Intervention like '" & IT & "' and Date_Intervention=#" & Format(dt, "mm/dd/yyyy") & "#"
 
      If rs2.NoMatch Then
         n = n - 1
         rs2.AddNew
         rs2!Intitule_intervention = IT
         rs2!Date_Intervention = dt
         rs2!Recurrence = r
         'rs2!NbRecurrence = n
         rs2!CE_Etat = 1
         rs2!CE_Machine = m
         rs2!CE_Secteur = s
         rs2.Update
      Else
 
         If (rs2!CE_Etat <> 4) Then ' si pas terminé
            n = n - 1 'on enlève une récurrence au total.
         End If
 
      End If
 
      dt = dt + r
 
   Else
 
      dt = dt + 1
 
   End If
Loop
 
rs1.MoveNext
Loop
 
rs1.Close
Set rs1 = Nothing
 
rs2.Close
Set rs2 = Nothing
 
End Sub

A tester...

Cdlt,

**GeoFrey** · 26/04/2016, 11h49

Ca marche niquel

merci !

Simplement il m'en rajoute 10 ( le nb de récurrence) au lieu de 1.

**User** · 26/04/2016, 16h51

De rien,

Donc cette fois-ci ça semble bon

**GeoFrey** · 26/04/2016, 20h39

Oui

la base est bel et bien merci encore un grand merci à toi !

J'essaie de gérer les mails mais la sécurité Outlook me plombe et j'ai pas le smtp de l'entreprise donc c'est le bordel ..

**User** · 29/04/2016, 12h23

Bonjour,

Oui ça risque de ramer un peu, c'est pour cela que j'ai créé un bouton actualiser.

Par contre, ça ne duplique pas les interventions si elle sont déjà présentes dans la table.

Comme indiqué sur ce bout de code de la procédure générer :

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
 rs2.FindFirst "Intitule_Intervention like '" & IT & "' and Date_Intervention=#" & Format(dt, "mm/dd/yyyy") & "#"
 
      If rs2.NoMatch Then ' Ajout uniquement si l'intervention n'est pas présente à cette date.
         n = n - 1
         rs2.AddNew
         rs2!Intitule_intervention = IT
         rs2!Date_Intervention = dt
         rs2!Recurrence = r
         'rs2!NbRecurrence = n
         rs2!CE_Etat = 1
         rs2!CE_Machine = m
         rs2!CE_Secteur = s
         rs2.Update
      Else
 
         If (rs2!CE_Etat <> 4) Then ' si pas terminé
            n = n - 1 'on enlève une récurrence au total.
         End If
 
      End If
...

Comme tu peux le constater l'ajout ne se fait que s'il n'y a pas d'intervention avec cet intitulé à cette date.

Note importante :

La requête "R_Inter2" doit afficher uniquement les premières intervention, de chaque série.

C'est pourquoi, on affiche dans cette requête, pour chaque série d'intervention avec le même intitulé, la date minimum.

Cdlt,

**GeoFrey** · 29/04/2016, 13h44

Bonjour,

D'accord, je ne savais pas pour inter 2 c'est donc de la que vient la duplication sans cesse ! mais quand je met premier ou Min en opération sur la requête ca ne change rien ..

**User** · 29/04/2016, 15h00

il faut voir dans cette requête si les intitulés sont uniques et supprimer aussi le champ état.

Cdlt,

**GeoFrey** · 29/04/2016, 15h06

Les initulés ne sont pas uniques car il peuvent s'apeller par exemple " remplacement joint" et "remplacement joint" Mais sur des machines différentes. Et l'état était déja retiré

**User** · 29/04/2016, 15h17

donc il faut ajouter le ce_machine dans. le findfirst du code pour générer.

une intervention est donc identifiée par son intitulé , la machine et sa date..

je ne suis pas chez moi, je regarderai plus tard.

sinon poste ta base

**User** · 29/04/2016, 16h42

Bonsoir,

Voici ce que j'en retire au niveau du code du module M_Generer :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
Option Compare Database
 
 
Public Sub GenererInterventions()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim n As Long, r As Long, dt As Date, IT As String
Dim s As Long, m As Long, e As Long
 
Set db = CurrentDb
Set rs1 = db.OpenRecordset("R_Inter2")
Set rs2 = db.OpenRecordset("Intervention", dbOpenDynaset)
 
Do Until rs1.EOF
 
IT = rs1!Intitule_intervention
r = rs1!Recurrence
n = Nz(rs1!NbRecurrence, 10)
m = rs1!CE_Machine
s = rs1!CE_Secteur
dt = rs1!Date_Intervention
 
rs1.MoveNext
 
   If Not rs1.EOF Then
 
      Do While (IT = rs1!Intitule_intervention) And (m = rs1!CE_Machine)
 
         dt = rs1!Date_Intervention
 
            If (rs1!CE_Etat <> 4) Then ' si pas terminé
               n = n - 1 'on enlève une récurrence au total.
            End If
 
         rs1.MoveNext
 
            If (rs1.EOF) Or (n = 0) Then ' sortie.
               Exit Do
            End If
 
      Loop
 
   End If
 
   dt = dt + r
 
   Do While (n > 0)
 
      If (Not EstFerie(dt)) And (Weekday(dt) <> 1) Then
 
         n = n - 1
 
         rs2.AddNew
         rs2!Intitule_intervention = IT
         rs2!Date_Intervention = dt
         rs2!Recurrence = r
         'rs2!NbRecurrence = n
         rs2!CE_Etat = 1
         rs2!CE_Machine = m
         rs2!CE_Secteur = s
         rs2.Update
 
         dt = dt + r
 
      Else
 
         dt = dt + 1
 
      End If
 
Loop
 
' rs1.MoveNext
Loop
 
rs1.Close
Set rs1 = Nothing
 
rs2.Close
Set rs2 = Nothing
 
End Sub
 
 
Public Sub ReporterInterventions(ID As Long)
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim leSQL As String
Dim n As Long, r As Long, dt As Date, IT As String, m As Long
 
Set db = CurrentDb
Set rs1 = db.OpenRecordset("select * from intervention where ID_Intervention=" & ID)
 
   If Not rs1.EOF Then
 
      IT = rs1!Intitule_intervention
      dt = rs1!Date_Intervention
      r = rs1!Recurrence
      m = rs1!CE_Machine
 
      leSQL = "select * from Intervention " & _
              "where Intitule_Intervention like '" & IT & "' and CE_Machine=" & CStr(m) & " and Intervention.Date_Intervention>#" & Format(dt, "mm/dd/yyyy") & "# " & _
              "order by Intervention.Date_Intervention asc;"
 
      Set rs2 = db.OpenRecordset(leSQL, dbOpenDynaset)
 
      dt = dt + 1
 
      Do Until (Not EstFerie(dt)) And (Weekday(dt) <> 1)
         dt = dt + 1
      Loop
 
      rs1.Edit
      rs1!Date_Intervention = dt
      rs1.Update
 
      dt = dt + r ' prochaine date.
 
      Do Until rs2.EOF
 
         If (Not EstFerie(dt)) And (Weekday(dt) <> 1) Then
 
            rs2.Edit
            rs2!Date_Intervention = dt
            rs2!Report = True
            rs2.Update
 
            rs2.MoveNext
            dt = dt + r
 
         Else
 
            dt = dt + 1
 
         End If
 
 
      Loop
 
      rs2.Close
      Set rs2 = Nothing
 
   End If
 
rs1.Close
Set rs1 = Nothing
 
End Sub

Cdlt

**User** · 29/04/2016, 22h34

En fait il y avait un conflit au niveau des 2 procédures (génération et report), je crois l'avaoir corrigé sur la version jointe.

Cdlt,

**GeoFrey** · 30/04/2016, 10h46

Je vois Ca lundi je ne peux pas l'ouvrir sur mon Pc :/ merci pour ton investissement, non week end à toi

**User** · 30/04/2016, 11h45

Entendu, à lundi

**GeoFrey** · 02/05/2016, 08h19

Bonjour bonjour bon WE ?

Après test de ta solution l'enregistrement fonctionne, malheureusement elle ne reporte plus automatiquement les autres. Seule celle reportée se décle d'un jour, les autres restent fixe :/

**User** · 02/05/2016, 11h23

Bonjour,

Oui j'ai passé un bon week-end, j'espère la même chose pour toi.

Envoyé par GeoFrey

Bonjour bonjour bon WE ?

Après test de ta solution l'enregistrement fonctionne, malheureusement elle ne reporte plus automatiquement les autres. Seule celle reportée se décle d'un jour, les autres restent fixe :/

As-tu testé sur la base que je t'ai jointe, car chez moi ça fonctionne, il reporte bien d'1 jour les interventions qui suivent celle cochée reportée ?

Cela ne vient-il pas de ton adapatation ?

Sinon, à la place du bouton actualiser, il faut mettre la procédure générer sur l'événement après Maj, ou afterupdate des sous-formulaires SF_InterventionLundi..., comme ceci :

Code :

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

1
2
3
4
5
 
Private Sub Form_AfterUpdate()
GenererInterventions
 
End Sub

Quand au code pour reporter les interventions qui suivent celle cochée (et qui ont le même intitulé et le même numéro de machine), il faut mettre se code, sur l'événement après maj, de la case à cocher :

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
Private Sub Report_AfterUpdate()
Dim ID As Long
 
   If (Me.Report = True) Then
      If MsgBox("Souhaitez-vous reporter cette intervention ?", vbYesNo) = vbNo Then
         Me.Undo
         Exit Sub
      End If
   Else
      Exit Sub
   End If
 
ID = Nz(Me.ID_Intervention, 0)
Me.Requery 'raffraichit le sous-formulaire
 
Me.Parent.CmdActualiser.SetFocus ' Passe le focus au formulaire principal F_Planning, bouton actualiser.
 
ReporterInterventions ID
 
MajPlanning ' Met à jour le planning.
 
End Sub

Il faut aussi mettre la propriété Visble du bouton cmdactualiser à Non.

Cdlt,

Emploi du temps incrémenté et paramêtré [AC-2010]

Access

Discussions similaires

Partager

Partager