Access総合相談所 27 [転載禁止]©2ch.net

[0767 名無しさん＠そうだ選挙にいこう 2018/02/06(火) 22:52:30.26]

家電のタイマー設定ふう　ボタンを押している間じゅうインクリメントする
コマンドボタン：　cmd2 自動繰り返し：「はい」
Private Sub cmd2_Click()
Me!txt2 = DateAdd("n", 5, Me!txt1)
Me.Repaint
If DateDiff("n", "0:00", Me!txt1) = 1440 Then
Me!txt1 = "0:00"
End If
End Sub