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