Timer控件 做定时设置

Question

需要做个定时提醒的消息框，到时间会有提示的内筒出现，多个提示信息，谁能给说说怎么做？
提示的内容时间存到数据库了

Answer 1

MESSAGEBOX XXXXXXIF XXX=VBYES THEN保存  STR(NOW) 到你要保存的地方

Answer 2

楼主的意思是在数据库保存提示时间的设置吧？
读取设置数据，相应设置Timer控件的属性，在Timer事件中写显示提示的代码

Answer 3

Dim x, iPrivate Sub Form_Load()line:
x = Int(Val(InputBox("设定提醒时间间隔:", "数据输入")))
If x < 1 Then GoTo line
Label1.Caption = "设定提醒时间间隔为" & x & "分钟"
i = 0
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
i = i + 1
Debug.Print i
a = i Mod (60 * x)
If a = 0 Then
MsgBox Time & "   "& "该保存数据库了"""
End If
End Sub