openaccess/test/source/forms/frm_MAJAgent.bas

Version =20
VersionRequired =20
Begin Form
    DividingLines = NotDefault
    FilterOn = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =11970
    DatasheetFontHeight =11
    ItemSuffix =47
    Right =10395
    Bottom =12345
    DatasheetGridlinesColor =14806254
    Filter ="[CodeAgent]='T5' AND [PeriodeValidite]=1"
    RecSrcDt = Begin
        0x8fb1b13eb636e440
    End
    RecordSource ="SELECT tbl_Agents.CodeAgent, tbl_Agents.Nom, tbl_Agents.PeriodeValidite, tbl_Age"
        "nts.Grade, tbl_Agents.Catégorie, tbl_Agents.RémunérationBase, tbl_Agents.Groupe,"
        " tbl_Agents.ResidenceAdmin, tbl_Agents.ResidenceFamiliale, tbl_Agents.Telephone,"
        " tbl_Agents.Matricule, tbl_Agents.TypeVehicule, tbl_Agents.DateAutorisationVP, t"
        "bl_Agents.PuissanceFiscVP, tbl_Agents.NbKmAutorisesVP, tbl_Agents.TypeVirement F"
        "ROM tbl_Agents; "
    AfterUpdate ="[Event Procedure]"
    OnOpen ="[Event Procedure]"
    DatasheetFontName ="Calibri"
    FilterOnLoad =0
    ShowPageMargins =0
    DisplayOnSharePointSite =1
    DatasheetAlternateBackColor =15921906
    DatasheetGridlinesColor12 =0
    FitToScreen =1
    DatasheetBackThemeColorIndex =1
    BorderThemeColorIndex =3
    ThemeFontIndex =1
    ForeThemeColorIndex =0
    AlternateBackThemeColorIndex =1
    AlternateBackShade =95.0
    Begin
        Begin Label
            BackStyle =0
            FontSize =11
            FontName ="Calibri"
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =0
            BorderTint =50.0
            ForeThemeColorIndex =0
            ForeTint =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =11
            FontWeight =400
            FontName ="Calibri"
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            UseTheme =1
            Shape =1
            Gradient =12
            BackThemeColorIndex =4
            BackTint =60.0
            BorderLineStyle =0
            BorderColor =16777215
            BorderThemeColorIndex =4
            BorderTint =60.0
            ThemeFontIndex =1
            HoverThemeColorIndex =4
            HoverTint =40.0
            PressedThemeColorIndex =4
            PressedShade =75.0
            HoverForeThemeColorIndex =0
            HoverForeTint =75.0
            PressedForeThemeColorIndex =0
            PressedForeTint =75.0
        End
        Begin TextBox
            AddColon = NotDefault
            FELineBreak = NotDefault
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AsianLineBreak =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ThemeFontIndex =1
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ListBox
            BorderLineStyle =0
            Width =1701
            Height =1417
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ComboBox
            AddColon = NotDefault
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin FormHeader
            Height =2267
            BackColor =15849926
            Name ="EntêteFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            BackThemeColorIndex =2
            BackTint =20.0
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =113
                    Top =56
                    Width =516
                    Height =396
                    ForeColor =4210752
                    Name ="Commande19"
                    Caption ="Commande19"
                    ControlTipText ="Fermer formulaire"
                    GridlineColor =10921638
                    OnClickEmMacro = Begin
                        Version =196611
                        ColumnsShown =8
                        Begin
                            Action ="Close"
                            Argument ="-1"
                            Argument =""
                            Argument ="0"
                        End
                        Begin
                            Comment ="_AXL:<?xml version=\"1.0\" encoding=\"UTF-16\" standalone=\"no\"?>\015\012<UserI"
                                "nterfaceMacro For=\"Commande19\" xmlns=\"http://schemas.microsoft.com/office/acc"
                                "essservices/2009/11/application\" xmlns:a=\"http://schemas.microsoft.com/office/"
                                "accessservices/2009/11/forms\">"
                        End
                        Begin
                            Comment ="_AXL:<Statements><Action Name=\"CloseWindow\"/></Statements></UserInterfaceMacro"
                                ">"
                        End
                    End
                    ImageData = Begin
                        0x2800000010000000100000000100200000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000010081080 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x000000000000000000000000000000000000000040485020100810e0104050ff ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000040404080405860ff106890ff2080a0f0 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000607070ff80a0b0ff4080a0ff20a0d0ff40a8e0ff2078a0ff ,
                        0x101020ff101020ff000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000708890ffa0d8f0ff60d0ffff50c0f0ff30a8e0ff1080b0ff ,
                        0xe0d8d0ff102020ff000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000708890ffb0e8f0ff80e0ffff60c8f0ff50b8f0ff1088c0ff ,
                        0xf0d8d0ff202830ff000000000000000090482030904820ff0000000000000000 ,
                        0x0000000000000000808890ffb0e8f0ff80e0ffff60d0ffff404050ff1090c0ff ,
                        0xf0e0d0ff303840ff0000000090482030a05030ffa05020ff0000000000000000 ,
                        0x00000000000000008090a0ffc0f0ffff90e0ffff70d8ffff60c8f0ff0090c0ff ,
                        0xf0e0e0ff404050ff90482030a05030ffd07840ffb05830ffa05020ffa04820ff ,
                        0x904820ff904820ff8090a0ffc0f0ffffa0e8ffff80d8ffff70d0f0ff40b0e0ff ,
                        0xf0e8e0ff605050ffa05830ffe08860fff09060fff08850ffe07850ffd07040ff ,
                        0xb06840ff904820ff8098a0ffc0f0ffffa0e8ffff90e8ffff80e0ffff80b8d0ff ,
                        0xf0e8e0ffe09870ffffc0a0ffffb090ffffa070fff09060fff08850ffe07850ff ,
                        0xd07040ffa05020ff8098a0ffc0f0ffffc0f8ffffa0e0f0ff90a8b0ffc0c8d0ff ,
                        0xf0f0e0ff908080fff0a070ffffc0a0ffffb090ffffb090ffffa880fff0a080ff ,
                        0xe09870ffb05030ff90a0a0ffe0f8ffffb0c8d0ff90a0b0fff0f0f0fffff8f0ff ,
                        0xf0f0f0ff607080ffe0987050f0a070ffffc0a0ffd06830ffe09870ffe09060ff ,
                        0xe08860ffe08050ff90a0b0ff90a8b0ffc0c8d0ffffffffffffffffffffffffff ,
                        0xffffffff708890ff00000000e0987050e09870ffd07040ff0000000000000000 ,
                        0x000000000000000090a0b0ff90a0b0ff90a0b0ff90a0b0ff90a0a0ff8098a0ff ,
                        0x8098a0ff9098a0ff0000000000000000e0987050e09870ff0000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End

                    LayoutCachedLeft =113
                    LayoutCachedTop =56
                    LayoutCachedWidth =629
                    LayoutCachedHeight =452
                    Gradient =0
                    BackColor =15921906
                    BackThemeColorIndex =1
                    BackTint =100.0
                    BackShade =95.0
                    BorderColor =14136213
                    HoverColor =15060409
                    PressedColor =9592887
                    HoverForeColor =4210752
                    PressedForeColor =4210752
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin Label
                    OverlapFlags =85
                    Left =680
                    Top =56
                    Width =3986
                    Height =334
                    FontSize =13
                    BorderColor =8355711
                    Name ="Étiquette20"
                    Caption ="Mise à jour des données de l'agent"
                    GridlineColor =10921638
                    LayoutCachedLeft =680
                    LayoutCachedTop =56
                    LayoutCachedWidth =4666
                    LayoutCachedHeight =390
                    ForeTint =100.0
                End
                Begin Label
                    OverlapFlags =93
                    Left =795
                    Top =963
                    Width =4425
                    Height =345
                    BorderColor =8355711
                    Name ="txt_ancdate"
                    Caption ="Les données ci dessous sont valables depuis le "
                    GridlineColor =10921638
                    LayoutCachedLeft =795
                    LayoutCachedTop =963
                    LayoutCachedWidth =5220
                    LayoutCachedHeight =1308
                    ForeTint =100.0
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8617
                    Top =966
                    Width =1476
                    Height =315
                    ColumnOrder =2
                    TabIndex =1
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="DateInf"
                    GridlineColor =10921638

                    LayoutCachedLeft =8617
                    LayoutCachedTop =966
                    LayoutCachedWidth =10093
                    LayoutCachedHeight =1281
                End
                Begin Label
                    OverlapFlags =85
                    Left =795
                    Top =1368
                    Width =7710
                    Height =285
                    BorderColor =8355711
                    Name ="txt_nvdate"
                    Caption ="Veuillez choisir la date à partir de  laquelle les nouvelles données prendront e"
                        "ffet:"
                    GridlineColor =10921638
                    LayoutCachedLeft =795
                    LayoutCachedTop =1368
                    LayoutCachedWidth =8505
                    LayoutCachedHeight =1653
                    ForeTint =100.0
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8617
                    Top =1363
                    Width =1474
                    Height =315
                    ColumnOrder =3
                    TabIndex =2
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="NvelleDate"
                    Format ="Short Date"
                    GridlineColor =10921638

                    LayoutCachedLeft =8617
                    LayoutCachedTop =1363
                    LayoutCachedWidth =10091
                    LayoutCachedHeight =1678
                End
                Begin Label
                    OverlapFlags =85
                    Left =793
                    Top =1760
                    Width =6480
                    Height =345
                    BorderColor =8355711
                    Name ="txt_copie"
                    Caption ="Voulez vous utiliser les anciennes données comme point de départ?"
                    GridlineColor =10921638
                    LayoutCachedLeft =793
                    LayoutCachedTop =1760
                    LayoutCachedWidth =7273
                    LayoutCachedHeight =2105
                    ForeTint =100.0
                End
                Begin ComboBox
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    ColumnCount =2
                    ListWidth =1442
                    Left =8617
                    Top =1760
                    Width =1476
                    Height =315
                    ColumnOrder =1
                    TabIndex =3
                    BorderColor =10921638
                    ForeColor =4138256
                    Name ="CopieAnc"
                    RowSourceType ="Value List"
                    RowSource ="1;\"Oui\";0;\"Non\""
                    ColumnWidths ="0;1441"
                    GridlineColor =10921638

                    LayoutCachedLeft =8617
                    LayoutCachedTop =1760
                    LayoutCachedWidth =10093
                    LayoutCachedHeight =2075
                End
                Begin TextBox
                    Locked = NotDefault
                    FontItalic = NotDefault
                    OldBorderStyle =0
                    OverlapFlags =93
                    BackStyle =0
                    IMESentenceMode =3
                    Left =11281
                    Top =113
                    Width =501
                    Height =315
                    ColumnOrder =0
                    FontSize =9
                    TabIndex =4
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="PeriodeValidite"
                    ControlSource ="PeriodeValidite"
                    StatusBarText ="cf. tbl_PeriodeAgent"
                    GridlineColor =10921638

                    LayoutCachedLeft =11281
                    LayoutCachedTop =113
                    LayoutCachedWidth =11782
                    LayoutCachedHeight =428
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =10261
                    Top =1760
                    Width =1077
                    TabIndex =5
                    ForeColor =4210752
                    Name ="CmdOK"
                    Caption ="OK"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =10261
                    LayoutCachedTop =1760
                    LayoutCachedWidth =11338
                    LayoutCachedHeight =2043
                    Gradient =0
                    BackColor =15921906
                    BackThemeColorIndex =1
                    BackTint =100.0
                    BackShade =95.0
                    BorderColor =14136213
                    HoverColor =15060409
                    PressedColor =9592887
                    HoverForeColor =4210752
                    PressedForeColor =4210752
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin Label
                    OverlapFlags =215
                    Left =793
                    Top =680
                    Width =6855
                    Height =630
                    BorderColor =8355711
                    Name ="txt_edition"
                    Caption ="Veuillez renseigner ci dessous les nouvelles informations de l'agent. Elles sero"
                        "nt prises en compte à partir du:"
                    GridlineColor =10921638
                    LayoutCachedLeft =793
                    LayoutCachedTop =680
                    LayoutCachedWidth =7648
                    LayoutCachedHeight =1310
                    ForeTint =100.0
                End
                Begin Label
                    FontItalic = NotDefault
                    OverlapFlags =247
                    Left =9070
                    Top =113
                    Width =2385
                    Height =225
                    FontSize =9
                    BorderColor =8355711
                    ForeColor =8355711
                    Name ="Étiquette46"
                    Caption ="Code de la période affichée:"
                    GridlineColor =10921638
                    LayoutCachedLeft =9070
                    LayoutCachedTop =113
                    LayoutCachedWidth =11455
                    LayoutCachedHeight =338
                End
            End
        End
        Begin Section
            Height =6179
            BackColor =14270637
            Name ="Détail"
            AlternateBackColor =15921906
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1870
                    Top =113
                    Width =1086
                    Height =315
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="CodeAgent"
                    ControlSource ="CodeAgent"
                    GridlineColor =10921638

                    LayoutCachedLeft =1870
                    LayoutCachedTop =113
                    LayoutCachedWidth =2956
                    LayoutCachedHeight =428
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =165
                            Top =120
                            Width =1575
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette0"
                            Caption ="Code de l'agent:"
                            GridlineColor =10921638
                            LayoutCachedLeft =165
                            LayoutCachedTop =120
                            LayoutCachedWidth =1740
                            LayoutCachedHeight =435
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =907
                    Top =1190
                    Width =3066
                    Height =315
                    ColumnWidth =3225
                    TabIndex =1
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Nom"
                    ControlSource ="Nom"
                    GridlineColor =10921638

                    LayoutCachedLeft =907
                    LayoutCachedTop =1190
                    LayoutCachedWidth =3973
                    LayoutCachedHeight =1505
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =165
                            Top =1190
                            Width =585
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette1"
                            Caption ="Nom:"
                            GridlineColor =10921638
                            LayoutCachedLeft =165
                            LayoutCachedTop =1190
                            LayoutCachedWidth =750
                            LayoutCachedHeight =1505
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2551
                    Top =1700
                    Width =1431
                    Height =315
                    TabIndex =2
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Grade"
                    ControlSource ="Grade"
                    GridlineColor =10921638

                    LayoutCachedLeft =2551
                    LayoutCachedTop =1700
                    LayoutCachedWidth =3982
                    LayoutCachedHeight =2015
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =1700
                            Width =890
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette2"
                            Caption ="Grade:"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =1700
                            LayoutCachedWidth =1060
                            LayoutCachedHeight =2015
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2551
                    Top =2097
                    Width =1431
                    Height =315
                    TabIndex =3
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Catégorie"
                    ControlSource ="Catégorie"
                    GridlineColor =10921638

                    LayoutCachedLeft =2551
                    LayoutCachedTop =2097
                    LayoutCachedWidth =3982
                    LayoutCachedHeight =2412
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =2097
                            Width =1080
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette3"
                            Caption ="Catégorie:"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =2097
                            LayoutCachedWidth =1250
                            LayoutCachedHeight =2412
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2551
                    Top =2494
                    Width =1431
                    Height =315
                    TabIndex =4
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="RémunérationBase"
                    ControlSource ="RémunérationBase"
                    GridlineColor =10921638

                    LayoutCachedLeft =2551
                    LayoutCachedTop =2494
                    LayoutCachedWidth =3982
                    LayoutCachedHeight =2809
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =2494
                            Width =2310
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette4"
                            Caption ="Rémunération de base:"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =2494
                            LayoutCachedWidth =2480
                            LayoutCachedHeight =2809
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2568
                    Top =2891
                    Width =1401
                    Height =315
                    TabIndex =5
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Groupe"
                    ControlSource ="Groupe"
                    GridlineColor =10921638

                    LayoutCachedLeft =2568
                    LayoutCachedTop =2891
                    LayoutCachedWidth =3969
                    LayoutCachedHeight =3206
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =2891
                            Width =795
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette5"
                            Caption ="Groupe"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =2891
                            LayoutCachedWidth =965
                            LayoutCachedHeight =3206
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7596
                    Top =1190
                    Width =4191
                    Height =750
                    TabIndex =6
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="ResidenceAdmin"
                    ControlSource ="ResidenceAdmin"
                    GridlineColor =10921638

                    LayoutCachedLeft =7596
                    LayoutCachedTop =1190
                    LayoutCachedWidth =11787
                    LayoutCachedHeight =1940
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =4995
                            Top =1190
                            Width =2490
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette6"
                            Caption ="Résidence administrative:"
                            GridlineColor =10921638
                            LayoutCachedLeft =4995
                            LayoutCachedTop =1190
                            LayoutCachedWidth =7485
                            LayoutCachedHeight =1505
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7596
                    Top =2040
                    Width =4191
                    Height =780
                    TabIndex =7
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="ResidenceFamiliale"
                    ControlSource ="ResidenceFamiliale"
                    GridlineColor =10921638

                    LayoutCachedLeft =7596
                    LayoutCachedTop =2040
                    LayoutCachedWidth =11787
                    LayoutCachedHeight =2820
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =4988
                            Top =2040
                            Width =2040
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette7"
                            Caption ="Résidence familiale:"
                            GridlineColor =10921638
                            LayoutCachedLeft =4988
                            LayoutCachedTop =2040
                            LayoutCachedWidth =7028
                            LayoutCachedHeight =2355
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7596
                    Top =3004
                    Width =3411
                    Height =315
                    TabIndex =8
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Telephone"
                    ControlSource ="Telephone"
                    GridlineColor =10921638

                    LayoutCachedLeft =7596
                    LayoutCachedTop =3004
                    LayoutCachedWidth =11007
                    LayoutCachedHeight =3319
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =4995
                            Top =3000
                            Width =1140
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette9"
                            Caption ="Téléphone:"
                            GridlineColor =10921638
                            LayoutCachedLeft =4995
                            LayoutCachedTop =3000
                            LayoutCachedWidth =6135
                            LayoutCachedHeight =3315
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2550
                    Top =3287
                    Width =1431
                    Height =315
                    TabIndex =9
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="Matricule"
                    ControlSource ="Matricule"
                    GridlineColor =10921638

                    LayoutCachedLeft =2550
                    LayoutCachedTop =3287
                    LayoutCachedWidth =3981
                    LayoutCachedHeight =3602
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =3288
                            Width =960
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette10"
                            Caption ="Matricule"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =3288
                            LayoutCachedWidth =1130
                            LayoutCachedHeight =3603
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3974
                    Top =4762
                    Width =1641
                    Height =315
                    TabIndex =10
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="DateAutorisationVP"
                    ControlSource ="DateAutorisationVP"
                    StatusBarText ="Date de l'autorisation d'utiliser le véhicule personnel"
                    GridlineColor =10921638

                    LayoutCachedLeft =3974
                    LayoutCachedTop =4762
                    LayoutCachedWidth =5615
                    LayoutCachedHeight =5077
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =4761
                            Width =3630
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette12"
                            Caption ="Date de l'autorisation de circuler:"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =4761
                            LayoutCachedWidth =3800
                            LayoutCachedHeight =5076
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3968
                    Top =5159
                    Width =1641
                    Height =315
                    ColumnWidth =2640
                    TabIndex =11
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="PuissanceFiscVP"
                    ControlSource ="PuissanceFiscVP"
                    StatusBarText ="Puissance Fiscale Réelle du VP"
                    GridlineColor =10921638

                    LayoutCachedLeft =3968
                    LayoutCachedTop =5159
                    LayoutCachedWidth =5609
                    LayoutCachedHeight =5474
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =165
                            Top =5160
                            Width =2430
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette13"
                            Caption ="Puissance fiscale (en CV):"
                            GridlineColor =10921638
                            LayoutCachedLeft =165
                            LayoutCachedTop =5160
                            LayoutCachedWidth =2595
                            LayoutCachedHeight =5475
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3968
                    Top =5555
                    Width =1641
                    Height =315
                    TabIndex =12
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="NbKmAutorisesVP"
                    ControlSource ="NbKmAutorisesVP"
                    StatusBarText ="Nombre de Km que l'agent est autorisé à parcourir avec son VP"
                    GridlineColor =10921638

                    LayoutCachedLeft =3968
                    LayoutCachedTop =5555
                    LayoutCachedWidth =5609
                    LayoutCachedHeight =5870
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =165
                            Top =5550
                            Width =2310
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette14"
                            Caption ="Nombr de Km autorisés:"
                            GridlineColor =10921638
                            LayoutCachedLeft =165
                            LayoutCachedTop =5550
                            LayoutCachedWidth =2475
                            LayoutCachedHeight =5865
                            ForeTint =100.0
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7596
                    Top =3458
                    Width =3411
                    Height =315
                    TabIndex =13
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="TypeVirement"
                    ControlSource ="TypeVirement"
                    GridlineColor =10921638

                    LayoutCachedLeft =7596
                    LayoutCachedTop =3458
                    LayoutCachedWidth =11007
                    LayoutCachedHeight =3773
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =4995
                            Top =3465
                            Width =1770
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette15"
                            Caption ="Type de virement:"
                            GridlineColor =10921638
                            LayoutCachedLeft =4995
                            LayoutCachedTop =3465
                            LayoutCachedWidth =6765
                            LayoutCachedHeight =3780
                            ForeTint =100.0
                        End
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    ColumnCount =2
                    Left =2324
                    Top =4308
                    Width =3288
                    Height =315
                    TabIndex =14
                    BorderColor =10921638
                    ForeColor =4138256
                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"510\""
                    Name ="TypeVehicule"
                    ControlSource ="TypeVehicule"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT tbl_Listes.CodeChoix, tbl_Listes.LibelleChoix, tbl_Listes.TableListe, tbl"
                        "_Listes.ChampListe FROM tbl_Listes WHERE (((tbl_Listes.TableListe)='tbl_Agents')"
                        " AND ((tbl_Listes.ChampListe)='TypeVehicule')); "
                    ColumnWidths ="0;2835"
                    GridlineColor =10921638

                    LayoutCachedLeft =2324
                    LayoutCachedTop =4308
                    LayoutCachedWidth =5612
                    LayoutCachedHeight =4623
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =170
                            Top =4308
                            Width =1710
                            Height =315
                            BorderColor =8355711
                            Name ="Étiquette22"
                            Caption ="Type de véhicule:"
                            GridlineColor =10921638
                            LayoutCachedLeft =170
                            LayoutCachedTop =4308
                            LayoutCachedWidth =1880
                            LayoutCachedHeight =4623
                            ForeTint =100.0
                        End
                    End
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =85
                    Left =170
                    Top =793
                    Width =789
                    Height =340
                    FontSize =12
                    FontWeight =700
                    BorderColor =8355711
                    Name ="Étiquette23"
                    Caption ="Poste:"
                    GridlineColor =10921638
                    LayoutCachedLeft =170
                    LayoutCachedTop =793
                    LayoutCachedWidth =959
                    LayoutCachedHeight =1133
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =85
                    Left =4995
                    Top =795
                    Width =1485
                    Height =345
                    FontSize =12
                    FontWeight =700
                    BorderColor =8355711
                    Name ="Étiquette24"
                    Caption ="Coordonnées:"
                    GridlineColor =10921638
                    LayoutCachedLeft =4995
                    LayoutCachedTop =795
                    LayoutCachedWidth =6480
                    LayoutCachedHeight =1140
                    ForeTint =100.0
                End
                Begin Label
                    FontUnderline = NotDefault
                    OverlapFlags =85
                    Left =170
                    Top =3855
                    Width =2085
                    Height =345
                    FontSize =12
                    FontWeight =700
                    BorderColor =8355711
                    Name ="Étiquette25"
                    Caption ="Véhicule personnel:"
                    GridlineColor =10921638
                    LayoutCachedLeft =170
                    LayoutCachedTop =3855
                    LayoutCachedWidth =2255
                    LayoutCachedHeight =4200
                    ForeTint =100.0
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =14270637
            Name ="PiedFormulaire"
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
        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 Form_AfterUpdate()
