Skip to main content

Pointage

annuaire Frontignan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.EmailPersonnel, EMPLOYES1.Telephone1, EMPLOYES1.Telephone2
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((CBool(EMPLOYES1!Productif))<>0) And ((EMPLOYES1.[Actif])<>0)) Or (((EMPLOYES1.NomPrenom)="LEVOYER Allan")) Or (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") And ((EMPLOYES1.[Actif])<>0));

cadre ou pas : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.OPCA, EMPLOYES1.[Actif]
FROM EMPLOYES1;

Copie de annuaire Frontignan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.EmailPersonnel, EMPLOYES1.Telephone1, EMPLOYES1.Telephone2, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.[Actif]
FROM EMPLOYES1
WHERE (((EMPLOYES1.CodeSite)="FR"));

Cout salarie employe responsable : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.TypeContrat, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite
FROM EMPLOYES1;

Cout salarie prod FR : 

SELECT HEURE_MOIS.AN, HEURE_MOIS.MOIS, EMPLOYES1.NomPrenom, HEURE_MOIS.CoutSalaireMois, HEURE_MOIS.TotalPrimeSanaHSup
FROM HEURE_MOIS LEFT JOIN EMPLOYES1 ON HEURE_MOIS.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_MOIS.AN)>=2021));

cout salarie total heures : 

SELECT HEURE_JOUR.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2021# And #10/31/2023#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>#12/30/1899#));

Cout salarie ventilation : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionEquipes1.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionEquipes1.CodeSite AS SITEVENTILATION
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.ID_Employe = EMPLOYES1.NumAuto) LEFT JOIN ProductionEquipes1 ON ProductionVentilation.Id_Activite = ProductionEquipes1.IdEquipeProduction
WHERE (((ProductionVentilation.LaDate) Between #1/1/2021# And #10/31/2023#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

cout salarie ventilation 2021 2023 : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionEquipes1.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionEquipes1.CodeSite AS SITEVENTILATION, EMPLOYES1.TypeContrat, EMPLOYES1.CodeSite AS SITEEMPLOYE, EMPLOYES1.NomPrenomResponsable
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.ID_Employe = EMPLOYES1.NumAuto) LEFT JOIN ProductionEquipes1 ON ProductionVentilation.Id_Activite = ProductionEquipes1.IdEquipeProduction
WHERE (((ProductionVentilation.LaDate) Between #10/1/2021# And #9/30/2023#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

Dates contrats : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") AND ((EMPLOYES1.TypeContrat)="CDI") AND ((EMPLOYES1.CodeSite)="FR"));

Dates contrats filiere mer : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="JUILLE Thibaud"));

Dates contrats maintenance : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateFin
FROM EMPLOYES1
WHERE (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") AND ((EMPLOYES1.TypeContrat)="CDI"));

Dates periode essai : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.DateCDI, EMPLOYES1.DateDebut
FROM EMPLOYES1
WHERE (((EMPLOYES1.DateCDI)>=Date()-130) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="FR") And ((CBool(EMPLOYES1![Actif]))<>0));

employesinterim : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.TypeContrat
FROM EMPLOYES1;

Envoi mail Retards Prod MAR : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1],3) AS POINTAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1]-[HEURE_JOUR1]![HeureDebutProd],3) AS RETARD, EMPLOYES1.EmailPersonnel
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour)=Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1-HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899#) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="MA"))
ORDER BY HEURE_JOUR1.LeJour;

Envois mail Retards Prod FR : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1],3) AS POINTAGE, FormatDateTime([HEURE_JOUR1]![Hdebut1]-[HEURE_JOUR1]![HeureDebutProd],3) AS RETARD, EMPLOYES1.EmailPersonnel, EMPLOYES1.NomPrenomResponsable
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour)=Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1,3))>#12/30/1899 0:30:0#) And ((FormatDateTime(HEURE_JOUR1!Hdebut1-HEURE_JOUR1!HeureDebutProd,3))>#12/30/1899#) And ((EMPLOYES1.TypeContrat)="CDI") And ((EMPLOYES1.CodeSite)="FR") And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"))
ORDER BY HEURE_JOUR1.LeJour;

