スプラッシュ フォームの作成 ： Access

初期化中、使用者に遅いと感じさせないようスプラッシュを使用します。

■ Access実行画面

［スプラッシュ画面］


［スプラッシュ画面のプロパティ］

■ Access VBA 実行コード

［スプラッシュ フォームのコード］
Option Compare Database
Option Explicit

Private Sub Form_Load()
    Me.TimerInterval = 1
End Sub

Private Sub Form_Timer()
    Dim i As Integer
    If Me.TimerInterval = 1 Then
        Me.TimerInterval = 0
        '---------------------------------
        'ここで初期化等の処理を行います
        '---------------------------------
        Me.TimerInterval = 1000
        Exit Sub
    End If
    Me.TimerInterval = 0

    'フォームの背景色を変える
    For i = 255 To 128 Step -2
        Me.Section(0).BackColor = RGB(i, i, i)
        Me.Repaint
    Next

    On Error Resume Next
    DoCmd.Close acForm, Me.Name
  
    'メインフォームを開く
    DoCmd.OpenForm "Frmメイン"
End Sub