Version =20 VersionRequired =20 Begin Form DividingLines = NotDefault FilterOn = NotDefault AllowDesignChanges = NotDefault PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =11515 DatasheetFontHeight =11 ItemSuffix =10 Right =17265 Bottom =7890 DatasheetGridlinesColor =14806254 Filter ="[NomBareme]='Frais Kilométriques (13)' AND [PeriodeValidite]=1" RecSrcDt = Begin 0x986c77e99436e440 End RecordSource ="SELECT tbl_baremes.NomBareme, tbl_baremes.PeriodeValidite, tbl_baremes.BorneInf," " tbl_baremes.BorneSup, tbl_baremes.UniteBornes, tbl_baremes.Valeur, tbl_baremes." "UniteValeur FROM tbl_baremes ORDER BY tbl_baremes.BorneInf; " OnCurrent ="[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 FormHeader Height =1052 BackColor =10855845 Name ="EntêteFormulaire" AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin Label OverlapFlags =93 Left =737 Top =56 Width =3005 Height =397 FontSize =13 BorderColor =8355711 Name ="Étiquette0" Caption ="Mise à jour du barème:" GridlineColor =10921638 LayoutCachedLeft =737 LayoutCachedTop =56 LayoutCachedWidth =3742 LayoutCachedHeight =453 ForeTint =100.0 End Begin CommandButton OverlapFlags =85 Left =113 Top =56 Width =516 Height =396 ForeColor =4210752 Name ="Commande1" Caption ="Commande1" 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:Statements>" 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 TextBox OldBorderStyle =0 OverlapFlags =215 BackStyle =0 IMESentenceMode =3 Left =3345 Top =56 Width =3576 Height =390 ColumnWidth =2790 ColumnOrder =1 FontSize =13 FontWeight =700 TabIndex =1 BorderColor =10921638 Name ="NomBareme" ControlSource ="NomBareme" GridlineColor =10921638 LayoutCachedLeft =3345 LayoutCachedTop =56 LayoutCachedWidth =6921 LayoutCachedHeight =446 ForeTint =100.0 End Begin TextBox OldBorderStyle =0 OverlapFlags =215 BackStyle =0 IMESentenceMode =3 Left =4251 Top =510 Height =315 ColumnOrder =2 TabIndex =2 BorderColor =10921638 Name ="DateInf" GridlineColor =10921638 LayoutCachedLeft =4251 LayoutCachedTop =510 LayoutCachedWidth =5952 LayoutCachedHeight =825 ForeTint =100.0 Begin Begin Label FontItalic = NotDefault OverlapFlags =93 Left =1530 Top =510 Width =2820 Height =315 BorderColor =8355711 Name ="Étiquette4" Caption ="En cours de validité depuis le " GridlineColor =10921638 LayoutCachedLeft =1530 LayoutCachedTop =510 LayoutCachedWidth =4350 LayoutCachedHeight =825 ForeTint =100.0 End End End Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =6689 Top =510 Width =411 Height =315 ColumnOrder =0 TabIndex =3 BorderColor =10921638 ForeColor =4210752 Name ="PeriodeValidite" ControlSource ="PeriodeValidite" StatusBarText ="cf. tbl_PeriodeBareme" GridlineColor =10921638 LayoutCachedLeft =6689 LayoutCachedTop =510 LayoutCachedWidth =7100 LayoutCachedHeight =825 End Begin CommandButton OverlapFlags =85 Left =7143 Top =510 Width =1984 Height =340 TabIndex =4 ForeColor =4210752 Name ="Commande9" Caption ="Créer un nouveau barème" GridlineColor =10921638 LayoutCachedLeft =7143 LayoutCachedTop =510 LayoutCachedWidth =9127 LayoutCachedHeight =850 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 End End Begin Section CanGrow = NotDefault CanShrink = NotDefault Height =340 BackColor =14211288 Name ="Détail" AutoHeight =255 AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin TextBox OverlapFlags =93 TextAlign =2 BackStyle =0 IMESentenceMode =3 Left =961 Width =1416 Height =315 BorderColor =10921638 Name ="BorneInf" ControlSource ="BorneInf" GridlineColor =10921638 LayoutCachedLeft =961 LayoutCachedWidth =2377 LayoutCachedHeight =315 ForeTint =100.0 End Begin TextBox OverlapFlags =85 TextAlign =2 BackStyle =0 IMESentenceMode =3 Left =2775 Width =1476 Height =315 TabIndex =1 BorderColor =10921638 Name ="BorneSup" ControlSource ="BorneSup" GridlineColor =10921638 LayoutCachedLeft =2775 LayoutCachedWidth =4251 LayoutCachedHeight =315 ForeTint =100.0 End Begin TextBox OverlapFlags =85 BackStyle =0 IMESentenceMode =3 Left =4362 Width =801 Height =315 TabIndex =2 BorderColor =10921638 Name ="UniteBornes" ControlSource ="UniteBornes" GridlineColor =10921638 LayoutCachedLeft =4362 LayoutCachedWidth =5163 LayoutCachedHeight =315 ForeTint =100.0 End Begin TextBox OverlapFlags =85 BackStyle =0 IMESentenceMode =3 Left =6172 Width =1656 Height =315 TabIndex =3 BorderColor =10921638 Name ="Valeur" ControlSource ="Valeur" GridlineColor =10921638 LayoutCachedLeft =6172 LayoutCachedWidth =7828 LayoutCachedHeight =315 ForeTint =100.0 End Begin TextBox OverlapFlags =85 BackStyle =0 IMESentenceMode =3 Left =7877 Width =621 Height =315 TabIndex =4 BorderColor =10921638 Name ="UniteValeur" ControlSource ="UniteValeur" GridlineColor =10921638 LayoutCachedLeft =7877 LayoutCachedWidth =8498 LayoutCachedHeight =315 ForeTint =100.0 End Begin Label OverlapFlags =85 Left =2435 Width =227 Height =284 FontWeight =700 BorderColor =8355711 Name ="Étiquette12" Caption ="à" GridlineColor =10921638 LayoutCachedLeft =2435 LayoutCachedWidth =2662 LayoutCachedHeight =284 ForeTint =100.0 End Begin Label OverlapFlags =247 Left =623 Top =4 Width =390 Height =285 FontWeight =700 BorderColor =8355711 Name ="Étiquette13" Caption ="De:" GridlineColor =10921638 LayoutCachedLeft =623 LayoutCachedTop =4 LayoutCachedWidth =1013 LayoutCachedHeight =289 ForeTint =100.0 End Begin Label OverlapFlags =85 Left =5383 Width =567 Height =284 FontWeight =700 BorderColor =8355711 Name ="Étiquette14" Caption ="->" GridlineColor =10921638 LayoutCachedLeft =5383 LayoutCachedWidth =5950 LayoutCachedHeight =284 ForeTint =100.0 End End End Begin FormFooter Height =623 BackColor =10855845 Name ="PiedFormulaire" AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin CommandButton OverlapFlags =85 Left =7143 Top =170 Width =1984 Height =340 ForeColor =4210752 Name ="Commande5" Caption ="Enregistrer" GridlineColor =10921638 LayoutCachedLeft =7143 LayoutCachedTop =170 LayoutCachedWidth =9127 LayoutCachedHeight =510 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 =60 Top =165 Width =3990 Height =285 BorderColor =8355711 Name ="Étiquette6" Caption ="Ce barême sera pris en compte à partir du:" GridlineColor =10921638 LayoutCachedLeft =60 LayoutCachedTop =165 LayoutCachedWidth =4050 LayoutCachedHeight =450 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 Form_Current() Dim NomBareme As String Dim periode As Integer Dim rs As DAO.Recordset NomBareme = Me.NomBareme periode = Me.PeriodeValidite End Sub