Foxtable(狐表)用户栏目专家坐堂 → 窗口弹出并提示


  共有3902人关注过本帖树形打印复制链接

主题:窗口弹出并提示

帅哥哟,离线,有人找我吗?
985123414
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:35 积分:316 威望:0 精华:0 注册:2023/3/7 8:48:00
窗口弹出并提示  发帖心情 Post By: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


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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:35 积分:316 威望:0 精华:0 注册:2023/3/7 8:48:00
  发帖心情 Post By:2023/5/23 10:13:00 [只看该作者]

还是不行,我是在打卡提醒列里设置了这样的起止时间,麻烦您看一下,这样的话需要怎么修改?

11:30:00-12:30:00      

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/23 10:26:00 [只看该作者]

可能还有其它地方要改吧。我对这个打卡提醒功能看的迷迷糊糊的,没怎么看得懂

 回到顶部