Office中国论坛/Access中国论坛

标题: 求救代码问题 [打印本页]

作者: DULANG8446 时间: 2008-5-25 08:24
标题: 求救代码问题
Private Sub 确定_click()
Dim r As QueryDef
Dim s As String

s = DLookup("[密码]","用户", "[用户名]=""" & Txtusername & """")

If old_pass = s Then

Set r =CurrentDb.QueryDefs("修改密码")

r.sql = "UPDATE 用户 SET 密码 = """ + new_pass + """ where 用户名 = """ + Txtusername + """"

r.Execute

MsgBox "您已经成功修改了密码！"

Else

MsgBox "密码错误！"

End If
End Sub

ACCESS里面的修改密码的代码，调试的时候出现：r As QueryDef 弹出以下框

编译错误：用户定义类型未定义

是什么原因啊，请高手帮我改一下。

作者: kangking 时间: 2008-5-25 09:12
在引用中添加对DAO的引用试试。

作者: DULANG8446 时间: 2008-5-25 09:19
怎么在引用中添加对DAO的引用试试？
我是新手来的，不明白。

作者: kangking 时间: 2008-5-25 10:25
在VBE（VB编辑）下，工具－－引用－－microsoft dao 3.x....前打上勾－－确定。

作者: DULANG8446 时间: 2008-5-27 09:58
还是不行啊~~~按了楼上的方法去设置过了，但是运行的时候不行

作者: kangking 时间: 2008-5-27 10:13
请将你的示例放上来。

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