Office中国论坛/Access中国论坛

标题: 哪里错了？ [打印本页]

作者: silence810 时间: 2008-4-26 18:20
标题: 哪里错了？
代码如下：
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 时间: 2008-4-26 18:37
看看密码修改窗体是否存在,具体还是要看你的MDB文件

作者: silence810 时间: 2008-4-26 18:38
这些窗体都是存在的阿

作者: tmtony 时间: 2008-4-26 18:39
那你手工打开密码修改窗体提示什么错误. 在哪一句出错

作者: silence810 时间: 2008-4-26 18:43
自己手工打开没提示有错啊，正常运行

作者: andymark 时间: 2008-4-26 22:24
编译一下代码
上面的语句都是向导生成的, 应该不会有什么问题
或把例子传上来,别人帮你测试

作者: silence810 时间: 2008-4-28 19:06
admin 密码：1
帮忙调试一下吧，谢谢。

作者: chenwm1973 时间: 2008-4-28 20:32
运行很正常啊。没有出现异常嘛？？？！！！
[:50] [:30] [:32]

作者: silence810 时间: 2008-4-29 10:40
不可能阿，问题有很多阿。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)