今、ボタンをひとつつけたいのです。
http://pub.idisk-just.com/fview/Q222eBLbJYUapI4Tt4KndsBhjuPA1pnmyzkHN9F-81EfmyprhtI6pKyXtBNtO66C?
そのボタンを押すことによって、非表示だったのが表示になるようにしたいのですが、どのようにすればよいでしょうか。
どうぞよろしくお願い致します。
アクセス2007で動作確認しています。
回答のテキストボックスは初期値を表示しないようにしておくと良いです。
Private Sub ボタン_Click()
Dim tStart
tStart = Timer
回答.Visible = True
'3秒間経つまでループ
Do While Timer < tStart + 3
DoEvents
Loop
回答.Visible = False
End Sub
コメント(0件)