White Tiger

Microsoft Access VBA -フォームに時刻を表示する方法

文書番号: ac2002008
動作確認: Access 97/2002

◆概要
この資料は、Microsoft Accessでフォームに時刻を表示する方法を記載しています。

◆内容

AccessにはVisual Basicのようなタイマーコントロールがありません。しかし、FormのTimerイベントハンドラを利用することができます。これを利用すると、時刻を表示することができます。

◆Sample code

フォームにコマンドボタンを２つ(cmdStart、cmdStop)、それに時間を表示するためのラベル(lablTime)を配置して、以下のコードを記述します。

　次の例は、これを利用してフォームに現在の時間を表示します。


フォームが表示されているとき常時表示するにはフォームのデザインモードでTimerIntervalプロパティに1000を 設定しておきます。

Option Compare Database

Private Sub cmdStart_Click()
    'タイマーのインターバルを設定
    Me.TimerInterval = 500
End Sub

Private Sub cmdStop_Click()
    'タイマーのインターバルを0に設定することで、
    'タイマーを終了させる
    Me.TimerInterval = 0
End Sub

Private Sub Form_Timer()
'フォームのタイマーイベントハンドラ
    Me!lblTime.Caption = Time
End Sub

Link