Heures toutlemonde : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((HEURE_JOUR.LeJour) Between #1/1/2019# And #12/31/2019#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

HEURES_ACT_FRONTI : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, ProductionTaches.Libelle, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, ProductionTaches.CodeSite
FROM (ProductionVentilation LEFT JOIN EMPLOYES1 ON ProductionVentilation.NumEmploye = EMPLOYES1.NumAuto) LEFT JOIN ProductionTaches ON ProductionVentilation.NumTache = ProductionTaches.NumAuto
WHERE (((ProductionVentilation.LaDate)>#12/31/2022#) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00"));

HEURES_ACT_FRONTI_VBA : 

SELECT ProductionVentilation_1.LaDate, EMPLOYES1.NomPrenom, ProductionTaches.Libelle, FormatDateTime([ProductionVentilation_1]![Heures],3) AS Expr1, ProductionTaches.CodeSite, Services.ANALYTIQUE
FROM ((ProductionVentilation AS ProductionVentilation_1 LEFT JOIN EMPLOYES1 ON ProductionVentilation_1.NumEmploye = EMPLOYES1.NumAuto) LEFT JOIN ProductionTaches ON ProductionVentilation_1.NumTache = ProductionTaches.NumAuto) LEFT JOIN Services ON ProductionTaches.idService = Services.IdService
WHERE (((ProductionVentilation_1.LaDate) Between Date()-20 And Date()) And ((FormatDateTime(ProductionVentilation_1!Heures,3))<>"00:00:00"));

HeuresAllan : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((HEURE_JOUR.LeJour) Between #1/1/2026# And #12/31/2026#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

HeuresALLAN VERIF POINTAGE : 

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()-7 And Date()) And ((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00"));

HeuresALLANFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR.EquipeProd, FormatDateTime([HeuresPointeuse],3) AS HTT1
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenom)="LEVOYER Allan") And ((FormatDateTime(HEURE_JOUR!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR.LeJour)=Date()));

Heuresdemarrage : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR1.LeJour, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, EMPLOYES1.EmailPersonnel
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()+1 And Date()+5) And ((EMPLOYES1.EmailPersonnel)<>"") And ((Len([EquipeProd]))>"0") And ((CBool(EMPLOYES1![Actif]))<>0) And ((EMPLOYES1.CodeSite)="FR"))
ORDER BY HEURE_JOUR1.LeJour;

HeuresKEVINFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR.EquipeProd, FormatDateTime([HeuresPointeuse],3) AS HTT1
FROM HEURE_JOUR LEFT JOIN EMPLOYES1 ON HEURE_JOUR.IDemploye = EMPLOYES1.NumAuto
WHERE (((EMPLOYES1.NomPrenom)="LIDIER Kévin") And ((FormatDateTime(HEURE_JOUR!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR.LeJour)=Date()));

HeuresMaintenance : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenomResponsable)="REISSI Fabien") AND ((HEURE_JOUR.LeJour)>=#1/1/2020#));

HeuresoperateurFR : 

SELECT EMPLOYES1.NomPrenom, EMPLOYES1.NomPrenomResponsable, EMPLOYES1.CodeSite, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2, EMPLOYES1.TypeContrat, CBool([EMPLOYES1]![Productif]) AS Expr1
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan") And ((HEURE_JOUR.LeJour) Between #1/1/2026# And #12/31/2026#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00") And ((CBool(EMPLOYES1!Productif))<>0));

