为启动窗体加个时间限制，例如窗体到一个指定时间后，就不能再打开了。

access　发表于：2012-12-31 22:19:58 　

例如窗体1，从现在开始，指定个时间例如2013年3月1日，在此时间之前，窗体可以正常打开，但是此时间过后，窗体则不能打开，然后由管理员再把指定的时间修改后，例如把指定时间改成2013年9月1日，则窗体又可以使用了，这个更改是手工更改，无需设置专门的控件。

本人不懂SQL，曾经在网上看到这样的案例，但是在窗体中尝试未成功：以下是网上案例。

如何为启动窗体添加一个判断语句来限制是否打开。比如说：如何系统时间超过2005年5月30日，那么启动窗体将自动关闭。
Private Sub Form_Load()
If Date - #5/30/2005# < 0 Then
MsgBox "对不起，已经过期了。"
DoCmd.Close
End If
End Sub

Top

dbaseIIIer 发表于：2013-01-01 17:36:41

看似没什么问题呀！会不会是你的时区格式不是日月年？

Private Sub Form_Load()

  If Now() > #2013/03/01# Then
  MsgBox "对不起，已经过期了。"
  DoCmd.Close
  End If
End Sub

Top

access 发表于：2013-01-01 21:56:56

非常非常感谢！已经按您说的成功了，我初次来这里，一点积分都没存到，不知道怎么感谢您，呵呵，真是空手套白狼啊，惭愧！再次感谢！

Top

dbaseIIIer 发表于：2013-01-03 06:29:12

积分的存在是为了把人分成高低等次！

我的存在是为了让人觉得自己是有等次的！