openaccess/test/source/forms/frm_donneesRH.bas

Version =20
VersionRequired =20
Begin Form
    DividingLines = NotDefault
    FilterOn = NotDefault
    OrderByOn = NotDefault
    AllowDesignChanges = NotDefault
    AllowUpdating =1
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18136
    DatasheetFontHeight =11
    ItemSuffix =118
    Right =12765
    Bottom =7920
    DatasheetGridlinesColor =15062992
    Filter ="[CodeAgent]='T5' AND [MoisRH]=1 AND [AnneeRH]=2015"
    OrderBy ="[DateRH]"
    RecSrcDt = Begin
        0x007988d4ae8de440
    End
    RecordSource ="SELECT tbl_ImportRH.IdImportRH, tbl_ImportRH.CodeLigne, tbl_ImportRH.CodeAgent, "
        "tbl_ImportRH.DateRH, tbl_ImportRH.Depart, tbl_ImportRH.CodeLocalisation, tbl_Imp"
        "ortRH.Localisation, tbl_ImportRH.strCategorieInterventionId, tbl_ImportRH.HeureS"
        "up1, tbl_ImportRH.HeureSup2, tbl_ImportRH.HeureSupDimanche, tbl_ImportRH.Repas, "
        "tbl_ImportRH.DistanceTranche1, tbl_ImportRH.VehiculePersoTranche1, tbl_ImportRH."
        "DistanceTranche2, tbl_ImportRH.VehiculePersoTranche2, tbl_ImportRH.FichierXML, t"
        "bl_ImportRH.DateImport, tbl_ImportRH.ResponsableImport, Month([DateRH]) AS MoisR"
        "H, Year([DateRH]) AS AnneeRH, Not ((CInt([Repas])>0 Or (IIf([VehiculePersoTranch"
        "e1]='True',CLng([DistanceTranche1]),0)+IIf([VehiculePersoTranche2]='True',CLng(["
        "DistanceTranche2]),0)>0)) And (Nz([Localisation],'')=Nz(DFirst(\"[ResidenceAdmin"
        "]\",\"[tbl_Agents]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\"),''))) AS valide FR"
        "OM tbl_ImportRH; "
    OnOpen ="[Event Procedure]"
    DatasheetFontName ="Calibri"
    PrtMip = Begin
        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    FilterOnLoad =0
    DatasheetBackColor12 =-2147483643
    ShowPageMargins =0
    DisplayOnSharePointSite =1
    DatasheetAlternateBackColor =16053492
    DatasheetGridlinesColor12 =15062992
    FitToScreen =1
    Begin
        Begin Label
            BackStyle =0
            FontSize =11
            FontName ="Calibri"
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            ForeThemeColorIndex =2
            ForeTint =60.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            BorderLineStyle =0
            Width =850
            Height =850
            BorderThemeColorIndex =3
            BorderShade =90.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =11
            FontWeight =400
            FontName ="Calibri"
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            BackColor =-2147483633
            BorderLineStyle =0
            BorderThemeColorIndex =3
            BorderShade =90.0
            ThemeFontIndex =1
        End
        Begin CheckBox
            BorderLineStyle =0
            LabelX =230
            LabelY =-30
            BorderThemeColorIndex =1
            BorderShade =65.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin BoundObjectFrame
            AddColon = NotDefault
            SizeMode =3
            SpecialEffect =2
            BorderLineStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin TextBox
            FELineBreak = NotDefault
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AsianLineBreak =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =3
            BorderShade =90.0
            ThemeFontIndex =1
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ComboBox
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =3
            BorderShade =90.0
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =11
            FontWeight =400
            FontName ="Calibri"
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            BackColor =15790320
            BackThemeColorIndex =6
            BackTint =30.0
            BorderLineStyle =0
            BorderThemeColorIndex =3
            BorderShade =90.0
            ThemeFontIndex =1
        End
        Begin FormHeader
            Height =1927
            BackColor =15527148
            Name ="EntêteFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin Label
                    OverlapFlags =93
                    Left =120
                    Top =60
                    Width =2595
                    Height =330
                    FontWeight =700
                    BorderColor =16777215
                    Name ="Étiquette0"
                    Caption ="Données RH importées"
                    GridlineColor =10921638
                    LayoutCachedLeft =120
                    LayoutCachedTop =60
                    LayoutCachedWidth =2715
                    LayoutCachedHeight =390
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =2551
                    Top =1474
                    Width =1455
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette1"
                    Caption ="Départ:"
                    GridlineColor =10921638
                    LayoutCachedLeft =2551
                    LayoutCachedTop =1474
                    LayoutCachedWidth =4006
                    LayoutCachedHeight =1789
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =4195
                    Top =1474
                    Width =1290
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette2"
                    Caption ="Localisation:"
                    GridlineColor =10921638
                    LayoutCachedLeft =4195
                    LayoutCachedTop =1474
                    LayoutCachedWidth =5485
                    LayoutCachedHeight =1789
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =1077
                    Top =1474
                    Width =840
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette3"
                    Caption ="Date:"
                    GridlineColor =10921638
                    LayoutCachedLeft =1077
                    LayoutCachedTop =1474
                    LayoutCachedWidth =1917
                    LayoutCachedHeight =1789
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =93
                    Left =15759
                    Top =1077
                    Width =1170
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette4"
                    Caption ="Fichier Xml:"
                    GridlineColor =10921638
                    LayoutCachedLeft =15759
                    LayoutCachedTop =1077
                    LayoutCachedWidth =16929
                    LayoutCachedHeight =1392
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =8447
                    Top =1483
                    Width =675
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette5"
                    Caption ="Type 1"
                    GridlineColor =10921638
                    LayoutCachedLeft =8447
                    LayoutCachedTop =1483
                    LayoutCachedWidth =9122
                    LayoutCachedHeight =1798
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =93
                    Left =8676
                    Top =1080
                    Width =1860
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette6"
                    Caption ="Heures Sup:"
                    GridlineColor =10921638
                    LayoutCachedLeft =8676
                    LayoutCachedTop =1080
                    LayoutCachedWidth =10536
                    LayoutCachedHeight =1395
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =9978
                    Top =1474
                    Width =615
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette7"
                    Caption ="Dim"
                    GridlineColor =10921638
                    LayoutCachedLeft =9978
                    LayoutCachedTop =1474
                    LayoutCachedWidth =10593
                    LayoutCachedHeight =1789
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =93
                    Left =10827
                    Top =1080
                    Width =690
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette8"
                    Caption ="Repas:"
                    GridlineColor =10921638
                    LayoutCachedLeft =10827
                    LayoutCachedTop =1080
                    LayoutCachedWidth =11517
                    LayoutCachedHeight =1395
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =93
                    TextAlign =2
                    Left =11663
                    Top =1080
                    Width =3885
                    Height =390
                    BorderColor =16777215
                    Name ="Étiquette9"
                    Caption ="Distance parcourue (VP Oui/Non):"
                    GridlineColor =10921638
                    LayoutCachedLeft =11663
                    LayoutCachedTop =1080
                    LayoutCachedWidth =15548
                    LayoutCachedHeight =1470
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =11791
                    Top =1530
                    Width =1020
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette10"
                    Caption ="Tranche 1"
                    GridlineColor =10921638
                    LayoutCachedLeft =11791
                    LayoutCachedTop =1530
                    LayoutCachedWidth =12811
                    LayoutCachedHeight =1845
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =13435
                    Top =1530
                    Width =1080
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette11"
                    Caption ="Tranche 2"
                    GridlineColor =10921638
                    LayoutCachedLeft =13435
                    LayoutCachedTop =1530
                    LayoutCachedWidth =14515
                    LayoutCachedHeight =1845
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =113
                    Top =1474
                    Width =675
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette14"
                    Caption ="Agent:"
                    GridlineColor =10921638
                    LayoutCachedLeft =113
                    LayoutCachedTop =1474
                    LayoutCachedWidth =788
                    LayoutCachedHeight =1789
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    ColumnCount =2
                    Left =4648
                    Top =56
                    Width =3116
                    Height =315
                    ColumnOrder =4
                    BorderColor =12835293
                    ForeColor =4138256
                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
                    Name ="lst_agent"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, DCount(\"[CodeLigne]\",\"[tbl_Impor"
                        "tRH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\") AS donnee_rh FROM tbl_Agents GRO"
                        "UP BY tbl_Agents.CodeAgent, tbl_Agents.Nom, DCount(\"[CodeLigne]\",\"[tbl_Import"
                        "RH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\") HAVING (((DCount(\"[CodeLigne]\","
                        "\"[tbl_ImportRH]\",\"[CodeAgent]='\" & [CodeAgent] & \"'\"))>0)) ORDER BY tbl_Ag"
                        "ents.Nom; "
                    ColumnWidths ="0;3402"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =4648
                    LayoutCachedTop =56
                    LayoutCachedWidth =7764
                    LayoutCachedHeight =371
                End
                Begin Label
                    OverlapFlags =85
                    Left =3741
                    Top =56
                    Width =804
                    Height =340
                    BorderColor =16777215
                    Name ="Étiquette17"
                    Caption ="Agent:"
                    GridlineColor =10921638
                    LayoutCachedLeft =3741
                    LayoutCachedTop =56
                    LayoutCachedWidth =4545
                    LayoutCachedHeight =396
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =7937
                    Top =56
                    Width =1644
                    Height =340
                    BorderColor =16777215
                    Name ="Étiquette18"
                    Caption ="pour le mois de:"
                    GridlineColor =10921638
                    LayoutCachedLeft =7937
                    LayoutCachedTop =56
                    LayoutCachedWidth =9581
                    LayoutCachedHeight =396
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin ComboBox
                    RowSourceTypeInt =1
                    OverlapFlags =215
                    IMESentenceMode =3
                    ColumnCount =2
                    ListWidth =2880
                    Left =9524
                    Top =56
                    Width =1984
                    Height =315
                    ColumnOrder =3
                    TabIndex =1
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="lst_mois"
                    RowSourceType ="Value List"
                    RowSource ="1;\"Janvier\";2;\"Février\";3;\"Mars\";4;\"Avril\";5;\"Mai\";6;\"Juin\";7;\"Juil"
                        "let\";8;\"Août\";9;\"Septembre\";10;\"Octobre\";11;\"Novembre\";12;\"Decembre\""
                    ColumnWidths ="0;2268"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =9524
                    LayoutCachedTop =56
                    LayoutCachedWidth =11508
                    LayoutCachedHeight =371
                End
                Begin Label
                    OverlapFlags =93
                    Left =11962
                    Top =56
                    Width =1644
                    Height =340
                    BorderColor =16777215
                    Name ="Étiquette21"
                    Caption ="de l'année:"
                    GridlineColor =10921638
                    LayoutCachedLeft =11962
                    LayoutCachedTop =56
                    LayoutCachedWidth =13606
                    LayoutCachedHeight =396
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin ComboBox
                    OverlapFlags =215
                    IMESentenceMode =3
                    Left =13266
                    Top =56
                    Height =315
                    ColumnOrder =2
                    TabIndex =2
                    BorderColor =12835293
                    ForeColor =4138256
                    ColumnInfo ="\"\";\"\";\"3\";\"2\""
                    Name ="lst_annee"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT Year([DateRH]) AS Annee FROM tbl_ImportRH GROUP BY Year([DateRH]) HAVING "
                        "(((Year([DateRH]))>=2013)) ORDER BY Year([DateRH]) DESC; "
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =13266
                    LayoutCachedTop =56
                    LayoutCachedWidth =14967
                    LayoutCachedHeight =371
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15590
                    Top =56
                    Width =621
                    Height =396
                    TabIndex =3
                    ForeColor =4138256
                    Name ="Commande24"
                    Caption ="Commande24"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00ddddd0dddddddddddddd00ddddddddddddd030dddddddddd ,
                        0xdd0330dddddddddd0033300000000dddd03330ff0dddddddd03300ff0dddd4dd ,
                        0xd03330ff0ddd44ddd03330ff0dd44444d03330ff0d444444d03330ff0dd44444 ,
                        0xd0330fff0ddd44ddd030ffff0dddd4ddd00fffff0dddddddd00000000ddddddd ,
                        0xdddddddddddddddd000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x000301000000000000000000
                    End
                    ControlTipText ="Fermer formulaire"
                    GridlineColor =10921638

                    LayoutCachedLeft =15590
                    LayoutCachedTop =56
                    LayoutCachedWidth =16211
                    LayoutCachedHeight =452
                    BorderColor =12835293
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin Label
                    OverlapFlags =93
                    Left =9184
                    Top =1476
                    Width =675
                    Height =315
                    BorderColor =16777215
                    Name ="Étiquette25"
                    Caption ="Type 2"
                    GridlineColor =10921638
                    LayoutCachedLeft =9184
                    LayoutCachedTop =1476
                    LayoutCachedWidth =9859
                    LayoutCachedHeight =1791
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
                Begin Rectangle
                    OverlapFlags =223
                    Left =8329
                    Top =963
                    Width =2385
                    Height =946
                    BorderColor =12835293
                    Name ="Boîte26"
                    GridlineColor =10921638
                    LayoutCachedLeft =8329
                    LayoutCachedTop =963
                    LayoutCachedWidth =10714
                    LayoutCachedHeight =1909
                End
                Begin Rectangle
                    OverlapFlags =223
                    Left =10714
                    Top =963
                    Width =900
                    Height =946
                    BorderColor =12835293
                    Name ="Boîte27"
                    GridlineColor =10921638
                    LayoutCachedLeft =10714
                    LayoutCachedTop =963
                    LayoutCachedWidth =11614
                    LayoutCachedHeight =1909
                End
                Begin Rectangle
                    OverlapFlags =223
                    Left =11621
                    Top =963
                    Width =4035
                    Height =946
                    BorderColor =12835293
                    Name ="Boîte28"
                    GridlineColor =10921638
                    LayoutCachedLeft =11621
                    LayoutCachedTop =963
                    LayoutCachedWidth =15656
                    LayoutCachedHeight =1909
                End
                Begin Rectangle
                    OverlapFlags =215
                    Left =15646
                    Top =963
                    Width =2490
                    Height =946
                    BorderColor =12835293
                    Name ="Boîte29"
                    GridlineColor =10921638
                    LayoutCachedLeft =15646
                    LayoutCachedTop =963
                    LayoutCachedWidth =18136
                    LayoutCachedHeight =1909
                End
                Begin Rectangle
                    OverlapFlags =223
                    Left =60
                    Top =963
                    Width =8276
                    Height =946
                    BorderColor =12835293
                    Name ="Boîte30"
                    GridlineColor =10921638
                    LayoutCachedLeft =60
                    LayoutCachedTop =963
                    LayoutCachedWidth =8336
                    LayoutCachedHeight =1909
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =113
                    Top =566
                    Width =3013
                    Height =340
                    TabIndex =4
                    ForeColor =4138256
                    Name ="Commande71"
                    Caption ="Afficher la vue synthétique"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =113
                    LayoutCachedTop =566
                    LayoutCachedWidth =3126
                    LayoutCachedHeight =906
                    BorderColor =12835293
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin TextBox
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =6916
                    Top =510
                    Width =2551
                    Height =315
                    ColumnOrder =1
                    FontWeight =700
                    TabIndex =5
                    BorderColor =12835293
                    ForeColor =2366701
                    Name ="txt_etat"
                    GridlineColor =10921638

                    LayoutCachedLeft =6916
                    LayoutCachedTop =510
                    LayoutCachedWidth =9467
                    LayoutCachedHeight =825
                    ForeThemeColorIndex =-1
                    ForeShade =100.0
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =5215
                            Top =510
                            Width =870
                            Height =315
                            FontWeight =700
                            BorderColor =16777215
                            ForeColor =2366701
                            Name ="txt_libetat"
                            Caption ="Etat:"
                            GridlineColor =10921638
                            LayoutCachedLeft =5215
                            LayoutCachedTop =510
                            LayoutCachedWidth =6085
                            LayoutCachedHeight =825
                            ForeThemeColorIndex =-1
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    FontItalic = NotDefault
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =113
                    Top =283
                    Width =3515
                    Height =255
                    ColumnOrder =0
                    FontSize =9
                    TabIndex =6
                    BorderColor =10921638
                    ForeColor =255
                    Name ="verif"
                    ControlSource ="=VerifImport(Nz([lst_agent],\"\"),Nz([lst_mois],0),Nz([lst_annee],0))"
                    GridlineColor =10921638

                    LayoutCachedLeft =113
                    LayoutCachedTop =283
                    LayoutCachedWidth =3628
                    LayoutCachedHeight =538
                    BorderThemeColorIndex =1
                    BorderShade =65.0
                    ForeThemeColorIndex =-1
                    ForeShade =100.0
                End
                Begin Label
                    OverlapFlags =215
                    Left =6683
                    Top =1474
                    Width =1080
                    Height =317
                    BorderColor =16777215
                    Name ="Étiquette103"
                    Caption ="Type Int :"
                    GridlineColor =10921638
                    LayoutCachedLeft =6683
                    LayoutCachedTop =1474
                    LayoutCachedWidth =7763
                    LayoutCachedHeight =1791
                    ForeThemeColorIndex =0
                    ForeTint =100.0
                End
            End
        End
        Begin Section
            Height =510
            BackColor =15527148
            Name ="Détail"
            AlternateBackColor =15921906
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =5159
                    Top =170
                    Width =561
                    Height =315
                    TabIndex =18
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Localisation"
                    ControlSource ="Localisation"
                    ConditionalFormat = Begin
                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b0056006500720069006600440072006f00690074005d003d00300000000000
                    End
                    GridlineColor =10921638

                    LayoutCachedLeft =5159
                    LayoutCachedTop =170
                    LayoutCachedWidth =5720
                    LayoutCachedHeight =485
                    ConditionalFormat14 = Begin
                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
                        0x56006500720069006600440072006f00690074005d003d003000000000000000 ,
                        0x000000000000000000000000000000
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =2551
                    Top =56
                    Width =1521
                    Height =315
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="CodeChantier"
                    ControlSource ="Depart"
                    GridlineColor =10921638

                    LayoutCachedLeft =2551
                    LayoutCachedTop =56
                    LayoutCachedWidth =4072
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =1077
                    Top =56
                    Width =1416
                    Height =315
                    TabIndex =1
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="DateRH"
                    ControlSource ="DateRH"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =1077
                    LayoutCachedTop =56
                    LayoutCachedWidth =2493
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =15759
                    Top =56
                    Width =2226
                    Height =315
                    ColumnWidth =3225
                    TabIndex =2
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="FichierXml"
                    ControlSource ="FichierXml"
                    GridlineColor =10921638

                    LayoutCachedLeft =15759
                    LayoutCachedTop =56
                    LayoutCachedWidth =17985
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =8508
                    Top =56
                    Width =561
                    Height =315
                    TabIndex =3
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="HeureSup1"
                    ControlSource ="HeureSup1"
                    GridlineColor =10921638

                    LayoutCachedLeft =8508
                    LayoutCachedTop =56
                    LayoutCachedWidth =9069
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =9297
                    Top =56
                    Width =561
                    Height =315
                    TabIndex =4
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="HeureSup2"
                    ControlSource ="HeureSup2"
                    GridlineColor =10921638

                    LayoutCachedLeft =9297
                    LayoutCachedTop =56
                    LayoutCachedWidth =9858
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =9977
                    Top =56
                    Width =561
                    Height =315
                    TabIndex =5
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="HeureSupDimanche"
                    ControlSource ="HeureSupDimanche"
                    GridlineColor =10921638

                    LayoutCachedLeft =9977
                    LayoutCachedTop =56
                    LayoutCachedWidth =10538
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =10884
                    Top =56
                    Width =561
                    Height =315
                    TabIndex =6
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="Repas"
                    ControlSource ="Repas"
                    ConditionalFormat = Begin
                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b0056006500720069006600520065007000610073005d003d00300000000000
                    End
                    GridlineColor =10921638

                    LayoutCachedLeft =10884
                    LayoutCachedTop =56
                    LayoutCachedWidth =11445
                    LayoutCachedHeight =371
                    ConditionalFormat14 = Begin
                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
                        0x56006500720069006600520065007000610073005d003d003000000000000000 ,
                        0x000000000000000000000000000000
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =11734
                    Top =56
                    Width =681
                    Height =315
                    TabIndex =7
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="DistanceTranche1"
                    ControlSource ="DistanceTranche1"
                    GridlineColor =10921638

                    LayoutCachedLeft =11734
                    LayoutCachedTop =56
                    LayoutCachedWidth =12415
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =13321
                    Top =56
                    Width =666
                    Height =315
                    TabIndex =8
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="DistanceTranche2"
                    ControlSource ="DistanceTranche2"
                    GridlineColor =10921638

                    LayoutCachedLeft =13321
                    LayoutCachedTop =56
                    LayoutCachedWidth =13987
                    LayoutCachedHeight =371
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =113
                    Top =56
                    Width =516
                    Height =315
                    ColumnWidth =1785
                    TabIndex =9
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="strEquipesLibelle"
                    ControlSource ="CodeAgent"
                    StatusBarText ="Libelle de l'équipe"
                    GridlineColor =10921638

                    LayoutCachedLeft =113
                    LayoutCachedTop =56
                    LayoutCachedWidth =629
                    LayoutCachedHeight =371
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =60
                    Width =8280
                    Height =451
                    BorderColor =12835293
                    Name ="Boîte31"
                    GridlineColor =10921638
                    LayoutCachedLeft =60
                    LayoutCachedWidth =8340
                    LayoutCachedHeight =451
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =8329
                    Width =2385
                    Height =451
                    BorderColor =12835293
                    Name ="Boîte32"
                    GridlineColor =10921638
                    LayoutCachedLeft =8329
                    LayoutCachedWidth =10714
                    LayoutCachedHeight =451
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =10714
                    Width =900
                    Height =451
                    BorderColor =12835293
                    Name ="Boîte33"
                    GridlineColor =10921638
                    LayoutCachedLeft =10714
                    LayoutCachedWidth =11614
                    LayoutCachedHeight =451
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =11621
                    Width =4035
                    Height =451
                    BorderColor =12835293
                    Name ="Boîte34"
                    GridlineColor =10921638
                    LayoutCachedLeft =11621
                    LayoutCachedWidth =15656
                    LayoutCachedHeight =451
                End
                Begin Rectangle
                    OverlapFlags =255
                    Left =15646
                    Width =2490
                    Height =451
                    BorderColor =12835293
                    Name ="Boîte35"
                    GridlineColor =10921638
                    LayoutCachedLeft =15646
                    LayoutCachedWidth =18136
                    LayoutCachedHeight =451
                End
                Begin CommandButton
                    OverlapFlags =255
                    Left =14966
                    Top =56
                    Width =453
                    Height =265
                    TabIndex =10
                    ForeColor =4138256
                    Name ="Distance"
                    Caption ="Commande94"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638
                    ImageData = Begin
                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000009070603090706080 ,
                        0x906850c0806850f0806050f0805840c070584080705040300000000000000000 ,
                        0x0000000000000000000000000000000000000000a0786060907060e0907050ff ,
                        0x706840ff906840ffb06840ff906040ff805040ff705040e07050406000000000 ,
                        0x00000000000000000000000000000000a0806060a07860f0c08060ff807830ff ,
                        0x607820ff506040ff906040ffc06840ffb06040ff905840ff705040f070504060 ,
                        0x000000000000000000000000b0807030a07860e0d08860fff08860ffd08040ff ,
                        0x608820ff308820ff606830ff706840ffb06840ffb06040ff905840ff705040e0 ,
                        0x705040300000000000000000b0807080c08870fff09860fff09060ffc08860ff ,
                        0x508040ff409820ff408830ff707040ffb06840ff806040ff606040ff605840ff ,
                        0x705840800000000000000000b08070c0e09870ffffa070ffe09070ff707850ff ,
                        0x50a840ff50a830ff809830ffd07850ff707040ff506840ff307810ff606830ff ,
                        0x805840c00000000000000000b08870f0f0b890fff0a880ff607860ff609850ff ,
                        0x60b040ff90a040ffe08860ffd08050ff507050ff408830ff309010ff408020ff ,
                        0x806050f00000000000000000b08870f0ffb8a0ffa09880ff40a850ff60b850ff ,
                        0x909860ffe09870ffe09060ffe08860ff60a030ff40a020ff409820ff408820ff ,
                        0x806850f00000000000000000b08870c0e0b8a0ff90b880ff50c870ff50c870ff ,
                        0x80a070ffc0a070ffd09870ffe09060ffa09840ff50a830ff40a020ff508830ff ,
                        0x906850c00000000000000000b0907080b0a080ff90d0a0ff70e090ff90e0a0ff ,
                        0x80e8a0ffa0d090ffb0a870fff09870ffe09060ff50a830ff50a830ff708840ff ,
                        0x907060800000000000000000b0907030b09080e090c8a0ffa0e8b0ffd0f0c0ff ,
                        0xd0f8d0fff0f8d0ffb0e8b0ff809860ffd09840ffb09040ff609840ff907050e0 ,
                        0x90706030000000000000000000000000b0908070b0a080f0b0d8b0ffd0f0d0ff ,
                        0xe0f8d0ff80b070ff80d890ff50b070ff908840ffd08860ffa07860f0a0786060 ,
                        0x0000000000000000000000000000000000000000b0908070b09080e0c0c0a0ff ,
                        0xd0e0c0ffb0e8b0ff80e0a0ff60b870ffa08850ffa07860e0a080606000000000 ,
                        0x000000000000000000000000000000000000000000000000b0908030b0908080 ,
                        0xb09080c0b09080f0c09880f0b09080c0b0807080b08070300000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End

                    LayoutCachedLeft =14966
                    LayoutCachedTop =56
                    LayoutCachedWidth =15419
                    LayoutCachedHeight =321
                    BorderColor =12835293
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                    Overlaps =1
                End
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =247
                    IMESentenceMode =3
                    Left =11451
                    Top =56
                    Width =272
                    Height =285
                    TabIndex =11
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="VerifRepas"
                    ControlSource ="=VerifRepas([CodeAgent],[DateRH])"
                    GridlineColor =10921638

                    LayoutCachedLeft =11451
                    LayoutCachedTop =56
                    LayoutCachedWidth =11723
                    LayoutCachedHeight =341
                End
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =247
                    IMESentenceMode =3
                    Left =8277
                    Top =56
                    Width =230
                    Height =315
                    TabIndex =12
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="VerifDroit"
                    ControlSource ="valide"
                    GridlineColor =10921638

                    LayoutCachedLeft =8277
                    LayoutCachedTop =56
                    LayoutCachedWidth =8507
                    LayoutCachedHeight =371
                End
                Begin ComboBox
                    RowSourceTypeInt =1
                    OverlapFlags =247
                    IMESentenceMode =3
                    ColumnCount =2
                    Left =12472
                    Top =56
                    Width =752
                    Height =315
                    TabIndex =13
                    BorderColor =12835293
                    ForeColor =4138256
                    ConditionalFormat = Begin
                        0x010000007a000000010000000100000000000000000000000c00000001010000 ,
                        0xed1c2400ffffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b0056006500720069006600560050005d003d00300000000000
                    End
                    Name ="VehiculePersoTranche1"
                    ControlSource ="VehiculePersoTranche1"
                    RowSourceType ="Value List"
                    RowSource ="\"True\";\"Oui\";\"False\";\"Non\""
                    ColumnWidths ="0;794"
                    GridlineColor =10921638

                    LayoutCachedLeft =12472
                    LayoutCachedTop =56
                    LayoutCachedWidth =13224
                    LayoutCachedHeight =371
                    ConditionalFormat14 = Begin
                        0x010001000000010000000000000001010000ed1c2400ffffff000b0000005b00 ,
                        0x56006500720069006600560050005d003d003000000000000000000000000000 ,
                        0x000000000000000000
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =247
                    IMESentenceMode =3
                    ColumnCount =2
                    Left =14059
                    Top =56
                    Width =752
                    Height =315
                    TabIndex =14
                    BorderColor =12835293
                    ForeColor =4138256
                    ConditionalFormat = Begin
                        0x010000007a000000010000000100000000000000000000000c00000001010000 ,
                        0xed1c2400ffffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b0056006500720069006600560050005d003d00300000000000
                    End
                    Name ="VehiculePersoTranche2"
                    ControlSource ="VehiculePersoTranche2"
                    RowSourceType ="Value List"
                    RowSource ="\"True\";\"Oui\";\"False\";\"Non\""
                    ColumnWidths ="0;795"
                    GridlineColor =10921638

                    LayoutCachedLeft =14059
                    LayoutCachedTop =56
                    LayoutCachedWidth =14811
                    LayoutCachedHeight =371
                    ConditionalFormat14 = Begin
                        0x010001000000010000000000000001010000ed1c2400ffffff000b0000005b00 ,
                        0x56006500720069006600560050005d003d003000000000000000000000000000 ,
                        0x000000000000000000
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =247
                    IMESentenceMode =3
                    Left =15419
                    Top =56
                    Width =230
                    Height =315
                    TabIndex =15
                    BorderColor =12835293
                    ForeColor =4138256
                    Name ="VerifVP"
                    ControlSource ="=VerifVP([CodeAgent],[DateRH])"
                    GridlineColor =10921638

                    LayoutCachedLeft =15419
                    LayoutCachedTop =56
                    LayoutCachedWidth =15649
                    LayoutCachedHeight =371
                End
                Begin ComboBox
                    OverlapFlags =247
                    IMESentenceMode =3
                    ColumnCount =2
                    ListWidth =5670
                    Left =6074
                    Top =56
                    Width =2146
                    Height =315
                    TabIndex =16
                    BorderColor =12835293
                    ForeColor =4138256
                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"100\""
                    Name ="strCategorieInterventionId"
                    ControlSource ="strCategorieInterventionId"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT pdaNatInterv.strCategorieInterventioinId, pdaNatInterv.strCategorieInterv"
                        "entioinLibelle FROM pdaNatInterv; "
                    ColumnWidths ="0;2268"
                    GridlineColor =10921638

                    LayoutCachedLeft =6074
                    LayoutCachedTop =56
                    LayoutCachedWidth =8220
                    LayoutCachedHeight =371
                End
                Begin ComboBox
                    OverlapFlags =247
                    IMESentenceMode =3
                    ColumnCount =2
                    ListWidth =3402
                    Left =4138
                    Top =56
                    Width =1883
                    Height =315
                    TabIndex =17
                    BorderColor =12835293
                    ForeColor =4138256
                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"80\""
                    ConditionalFormat = Begin
                        0x0100000080000000010000000100000000000000000000000f00000001010000 ,
                        0xff000000ffffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b0056006500720069006600440072006f00690074005d003d00300000000000
                    End
                    Name ="CodeLocalisation"
                    ControlSource ="CodeLocalisation"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT pdalocalisation.lngTiersId, pdalocalisation.strTiersMnemo FROM pdalocalis"
                        "ation ORDER BY pdalocalisation.strTiersMnemo; "
                    ColumnWidths ="0;3402"
                    AfterUpdate ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =4138
                    LayoutCachedTop =56
                    LayoutCachedWidth =6021
                    LayoutCachedHeight =371
                    ConditionalFormat14 = Begin
                        0x010001000000010000000000000001010000ff000000ffffff000e0000005b00 ,
                        0x56006500720069006600440072006f00690074005d003d003000000000000000 ,
                        0x000000000000000000000000000000
                    End
                End
            End
        End
        Begin FormFooter
            Height =680
            BackColor =14211288
            Name ="PiedFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin Label
                    Visible = NotDefault
                    OverlapFlags =85
                    Left =113
                    Top =170
                    Width =6130
                    Height =396
                    BorderColor =16777215
                    ForeColor =2366701
                    Name ="txt_msg"
                    Caption ="."
                    GridlineColor =10921638
                    LayoutCachedLeft =113
                    LayoutCachedTop =170
                    LayoutCachedWidth =6243
                    LayoutCachedHeight =566
                    ForeThemeColorIndex =-1
                    ForeTint =100.0
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database


Private Sub cmdValider_Click()
Dim CodeAgent As String
Dim moisRH, anneeRH As Integer


'verif de l'agent, du mois, de l'annee

CodeAgent = Me.lst_agent.Column(0)
moisRH = Me.lst_mois.Column(0)
anneeRH = Me.lst_annee.Column(0)

If IsNull(CodeAgent) Or CodeAgent = "" Then
MsgBox "Selectionner un agent"
Exit Sub
End If

If Not moisRH > 0 And Not moisRH < 13 Then
MsgBox "Choisir un mois valide"
Exit Sub
End If

If Not anneeRH > 1900 Then
MsgBox "Choisir une année valide"
Exit Sub
End If


'un test de l'existence d'une ligne de suivi est effectué sur mise à jour de l'affichage
  
'verification de l'état actuel
 filtre = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
 Etat = Nz(DLookup("Etat", "tbl_SuiviRH", filtre), "")

If Etat = "Importé" Then

ElseIf Etat = "" Then
 MsgBox "Erreur: Données manquantes dans la table de suivi, contacter un administrateur"
 Exit Sub
Else
 MsgBox "Erreur: Ces données on déja été validées"
 Exit Sub
End If

'lancement de la procédure de traitement des données

'Call validation(CodeAgent, moisRH, agentRH)


End Sub

Private Sub CodeLocalisation_AfterUpdate()
  Me.Localisation = Me.CodeLocalisation.Column(1)
End Sub

Private Sub Commande71_Click()
DoCmd.OpenForm "frm_SyntheseRH"
End Sub


Private Sub DateRH_AfterUpdate()

If Not IsDate(Me.DateRH) Then
  MsgBox "Vous devez entrer une date valide"
  Me.DateRH = Me.DateRH.OldValue
Else
  If Month(Me.DateRH) <> Month(Me.DateRH.OldValue) Or Year(Me.DateRH) <> Year(Me.DateRH.OldValue) Then
    MsgBox ("Vous ne pouvez pas modifier le mois ou l'année d'une date, veuillez supprimer la ligne et la recréer au mois désiré")
    Me.DateRH = Me.DateRH.OldValue
  End If
End If


End Sub

Private Sub Distance_Click()
Dim Depart, arrivee As String

Depart = Nz(DLookup("ResidenceFamiliale", "tbl_Agents", "[CodeAgent]='" & Me.CodeAgent & "' AND [PeriodeValidite]=" & PeriodeAgent(Me.CodeAgent, Me.moisRH, Me.anneeRH)), "Erstein")
arrivee = Me.Localisation
Call DistanceInternet(Depart, arrivee)

End Sub



Private Sub Form_Open(Cancel As Integer)

'ouverture d'un formulaire 'vierge'
Me.Détail.Visible = False
Me.txt_etat.Visible = False
Me.txt_libetat.Visible = False
Me.lst_agent = ""
Me.lst_annee = Year(DMax("DateRH", "tbl_ImportRH", ""))
Me.lst_mois = Month(Now()) - 1
Me.Refresh

End Sub



Private Sub lst_agent_AfterUpdate()
filtreRH
End Sub

Private Sub lst_annee_AfterUpdate()
filtreRH
End Sub

Private Sub lst_mois_AfterUpdate()
filtreRH
End Sub

Public Sub filtreRH()
Dim CodeAgent As String
Dim moisRH, anneeRH As Integer
Dim filtre, Etat As String

If Me.lst_agent <> "" And Me.lst_annee > 2000 And Me.lst_mois <= 12 And Me.lst_mois > 0 Then
 CodeAgent = Me.lst_agent.Column(0)
 moisRH = Me.lst_mois.Column(0)
 anneeRH = Me.lst_annee.Column(0)
 
 
 'MAJ du filtre
 filtre = "[CodeAgent]='" & CodeAgent & "' AND [MoisRH]=" & moisRH & " AND [AnneeRH]=" & anneeRH
 Me.Filter = filtre
 Me.FilterOn = True
 Me.OrderBy = "[DateRH]"

 
 'test du fichier de suivi
 Etat = Nz(DLookup("Etat", "tbl_SuiviRH", filtre), "")
 Select Case Etat
  Case ""
   Me.txt_msg.Caption = "Le fichier n'a pas été détecté comme importé à l'ouverture de l'application, veuillez en faire part à un administrateur"
   Exit Sub
  Case "Importé"
   Call VerrouDonneesImport(0)
  Case "Validé"
   Call VerrouDonneesImport(1)
  Case "Edité"
   Call VerrouDonneesImport(1)
  Case "Invalidé"
   Call VerrouDonneesImport(0)
 End Select
 Me.txt_etat = Etat
 Me.Détail.Visible = True
 Me.txt_etat.Visible = True
 Me.txt_libetat.Visible = True
 Me.txt_etat.Locked = True
End If
End Sub



Private Sub Commande24_Click()
On Error GoTo Err_Commande24_Click


    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

Exit_Commande24_Click:
    Exit Sub

Err_Commande24_Click:
    MsgBox err.Description
    Resume Exit_Commande24_Click
    
End Sub