[求助]如何用代码打开窗体

bergyan

上传你的例子吧，说明你的要求，看看能否解决

Jean1288

这个例子是一个网友作的，我在按照这个例子做我的登陆系统，我想在原有的基础上实现：1、在登陆进入“菜单”窗体后，进入“表1”、“表2”等相应窗体时关闭“菜单”窗体；2、当提示“你无权对此窗体进行操作”时，确定后还显示“菜单窗体”。

我的数据库不便上传，请原谅，谢谢！

hi-wzj

Private Sub Form_Load()

If login_successful = 1 Then
   If check_level(Me.Name, user_level) = 1 Then
     Else
     MsgBox "你无权操作此窗口!", vbOKOnly
     DoCmd.Close acForm, Me.Name

     DoCmd.OpenForm "数据维护及查询"  
   End If
Else
     MsgBox "请先登陆!", vbOKOnly
     DoCmd.Close acForm, Me.Name

     DoCmd.OpenForm "数据维护及查询"
End If
End Sub

hi-wzj

您需要知道“事件”和“代码”的区别。

“事件”是当什么情况发生时会执行命令，而程序因此将做什么反应，就是您要写的代码的语句。

Private Sub Form_Load() ‘事件头部
.......  ’您要书写的命令行

End Sub  ‘结束该事件

Jean1288

这个例子是一个网友作的，我在按照这个例子做我的登陆系统，我想在原有的基础上实现：1、在登陆进入“菜单”窗体后，进入“表1”、“表2”等相应窗体时关闭“菜单”窗体；2、当提示“你无权对此窗体进行操作”时，确定后还显示“菜单“窗体。按照上面说的我在这个例子里改了一下，可是当提示“你无权对此窗体进行操作”时，确定整个窗体就关闭了，并不能显示“菜单”窗体，请帮我看一下， 我的数据库不便上传，请原谅，谢谢！

hi-wzj

按照上面说的我在这个例子里改了一下，可是当提示“你无权对此窗体进行操作”时，确定整个窗体就关闭了，并不能显示“菜单”窗体



原例子可以正常显示菜单窗体呀?

Jean1288

我是说，登陆后从菜单进入表1、表2、表3，3个窗体时，如果权限不对，提示“你无权对此窗体进行操作”，确定后整个窗体就关闭了，不能显示菜单窗体。与添加用户窗体无关，麻烦你再帮我看一下，谢谢！

hi-wzj

是的,可以显示.

Jean1288

啊，那是不是我电脑的问题呢，麻烦你用reporter登陆，密码是004，进入表2窗体，再试一次，给你添麻烦了，不好意思！

hi-wzj

哦,之前我是登陆后直接从后台打开"表1"的因此执行正常.我帮您改吧.稍等