以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口弹出并提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186712)

--  作者:985123414
--  发布时间:2023/5/23 8:59:00
--  窗口弹出并提示
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


现在可以在开始的时间弹出提醒,怎么才能让它在结束时间也弹出提醒呢?

--  作者:有点蓝
--  发布时间:2023/5/23 9:27:00
--  
    If dr Is Nothing Then
if vars("开始提醒")=true
        Forms("打卡提醒").Visible = True
        Forms("打卡提醒").BaseForm.WindowState = 0
        Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
vars("开始提醒")=false
else
        Forms("打卡提醒").Visible = False
        Forms("打卡提醒").BaseForm.WindowState = 1
        Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = False
endif
    Else
        Forms("打卡提醒").Visible = True
        Forms("打卡提醒").BaseForm.WindowState = 0
        Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
vars("开始提醒")=true
    End If

--  作者:985123414
--  发布时间:2023/5/23 10:13:00
--  
还是不行,我是在打卡提醒列里设置了这样的起止时间,麻烦您看一下,这样的话需要怎么修改?

11:30:00-12:30:00      

--  作者:有点蓝
--  发布时间:2023/5/23 10:26:00
--  
可能还有其它地方要改吧。我对这个打卡提醒功能看的迷迷糊糊的,没怎么看得懂