| スポンサードリンク |
初期化中、使用者に遅いと感じさせないようスプラッシュを使用します。
［スプラッシュ画面］
［スプラッシュ画面のプロパティ］
［スプラッシュ フォームのコード］
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