Discussion :

[aixel]

bonjour,

je voudrais avoir des compléments d'infos sur le tableau de présence fait par Denis HULOT.J'ai fait les tables, les requetes et j'en suis au SF_Planning. Je ne vois pas comment faire correspondre les zones de texte (1,.....31) aux champs.
Autre chose, la Procédure de "MajPlanning" doit se trouver dans un "Modle" ou dans une "Procedure évenementielle?...Pourrai-je avoir quelques informations pour finaliser la base.
en vous remerciant par avance de votre aide.
cordialement
aixel

[User]

Bonsoir,

Le sous-formulaire SF_Planning doit-être basé sur la requête analyse croisée.

La requête analyse croisée doit avoir comme en-tête de colonne le champ jour, la propriété en-têtes de colonnes de ce champ pouvant prendre les valeurs (1,2,3...31).



Ensuite, une fois relié le sous-formulaire SF_planning à la requête, il suffit de glisser ces 31 champs dans le détail du sous-formulaire.

La procédure MajPlanning doit-être dans un module à part.

Cdlt,

[aixel]

merci pour votre réponse rapide. Pour ma part, j'ai mis du temps pour vous répondre et je m"en excuse. j'ai fait mes tables, requêtes et mon SF_Planning qui fonctionne avec la requête Analyse croisé de présence. Tout fonctionne bien. Ensuite J'ai fait un formulaire F_Planning(j'ai du mal avec ce formulaire) dans lequel j'ai mis dans la partie "Détails' le SF_Planning. Dans la partie "en tête formulaire" j'ai 2 champs qui seront le "Mois et "Année" et également 2 boutons pour avancer ou reculer les "Mois". Pour avoir une interaction des boutons sur le déplacement de date du "SF_Planning", quel est le moyen a utiliser, un module ou une procedure?....
merci par avance,
cdlt

[User]

Bonjour,

Il faut mettre du code contenant la procédure MajPlanning, sur les événements afterupdate des listes Mois et Année :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Mois_AfterUpdate()
MajPlanning
 
End Sub
 
Private Sub Annee_AfterUpdate()
MajPlanning
 
End Sub

Ensuite, mettre du code sur l'événement clic des boutons CmdSuivant et CmdPrecedent :

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
Private Sub CmdPrecedent_Click()
 
   If (Me!Mois.ListIndex > 0) Then ' Si le mois est supérieur à 1 (Janvier),
      Me.Mois = Me.Mois.ItemData(Me!Mois.ListIndex - 1) ' affiche le mois précédent.
 
   Else
      Me.Mois = Me.Mois.ItemData(11) ' Sinon affiche le dernier mois
      Me.Annee = Me.Annee - 1 ' et l'année précédente.
 
   End If
 
MajPlanning
 
End Sub
 
Private Sub CmdSuivant_Click()
 
   If (Me!Mois.ListIndex < 11) Then ' Si le mois est inférieur à 12 (Décembre),
      Me.Mois = Me.Mois.ItemData(Me!Mois.ListIndex + 1) ' affiche le mois suivant.
 
   Else
      Me.Mois = Me.Mois.ItemData(0) ' Sinon affiche le premier mois
      Me.Annee = Me.Annee + 1 ' et l'année suivante.
   End If
 
MajPlanning
 
End Sub

Cdlt,

[aixel]

Bonjour USER, Je vous remercie pour vos lignes de code VBA que vous m'avez envoyé. J'ai travaillé sur mon projet avec le VBA et l'exemple de votre premier message envoyé. Je me suis aperçu que sur le premier message, votre exemple de "Requête Analyse croisée" correspondait a un planning d'hôpital. J'ai trouvé, sans faire exprès, ce planning. Ce planning me convient tout à fait, sauf que lorsqu'on a validé le "type de présence", le pointeur revient au début du planning. Moi je voudrais que pointeur reste là ou il se trouve après validation du "type de présence". Comment peut_on faire ?.....ou vers quoi chercher ......
en vous remerciant, encore, de votre aide....

Cdlt.................

[User]

Bonsoir,

Sur le bouton Valider, il faudrait adapter ce code (l'ajout est en vert):

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
 If (Me.CodeG <> "") And Not IsNull(Me.CodeG) Then
      
      j = DateDiff("d", DateSerial(Forms!F_Planning!An, Forms!F_Planning!Mois, 1), CDate(Me.DateJ)) + 1
      Me.Requery
      MajPlanning
      ' Déplacement sur la case du planning correspondant au matricule et au jour choisis.
      Forms!F_Planning!SF_Planning.Form.RecordsetClone.FindFirst "[Matricule]=" & Nz(Me.Matricule, 0)
      Forms!F_Planning!SF_Planning.Form.Bookmark = Forms!F_Planning!SF_Planning.Form.RecordsetClone.Bookmark
      Forms!F_Planning!SF_Planning.Form("Jour" & CStr(j)).SetFocus
      
      DoCmd.Close acForm, "F_Saisie"
      
   Else

      MsgBox ("Saisir une garde !")

   End If

Cdlt,

[aixel]

Bonjour USER, je viens de faire les modifications que vous m'avez proposé et cela fonctionne......Suis très très content !!!!!....je vais pouvoir finaliser mon tableau de pointage de mon association...puis je avoir votre adresse et vous remercier.........encore un grand MERCI !!....

Cdlt

[User]

Bonjour,

Entendu, je vous ai envoyé un e-mail.

Bonne soirée,