Forms("打卡提醒").Open
If Forms("打卡提醒").Opened Then
Dim dr As DataRow = DataTables("打卡提醒").Find("Substring(打卡提醒,1,8) <= '" & Format(Date.Now,"HH:mm:ss") & "' And Substring(打卡提醒,10,8) >= '" & Format(Date.Now,"HH:mm:ss") & "'")
If dr Is Nothing Then
Forms("打卡提醒").Visible = False
Forms("打卡提醒").BaseForm.WindowState = 1
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = False
Else
Forms("打卡提醒").Visible = True
Forms("打卡提醒").BaseForm.WindowState = 0
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
End If
End If
现在可以在开始的时间弹出提醒，怎么才能让它在结束时间也弹出提醒呢？
加好友 
发短信
Post By：2023/5/23 8:59:00 [只看该作者]
