Version =20 VersionRequired =20 Begin Form DividingLines = NotDefault AllowDesignChanges = NotDefault DefaultView =0 PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =6994 DatasheetFontHeight =11 ItemSuffix =6 Right =11265 Bottom =12135 DatasheetGridlinesColor =14806254 RecSrcDt = Begin 0x23ff439b958ae440 End 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 Section Height =3741 Name ="Détail" AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 BackThemeColorIndex =1 Begin Begin Label OverlapFlags =85 TextAlign =2 Left =2324 Top =170 Width =1927 Height =453 FontWeight =700 BorderColor =8355711 Name ="Étiquette0" Caption ="MAIN TITLE" GridlineColor =10921638 LayoutCachedLeft =2324 LayoutCachedTop =170 LayoutCachedWidth =4251 LayoutCachedHeight =623 ForeTint =100.0 End Begin CommandButton OverlapFlags =85 Left =3968 Top =2041 Width =1531 Height =457 ForeColor =4210752 Name ="btn_change_connexion" Caption ="Change" OnClick ="[Event Procedure]" GridlineColor =10921638 LayoutCachedLeft =3968 LayoutCachedTop =2041 LayoutCachedWidth =5499 LayoutCachedHeight =2498 BackColor =14136213 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 End Begin Label OverlapFlags =85 Left =3855 Top =1247 Width =2041 Height =454 BorderColor =8355711 Name ="txtModeConnexion" Caption ="Current connexion" GridlineColor =10921638 LayoutCachedLeft =3855 LayoutCachedTop =1247 LayoutCachedWidth =5896 LayoutCachedHeight =1701 ForeTint =100.0 End Begin Label FontItalic = NotDefault OverlapFlags =93 Left =340 Top =1247 Width =2326 Height =349 BorderColor =8355711 Name ="lbVersion" Caption ="Nom version" GridlineColor =10921638 LayoutCachedLeft =340 LayoutCachedTop =1247 LayoutCachedWidth =2666 LayoutCachedHeight =1596 ForeTint =100.0 End Begin Label FontItalic = NotDefault OverlapFlags =87 TextAlign =1 Left =340 Top =1587 Width =2326 Height =349 BorderColor =8355711 Name ="statVersion" Caption ="Statut version" GridlineColor =10921638 LayoutCachedLeft =340 LayoutCachedTop =1587 LayoutCachedWidth =2666 LayoutCachedHeight =1936 ForeTint =100.0 End Begin CommandButton OverlapFlags =85 Left =397 Top =2041 Width =2039 Height =453 TabIndex =1 ForeColor =4210752 Name ="btn_versions" Caption ="Versions" OnClick ="[Event Procedure]" GridlineColor =10921638 LayoutCachedLeft =397 LayoutCachedTop =2041 LayoutCachedWidth =2436 LayoutCachedHeight =2494 BackColor =14136213 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 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 cmdMajConnexion_Click() DoCmd.OpenForm "zt_backdb" End Sub Private Sub Commande5_Click() DoCmd.OpenForm "zfrmSuiviVersions" End Sub Private Sub btn_versions_Click() DoCmd.OpenForm "zt_versions" End Sub Private Sub Form_Open(Cancel As Integer) Call LoadApp End Sub