Office中国论坛/Access中国论坛

标题: 用户定义类型未定义，为何? [打印本页]

作者: dasen 时间: 2004-4-15 05:32
标题: 用户定义类型未定义，为何?
[B]Dim db As dao.database
Dim zf As dao.Recordset[/B]

以上代码，运行提示错误，用户定义类型未定义，为何？

作者: sea.er 时间: 2004-4-15 05:51
应该是引用的问题，引用DAO3.6，并把顺序调到ado之上

作者: dasen 时间: 2004-4-15 17:11
Private Sub 列表2_AfterUpdate()

Dim db As dao.database
Dim zf As dao.Recordset
Dim str As String

Set db = CurrentDb
Set zf = db.openrecordset("select * from 个人档案 where 工号='" & Me.列表2.Column(0) & " '")

Me.部门1 = zf("部门")
Me.部门2 = zf("部门")
Me.职务1 = zf("职务")
Me.职务2 = zf("职务")

End Sub

如何进行引用，代码如何写?

作者: sea.er 时间: 2004-4-15 17:49
转到代码窗口，工具－引用，引用DAO3.6，并把顺序调到ado之上

作者: dasen 时间: 2004-4-15 19:48
多谢！
有关于＜引用＞方面的资料吗？

作者: sea.er 时间: 2004-4-15 20:53
没有，不过一般出现这种类型的提示，就有可能是缺少了对dao的引用；再有就是检查一下看有没有丢失引用

[此贴子已经被作者于2004-4-15 12:56:01编辑过]

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