HEURESPRODFINVENTILATION : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1
FROM EMPLOYES1 RIGHT JOIN ProductionVentilation ON EMPLOYES1.NumAuto = ProductionVentilation.ID_Employe
WHERE (((EMPLOYES1.NomPrenom)<>"LIDIER Kévin") And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00") And ((ProductionVentilation.LaDate)=Date()) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HEURESPRODFR VERIF FIN VENTILATION : 

SELECT ProductionVentilation.LaDate, EMPLOYES1.NomPrenom, FormatDateTime([ProductionVentilation]![Heures],3) AS Expr1, EMPLOYES1.CodeSite
FROM EMPLOYES1 RIGHT JOIN ProductionVentilation ON EMPLOYES1.NumAuto = ProductionVentilation.ID_Employe
WHERE (((ProductionVentilation.LaDate) Between Date()-7 And Date()) And ((FormatDateTime(ProductionVentilation!Heures,3))<>"00:00:00") And ((EMPLOYES1.CodeSite)="FR"));

HeuresPRODFR VERIF POINTAGE : 

SELECT HEURE_JOUR1.LeJour, EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((HEURE_JOUR1.LeJour) Between Date()-7 And Date() And (HEURE_JOUR1.LeJour) Between Date()-7 And Date()) And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00") And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HeuresPRODFRcalculproductivité : 

SELECT EMPLOYES1.NomPrenom, FormatDateTime([HEURE_JOUR1]![HeureDebutProd],3) AS DEMARRAGE, HEURE_JOUR1.EquipeProd, FormatDateTime([Hdebut1],3) AS HD1, FormatDateTime([Hfin1],3) AS HF1, FormatDateTime([Hdebut2],3) AS HD2, FormatDateTime([Hfin2],3) AS HF2, FormatDateTime([Hdebut3],3) AS HD3, FormatDateTime([Hfin3],3) AS HF3, FormatDateTime([Hdebut4],3) AS HD4, FormatDateTime([Hfin4],3) AS HF4, FormatDateTime([Hdebut5],3) AS HD5, FormatDateTime([Hfin5],3) AS HF5, FormatDateTime([Hdebut6],3) AS HD6, FormatDateTime([Hfin6],3) AS HF6, FormatDateTime([Hdebut7],3) AS HD7, FormatDateTime([Hfin7],3) AS HF7, FormatDateTime([Hdebut8],3) AS HD8, FormatDateTime([Hfin8],3) AS HF8
FROM EMPLOYES1 RIGHT JOIN HEURE_JOUR1 ON EMPLOYES1.NumAuto = HEURE_JOUR1.IDemploye
WHERE (((EMPLOYES1.NomPrenom)<>"LIDIER Kévin") And ((FormatDateTime(HEURE_JOUR1!HeureDebutProd,3))<>"00:00:00") And ((HEURE_JOUR1.LeJour)=Date()) And ((EMPLOYES1.NomPrenomResponsable)="LEVOYER Allan"));

HeuresSylvette : 

SELECT EMPLOYES1.NomPrenom, HEURE_JOUR.LeJour, HEURE_JOUR.NoDeSemaine, FormatDateTime([HEURE_JOUR]![HeuresPointeuse],3) AS HEURES2
FROM EMPLOYES1 LEFT JOIN HEURE_JOUR ON EMPLOYES1.NumAuto = HEURE_JOUR.IDemploye
WHERE (((EMPLOYES1.NomPrenom)="CELADA Sylvette") And ((HEURE_JOUR.LeJour) Between #1/1/2024# And #12/31/2024#) And ((FormatDateTime(HEURE_JOUR!HeuresPointeuse,3))<>"00:00:00"));

JOURSFERIES : 

SELECT Calendrier.Date, CBool([Ferie]) AS JFERIE
FROM Calendrier
WHERE (((CBool([Ferie]))=True) AND ((Calendrier.Annee)>=2023));

mdp frontignan : 

SELECT EMPLOYES.NomPrenom, EMPLOYES.[Actif], EMPLOYES.TypeContrat, EMPLOYES.EmailPersonnel, EMPLOYES.NomPrenomResponsable, EMPLOYES.MDPEntretien, UTILISATEURS.MDP4D
FROM EMPLOYES LEFT JOIN UTILISATEURS ON EMPLOYES.NumAuto = UTILISATEURS.id_Empl;

MODULATION 4D : 

 

Back to top