Me.DateInf = DLookup("[DateInf]", "[tbl_periodeAgent]", "[CodeAgent]='" & Me.CodeAgent & "' AND [CodePeriode]=" & Me.PeriodeValidite)

End Sub

Private Sub Form_Open(Cancel As Integer)
Me.NvelleDate = "01/" & Format(Month(Now()), "00") & "/" & Year(Now())
Me.CopieAnc = 1
Me.DateInf = DLookup("[DateInf]", "[tbl_periodeAgent]", "[CodeAgent]='" & Me.CodeAgent & "' AND [CodePeriode]=" & Me.PeriodeValidite)

Call VerrouMAJAgent(1)
End Sub

Private Sub CmdOK_Click()
Dim rs As DAO.Recordset
Dim NvPeriode, copie, i, k As Integer
Dim NvelleDate As Date
Dim CodeAgent As String
Dim ACopier() As Variant

CodeAgent = Me.CodeAgent
NvelleDate = CDate(Me.NvelleDate)
copie = Nz(Me.CopieAnc.Column(0), 1)

If IsNull(NvelleDate) Then
 Me.NvelleDate.BackColor = 12566463
 Exit Sub
End If

NvPeriode = NvellePeriode("tbl_PeriodeAgent", CodeAgent, NvelleDate)
If NvPeriode = 0 Then Exit Sub


