主题：我按照用户手册的“自定义用户与权限管理”这一章节，做了一个自定义的登陆，可是点击登陆界面的“取消”按钮，确出现一系列的错误

“取消”按钮的代码改为：
 
e.Form.Close()

 
AfterOpenProject事件改为：
 
Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
End If

贴出你的AfterOpenProject事件代码看看

Forms("用户登录").Open()
If _UserName = "" Then
     Syscmd.Project.Exit()
End If

 

改为：

 

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()

     Return
End If

 

 

道理很简单，系统都退出了，就不应该执行后续代码了，否则肯定出错。