设置Access数据库的使用期限

1、新建一个 窗体1

2、在 窗体1 的设计视图中,点击 查看Visual Basic代码

3、输入以下代码:

Private Sub Form_Load()
    '在2013-08-28到期
    If Now > "2013-08-28" Then
        MsgBox "系统已经超过使用期限,请联系作者"
        '关闭数据库
        Application.CloseCurrentDatabase
    End If
End Sub

 

4、在 文件 - 选项 - 当前数据库 - 显示窗体中 选择 窗体1

PS:此方法只能防君子,不能防小人

添加评论

Loading