openaccess/test/source/forms/frm_chargement.bas

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