求到期提示

在模块中加入一个判断函数即可

Public Const 到期日期 = "20101231"

Function 到期提示() As Boolean
Dim q
 If Date >= 到期日期 Then
  到期提示 = True
  MsgBox ("系统使用日期已到")
  DoCmd.Quit acQuitSaveAll '退出系统
 Else
  到期提示 = False
 End If
End Function

在需要判断到期时调用该函数即可