Version =20 VersionRequired =20 Begin Form DividingLines = NotDefault FilterOn = NotDefault AllowDesignChanges = NotDefault DefaultView =0 PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =11962 DatasheetFontHeight =11 ItemSuffix =31 Right =9810 Bottom =12345 DatasheetGridlinesColor =14806254 Filter ="[CodeAgent]='T11'" RecSrcDt = Begin 0xd24e6afe3536e440 End RecordSource ="r_Agents" 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 =623 BackColor =15849926 Name ="EntêteFormulaire" AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 BackThemeColorIndex =2 BackTint =20.0 Begin Begin CommandButton OverlapFlags =85 Left =11281 Top =56 Width =576 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 =11281 LayoutCachedTop =56 LayoutCachedWidth =11857 LayoutCachedHeight =452 BackColor =14136213 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 End Begin Label OverlapFlags =93 Width =3986 Height =334 FontSize =13 BorderColor =8355711 Name ="Étiquette20" Caption ="Données de l'agent pour le mois de" GridlineColor =10921638 LayoutCachedWidth =3986 LayoutCachedHeight =334 ForeTint =100.0 End Begin TextBox OldBorderStyle =0 OverlapFlags =215 BackStyle =0 IMESentenceMode =3 Left =3968 Width =1418 Height =315 ColumnOrder =0 FontSize =13 TabIndex =1 BorderColor =10921638 ForeColor =4210752 Name ="Texte8" ControlSource ="=UCase(MonthName([Forms]![frm_Menu]![Mois]))" GridlineColor =10921638 LayoutCachedLeft =3968 LayoutCachedWidth =5386 LayoutCachedHeight =315 End Begin TextBox OldBorderStyle =0 OverlapFlags =85 BackStyle =0 IMESentenceMode =3 Left =5499 Width =1247 Height =315 ColumnOrder =1 FontSize =13 TabIndex =2 BorderColor =10921638 ForeColor =4210752 Name ="Texte10" ControlSource ="=[Forms]![frm_Menu]![Annee]" GridlineColor =10921638 LayoutCachedLeft =5499 LayoutCachedWidth =6746 LayoutCachedHeight =315 End Begin TextBox OldBorderStyle =0 OverlapFlags =215 BackStyle =0 IMESentenceMode =3 Left =1418 Top =283 Width =321 Height =315 ColumnOrder =2 FontSize =9 TabIndex =3 BorderColor =10921638 ForeColor =4210752 Name ="PeriodeValidite" ControlSource ="PeriodeValidite" StatusBarText ="cf. tbl_PeriodeAgent" GridlineColor =10921638 LayoutCachedLeft =1418 LayoutCachedTop =283 LayoutCachedWidth =1739 LayoutCachedHeight =598 Begin Begin Label OverlapFlags =223 Top =283 Width =1545 Height =315 FontSize =9 BorderColor =8355711 Name ="Étiquette16" Caption ="(code période:" GridlineColor =10921638 LayoutCachedTop =283 LayoutCachedWidth =1545 LayoutCachedHeight =598 ForeTint =100.0 End End End Begin Label OverlapFlags =215 Left =1758 Top =283 Width =225 Height =315 FontSize =9 BorderColor =8355711 Name ="Étiquette27" Caption =")" GridlineColor =10921638 LayoutCachedLeft =1758 LayoutCachedTop =283 LayoutCachedWidth =1983 LayoutCachedHeight =598 ForeTint =100.0 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 ="Modifiable21" 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_Open(Cancel As Integer) Dim CodeAgent, critere, sql As String Dim JourRH, moisRH, anneeRH As Integer CodeAgent = forms![frm_menu].lst_agent.Column(0) If CodeAgent = "" Then DoCmd.Close Exit Sub End If critere = "[CodeAgent]='" & CodeAgent & "'" Me.Filter = critere Me.FilterOn = True Me.Refresh End Sub