openaccess/test/source/forms/test.bas

Version =20
VersionRequired =20
Begin Form
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =6994
    DatasheetFontHeight =11
    ItemSuffix =1
    Right =11325
    Bottom =7920
    DatasheetGridlinesColor =14806254
    RecSrcDt = Begin
        0xf51a6df01156e440
    End
    OnOpen ="[Event Procedure]"
    DatasheetFontName ="Calibri"
    OnLoad ="[Event Procedure]"
    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 Section
            Height =5952
            Name ="Détail"
            AutoHeight =1
            AlternateBackColor =15921906
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            BackThemeColorIndex =1
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =1644
                    Top =396
                    Width =2891
                    Height =397
                    BorderColor =8355711
                    ForeColor =8355711
                    Name ="txt"
                    Caption ="."
                    GridlineColor =10921638
                    LayoutCachedLeft =1644
                    LayoutCachedTop =396
                    LayoutCachedWidth =4535
                    LayoutCachedHeight =793
                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_Load()
'MsgBox "test"
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

Call ttt

End Sub

Sub ttt()
For i = 1 To 3
 Me.txt.Caption = i
 Call Attendre(2000)
Next i
End Sub