Version =20 VersionRequired =20 Begin Form AllowFilters = NotDefault PopUp = NotDefault RecordSelectors = NotDefault MaxButton = NotDefault MinButton = NotDefault NavigationButtons = NotDefault CloseButton = NotDefault DividingLines = NotDefault AllowDesignChanges = NotDefault DefaultView =0 ScrollBars =0 BorderStyle =1 PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =8674 DatasheetFontHeight =11 ItemSuffix =15 Top =2415 Right =20235 Bottom =10335 DatasheetGridlinesColor =14806254 RecSrcDt = Begin 0x3a4d656cd264e440 End Caption ="Chargement de l'application..." DatasheetFontName ="Calibri" PrtMip = Begin 0x6801000068010000680100006801000000000000201c0000e010000001000000 , 0x010000006801000000000000a10700000100000001000000 End OnKeyDown ="[Event Procedure]" FilterOnLoad =0 OrderByOnLoad =0 OrderByOnLoad =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 CheckBox BorderLineStyle =0 LabelX =230 LabelY =-30 BorderThemeColorIndex =1 BorderShade =65.0 GridlineThemeColorIndex =1 GridlineShade =65.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 UnboundObjectFrame SpecialEffect =2 OldBorderStyle =1 Width =4536 Height =2835 ThemeFontIndex =1 BackThemeColorIndex =1 BorderThemeColorIndex =1 BorderShade =65.0 ForeThemeColorIndex =2 ForeShade =50.0 GridlineThemeColorIndex =1 GridlineShade =65.0 End Begin Section Height =6633 BackColor =12566463 Name ="Détail" AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin Label OverlapFlags =85 TextAlign =2 Left =283 Top =446 Width =7876 Height =3974 FontSize =12 FontWeight =700 BorderColor =8355711 ForeColor =8079968 Name ="txt_msg" Caption ="Veuillez patienter" GridlineColor =10921638 LayoutCachedLeft =283 LayoutCachedTop =446 LayoutCachedWidth =8159 LayoutCachedHeight =4420 ForeThemeColorIndex =7 ForeTint =100.0 ForeShade =75.0 End Begin Label OverlapFlags =93 Left =1984 Top =5787 Width =4369 Height =453 FontWeight =700 BorderColor =8355711 Name ="Continuer" Caption ="APPUYER SUR UNE TOUCHE POUR CONTINUER" GridlineColor =10921638 LayoutCachedLeft =1984 LayoutCachedTop =5787 LayoutCachedWidth =6353 LayoutCachedHeight =6240 ForeTint =100.0 End Begin Label Visible = NotDefault OverlapFlags =215 TextAlign =2 Left =2041 Top =5787 Width =4369 Height =453 FontWeight =700 BorderColor =8355711 ForeColor =255 Name ="Quitter" Caption ="APPUYER SUR UNE TOUCHE POUR QUITTER" GridlineColor =10921638 LayoutCachedLeft =2041 LayoutCachedTop =5787 LayoutCachedWidth =6410 LayoutCachedHeight =6240 ForeThemeColorIndex =-1 ForeTint =100.0 End Begin CheckBox Visible = NotDefault OverlapFlags =85 Left =7030 Top =5844 Width =284 Height =227 BorderColor =10921638 Name ="Bloque" GridlineColor =10921638 LayoutCachedLeft =7030 LayoutCachedTop =5844 LayoutCachedWidth =7314 LayoutCachedHeight =6071 End Begin TextBox Visible = NotDefault Locked = NotDefault ScrollBars =2 OldBorderStyle =0 OverlapFlags =85 TextAlign =2 BackStyle =0 IMESentenceMode =3 Left =283 Top =4478 Width =7884 Height =1125 FontSize =12 FontWeight =700 TabIndex =1 BorderColor =8355711 ForeColor =255 Name ="erreurs" GridlineColor =10921638 LayoutCachedLeft =283 LayoutCachedTop =4478 LayoutCachedWidth =8167 LayoutCachedHeight =5603 BorderThemeColorIndex =0 BorderTint =50.0 BorderShade =100.0 ForeThemeColorIndex =-1 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_KeyDown(KeyCode As Integer, Shift As Integer) Me.SetFocus If Me.Bloque = False Then If CurrentProject.AllForms("frm_Menu").IsLoaded = False Then DoCmd.OpenForm "frm_menu" DoCmd.Close acForm, "frm_chargement" Else Application.Quit End If End Sub