Microsoft Accessで、フォームで暗記帳みたいなのを作りました。

60pt

アクセス2007で動作確認しています。

回答のテキストボックスは初期値を表示しないようにしておくと良いです。

	
Private Sub ボタン_Click()
	
    Dim tStart
	
    tStart = Timer
	
    
	
    回答.Visible = True
	
    '3秒間経つまでループ
	
    Do While Timer < tStart + 3
	
        DoEvents
	
    Loop
	
    
	
    回答.Visible = False
	
End Sub