如何做这种到期，停止打开窗体

goto2008

我有一个窗体，想让它过了2008年12月15日这天，就打不开。
并会弹出一个对话框：“请联系某某人”

rjacky

传说中的自残

huangqinyong

好象论坛里有这样的函数的，我以前看到过，不过是不是这里我忘了，如果你查不到的话联与我系，我找找．

Victor_Duane

加载事件里写代码
if date>2008-12-15 then
msgbox "请联系某某人"
application.quit
end if

haemon

但这样的话系统日期改掉了,就没办法了

fswxs

我觉得用记录数限制还方便些

goto2008

原帖由 cuxun 于 2008-1-18 12:23 发表
做一个公用函数,测试系统日期是否大于等于这天,等于则提示后退出系统,然后在每个窗体的打开事件中调用

大哥，能做个类似的例子吗。

goto2008

原帖由 fswxs 于 2008-1-18 13:21 发表
我觉得用记录数限制还方便些

？？？/有点听不懂。。。晕

goto2008

原帖由 Victor_Duane 于 2008-1-18 12:24 发表
加载事件里写代码
if date>2008-12-15 then
msgbox "请联系某某人"
application.quit
end if

这代码好像不对劲。。。第一次使用时，可以限制，后来我把限制日期延后了。。
把2008-12-15 改为2008 - 3 - 15，发现打开那窗体时，还会弹出对话框要关闭。。
------当前任务栏的日期是2008年1月18日这是有效的日期啊，不限制

Private Sub Form_Load()
If Date > 2008 - 3 - 15 Then
  MsgBox "联系某人", vbExclamation, "试用到期"
Application.quit
End If

goto2008

找到原因了。。。。