Call VerrouMAJAgent(0)

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Agents WHERE [CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & Me.PeriodeValidite & ";")
If rs.RecordCount = 0 Then copie = 0
rs.MoveFirst
ReDim ACopier(rs.Fields.Count - 1)

For i = 0 To rs.Fields.Count - 1
 'on copie de toute façon le code et le nom
 If rs.Fields(i).Name = "CodeAgent" Or rs.Fields(i).Name = "Nom" Then
  ACopier(i) = rs.Fields(i)
 ElseIf rs.Fields(i).Name = "PeriodeValidite" Then
  ACopier(i) = NvPeriode
 Else
  If copie = 1 Then
   ACopier(i) = rs.Fields(i)
  Else
   ACopier(i) = Null
  End If
 End If
Next i


'création d'une nouvelle ligne dans la table tbl_agents
Set rs = CurrentDb.OpenRecordset("tbl_Agents")

rs.AddNew
For i = 0 To rs.Fields.Count - 1
  rs.Fields(i) = ACopier(i)
Next i
rs.Update

'on place l'enregistrement du formulaire sur ce nouvel enregistrement
Me.FilterOn = False
Me.Filter = "[CodeAgent]='" & CodeAgent & "' AND [PeriodeValidite]=" & NvPeriode
Me.FilterOn = True

Call CreerMsg(12, , CodeAgent, NvPeriode)

Me.Refresh

Call VerrouMAJAgent(2)

End Sub