Comment faire générer une sorte de calendrier Access Vba pour l'utiliser à..

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/09/2017, 13h42
nouveau17

1 pièce(s) jointe(s)

Comment faire générer une sorte de calendrier Access Vba pour l'utiliser à..

Bonjour tout le monde,

voila je voudrais savoir comment réaliser une sorte de fiche numérique qui ressemble à ceci:

Pièce jointe 309968

La partie période est généré automatiquement le fait de saisir le mois et l’année et le premier jour du mois.
En ce qui concerne :
Si période = Vendredi et Samedi alors RH (Repos hebdomadaire)
Si non période = P (Présent)
Remarque :
La partie Période ont la possibilité de la changer (par exemple l’employé est en congé du 1/09/2017 au 05/09/2017 le calcul ce fait est génère l’exemple en Rouge.

Merci.
07/09/2017, 14h46
marot_r

Bonjour.

Est-ce que tu as déjà quelque chose ? Des tables, des requêtes, du code ?
Quel est ton niveau de Access ?

Si je comprend bien, cet écran va te servir à entrer les périodes de congé et d'activité de tes employés.
Combien as-tu environ d'employés ?

Quelle est la version d'Access que tu utilises ?

A+
07/09/2017, 16h18
nouveau17

Bjr,

-Mon niveau Access débutant
-Je n'ai aucun code
-Les tables et Requêtes pas encore fait mais pas de problème je sais le faire
-ma version Access est 2010

Si je comprend bien, cet écran va te servir à entrer les périodes de congé et d'activité de tes employés.
Combien as-tu environ d'employés ?

employés dépasse les 80 l'écran servira à établir un état pour chaque employé.
je saisi dans la fiche de l'employé le mois,l'année, le premier jour du mois afin qu'il génère tout le mois
ensuite la situation normale d'un employé qui travail tout le mois ça sera marqué Présent sauf les jours Repos Hebdomadaire qui sont vendredi et samedi.
mais si jamais l'employé est dans une autre situation autre que la première tel que maladie, mission...etc ça doit être mentionné l’écran c'est un e bonne partie ou c'est mentionné Présent et Repos Hébdo sera remplacé par mission , maladie, congé...
07/09/2017, 16h37
marot_r

Donc il s'agit simplement d'un écran de visualisation, tu ne prévois pas de faire un changement pour un jour donné dans cet écran. C'est bien cela ?

A+
07/09/2017, 16h50
nouveau17

Citation:

Envoyé par marot_r

Donc il s'agit simplement d'un écran de visualisation, tu ne prévois pas de faire un changement pour un jour donné dans cet écran. C'est bien cela ?

A+

oui si il ya une autre situation dans le mois X

j'aurais même à éditer pour chacun son état et ceci pour chaque mois afin qu'il soient valider ....etc

Merci
07/09/2017, 16h56
marot_r

Pour les tables, je te suggère :

tblPersonne
ClefPersonne
Autres infos

En relation avec tblHoraire
En relation avec tblPeriode

tblTypeJour
ClefTypeJour
CodeTypeJour (ex TRAVAILLE, NON_TRAVAILLE, FERIE, MALADIE)
Desc

En relation avec tblHoraire
En relation avec tblPeriode

tblHoraire 'C'est lhoraire standard de la personne
ClefHoraire
ClefPesronne
NoJour (1 à 7)
CodeTypeJour
DateDebut 'Permet d'avoir un historique des horaires de la personne
DateFin 'Permet d'avoir un historique des horaires de la personne

tblPeriode 'Va servir à enregistrer les jours qui ne sont pas dans l'horaire standard. (ex : jour férié, maladie, vacances)
ClefPeriode
ClefPersonne
CodeTypeJour
DateDebut
DateFin
Observation

tblCalendrier 'Va servir à afficher un mois d'une personne
ClefCaledrier
DateJour
NoJour (calculé à partir de datejour)

A+
10/09/2017, 16h21
nouveau17

1 pièce(s) jointe(s)

bonjour,

j'ai suivi ta suggestion que voici..

Pièce jointe 310635

comment je dois procéder!?:roll:
11/09/2017, 15h45
marot_r

Je te reviens dans la journée.

A+
11/09/2017, 16h10
marot_r

Bonjour

D'ici à ce que je t'explique pour le calendrier, une petite correction.

Tes relations entre tblPersonne et les autres tables doivent être faites sur ClefPersonne pas sur la clef de la table.

A+
11/09/2017, 16h57
nouveau17

1 pièce(s) jointe(s)

Bonjour,

voila ce que j'ai compris:

Pièce jointe 310880

Merci.

C'est bon.

Je vais supposer que le programme va être utiliser par plusieurs personnes à la fois.

Les étapes vont être les suivantes :

Créer le calendrier annuel (1 fois par an)
Créer une requête ou des qui affichent les données pour les personnes.
Faire un formulaire qui va te permettre de ne voir qu'une seule personne pour un seul mois.

Étape 1 : Créer le calendrier annuel :

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
public sub CreerAnnee(prmAnnee)
    dim db as dao.database:set db=currentdb
    dim sql as string
 
    '=== Supprime l'annee
    sql="delete [tblCalendrier].* from [tblCalendrier]"
    call db.execute(sql, dbFailOnError)
    '--- Supprime l'annee
 
    '=== Rempli le calendrier
    dim dateDebut as date: datedebut=dateserial(prmAnnee, 1,1)
    dim dateFin as date: dateFin=detserial(prmAnnee, 12,31)
    dim rCalendrier as dao.recordset: set rCalendrier=db.openrecordset("tblCalendrier", dbOpenDynaset)
 
    dim dateJour as date:for dateJour=dateDebut to datefin
       rCalendrier.addnew
       rCalendrier![DateJour]=datejour
       rCalendrier.update
    next jour
 
    call rCalendrier.close: set rCalendrier=nothing
    '--- Rempli le calendrier
 
    db.close: set db=nothing
 
end sub

A+

Étape 2 : Lire les données des personnes

Code à mettre dans un module.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function LireInfoHoraire(prmClefPersonne as long, prmDateJour as date) as string
   'LIt l'information sur son horaire régulier sans tenir compte de congés ou autre chose.
   ' Suppose que la personne travaille toute l'année et tous les jours de l'année sur le même rythme.
   ' Les congés vont être dans tblPeriode
 
   dim result as string
   dim critere as string
   critere ="[ClefPersonne=" & prmClefPersonne 'La personne
   critere = critere & " and [NoJour]=" & weekday(prmDateJour,vbMonday) '1 pour lundi, 7 pour dimanche 'Le jour de la semaine
   critere = critere & " and #" & format(prmDateJour, "yyyy\-mm\-dd") & "# between [dateDebut] and [dateFin] 'Pour l'horaire actif à cette date
   result=dfirst("CodeTypeJour", "tblHoraire", critere) & ""
   LireInfoHoraire=result
 
end function

Code:

1
2
3
4
5
6
7
8
9
10
public function LireInfoPeriode(prmClefPersonne as long, prmDateJour as date) as string
   'Lit l'information sur les exception à l'horaire régulier
   'Si rien retourne ""
   dim result as string
   dim critere as string
   critere ="[ClefPersonne=" & prmClefPersonne 'La personne
   critere = critere & " and #" & format(prmDateJour, "yyyy\-mm\-dd") & "# between [dateDebut] and [dateFin] 'Pour l'horaire actif à cette date
   result=dfirst("CodeTypeJour", "tblHoraire", critere) & ""
   LireInfoPeriode=result
end function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
public function LireInfoCodeJour(prmClefPersonne as long, prmDateJour as date) as string
   'Combine les infos de l'horaire régulier et les exceptions
  dim result as string
  result=LireInfoPeriode(prmClefPersonne, prmDateJour)
 
  if result="" then
     'Il n'y a rien de spéciale à cette date, trouve l'horaire régulier
      result=LireInfoHoraire(prmClefPersonne, prmDateJour)
  end if
 
  LireInfoCodeJour=result
end function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
public function LireInfoObservation(prmClefPersonne as long, prmDateJour as date) as string
   'Combine les observation des jours spéciaux
  dim result as string
  result=LireInfoPeriode(prmClefPersonne, prmDateJour)
 
  if result<>"" then
     'Il n'y a un info spéciale, récupère l'obsertavion
     dim critere as string
     critere ="[ClefPersonne=" & prmClefPersonne 'La personne
     critere = critere & " and #" & format(prmDateJour, "yyyy\-mm\-dd") & "# between [dateDebut] and [dateFin] 'Pour l'horaire actif à cette date
     result=dfirst("CodeTypeJour", "tblHoraire", critere) & ""
  end if
 
  LireInfoObservation=result
end function

Note que prm est un abréviation personnelle pour indiquer "paramètre", ce qui me permet de savoir que les données viennent de l'extérieur de ma fonction.

Requête reqInfoJourPersonne :

Code:

1
2
select tblCalendrier.*, tblPersonne.*,  LireInfoCodeJour([tblPersonne].[ClefPersonne], [tblCalendrier].[DateJour]) as CodeTypeJour, LireInfoObservation([tblPersonne].[ClefPersonne], [tblCalendrier].[DateJour]) as Observation
from tblCalemdier, tblPersonne

Donne pour chaque personne et chaque jour le code jour et son observation si c'est un jour spécial.

Je m'aperçois qu'on n'a pas parlé de jours fériés que TOUT le monde prend (ex : Noel, Aïds, Fête nationale, Nouvel an ...).
Si tu en as et que vraiment TOUT le monde les prends, la solution qui me paraît la plus simple est d'avoir une table

tblJourFerie

clefJourFerie (autonum)
DateJourFerie (date/heure)
DescJourFerie (Texte 255 caractères)

C'est à traiter de la même façon que l'horaire régulier et avant celui-ci.

Donc cela donne quelque chose comme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  result=LireInfoPeriode(prmClefPersonne, prmDateJour)
 
  if result="" then
     'Il n'y a rien de spéciale à cette date, trouve si c'est un jour ferie
      result=LireInfoFerie(prmDateJour)
 
      if result="" then
          'Ce n'est pas un férié
          result=LireInfoHoraire(prmClefPersonne, prmDateJour)
     end if
 
  end if

Si tout le monde ne fête pas, alors il faut indiquer chaque jour pour chaque personne.

Je te laisse coder et vérifier cela et on reparle du formulaire après.

Une dernière remarque: mon code n'est pas très subtile car il vérifie chaque jour même si on est dans une période. On pourrait faire mieux mais cela me semble plus complexe à comprendre et comme tu as peu de personne cela ne devrait pas avoir d'impact majeur sur le temps d'exécution.

A+

12/09/2017, 14h05
nouveau17

salut,

waoo 8O tout d'un seul coup...je vais coder et en suite je te répond.

Merci A+
20/09/2017, 13h35
marot_r

Bonjour mhsylla, ton message : "Access Échéancier", à été déplacé ici

https://www.developpez.net/forums/d1...ss-echeancier/

Pour lui donner plus de visibilité et parce qu'il ne concernait pas directement la discussion en cours.

A+
25/09/2017, 10h26
nouveau17

1 pièce(s) jointe(s)

Bonjour Marot,

je m'excuse pour mon mon retard.

que dois je faire suite à ceci :

Pièce jointe 314127

Merci.

Bonjour.

Maintenant il faut que tu crées une requête basée sur le calendrier et tes personnes, puis que tu ailles chercher l'information avec les fonctions.

Quelque chose comme :
Code:

1 2 select tblCalendrier.*, tblPersonne.*, LireInfoCodeJour([tblPersonne].[ClefPersonne], [tblCalendrier].[DateJour]) as CodeTypeJour, LireInfoObservation([tblPersonne].[ClefPersonne], [tblCalendrier].[DateJour]) as Observation from tblCalemdier, tblPersonne
Après tu as simplement à te faire un formulaire de consultation basé sur cette requête.

Si tu veux des détails pour cette étape dit-le.

A+

26/09/2017, 10h51
nouveau17

1 pièce(s) jointe(s)

bonjour,

voila ce que j'ai fait est ce juste.

Pièce jointe 314469
26/09/2017, 13h44
marot_r
Bonjour.

À priori le SQL semble correct.
Valide le avec un exécution, c'est la meilleur méthode.

En passant tu as
- tapé clefCaledrier au lieu de clefCalendier
- mis des parenthèses dans Prénom ce qui n'est pas une bonne idée. Les parenthèses sont utilisées pour indiquer des paramètres et cela pourrait créer de la confusion.
  Et à part cela je recommande de limiter les noms internes (contrôles, tables, requêtes, champs, rapports, formulaires, modules, fonctions, procédures, ...)
  - aux majuscules et minuscules non accentuées et non décorées (pas de ç)
  - aux chiffres
  - au souligné (_). Pas d'espaces ni de caractères non alphabétiques et surtout pas de tiret (-).
  Cela évite certains bugs sournois et vicieux en plus de simplifier la saisie.
  Et abstient toi de nommer un champ "No", car Access le confond, avec le Non en Anglais ... j'ai découvert cela récemment :-(.
  Il y a un contournement en l'encadrant avec des crochets mais c'est assez pénible car il faut y penser à chaque fois.
  Même chose pour Date, car Access confond avec la fonction Date().
Cela évite certains bugs sournois et vicieux en plus de simplifier la saisie.

A+
26/09/2017, 15h15
nouveau17

1 pièce(s) jointe(s)

bonjour,

j'ai exécuté et le résultat est comme suis:

Pièce jointe 314552
26/09/2017, 15h46
tee_grandbois

Bonjour,
il faut créer ta requête en utilisant l'îcone Sélection et pas SQL Direct qui est pour les bases distantes.

Voir 40 message(s) de cette discussion en une page