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:\015\012" End Begin Comment ="_AXL:" 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