哪里错了？

silence810

代码如下：
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String
    'stDocName = "密码修改"
    DoCmd.OpenForm "密码修改", acNormal
   
Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim stDocName As String
    'stDocName = "用户管理"
    DoCmd.OpenForm "用户管理", acNormal
   
Exit_Command1_Click:
    Exit Sub
Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
End Sub
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String
    'stDocName = "用户权限管理"
    DoCmd.OpenForm "用户权限管理", acNormal
   
Exit_Command2_Click:
    Exit Sub
Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
End Sub

tmtony

看看 密码修改 窗体是否存在,具体还是要看你的MDB文件

silence810

这些窗体都是存在的阿

tmtony

那你 手工打开 密码修改窗体提示什么错误. 在哪一句出错

silence810

自己手工打开没提示有错啊，正常运行

andymark

编译一下代码
上面的语句都是向导生成的, 应该不会有什么问题
或把例子传上来,别人帮你测试

silence810

admin 密码：1
帮忙调试一下吧，谢谢。

chenwm1973

运行很正常啊。没有出现异常嘛？？？！！！
[:50] [:30] [:32]

silence810

不可能阿，问题有很多阿。