Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
导致错误的原因:access 2010 vba上未定义用户定义的类型?_Vba_Ms Access 2010 - Fatal编程技术网

导致错误的原因:access 2010 vba上未定义用户定义的类型?

导致错误的原因:access 2010 vba上未定义用户定义的类型?,vba,ms-access-2010,Vba,Ms Access 2010,我正在尝试在access窗体上搜索并显示搜索结果以进行编辑。我是vba编程的新手,我刚刚修改了代码,以满足发布的类似要求。 在txtcsubject中输入搜索值时,我一直收到此错误消息。未定义用户定义类型 我的代码: ` If (txtcISubjectID & vbNullString) = vbNullString Then Exit Sub Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "[c

我正在尝试在access窗体上搜索并显示搜索结果以进行编辑。我是vba编程的新手,我刚刚修改了代码,以满足发布的类似要求。 在txtcsubject中输入搜索值时,我一直收到此错误消息。
未定义用户定义类型
我的代码:

`    
If (txtcISubjectID & vbNullString) = vbNullString Then Exit Sub
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[cISubjectID]=" & txtcISubjectID

If rs.NoMatch Then
    MsgBox "Sorry, no such record '" & Me.txtcISubjectID & "' was found.", _
           vbOKOnly + vbInformation
Else
    Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close
txtcISubjectID = Null`
我做错了什么?我有以下参考图书馆:

Visual Basic for Application
OLE自动化
Microsoft Access 14.0对象库


程序在哪一行停止,并突出显示错误?@CyberClaw程序在:Dim rs As DAO处停止。Recordset@CyberClaw请注意,我使用的是MSAccess2010。这在我身上发生过。我不知道为什么,我猜测缺少正确的引用,但当时我通过不初始化记录集修复了它。我再也找不到我丢失的引用,但删除那条模糊的线可能会起到修复作用,即使它的形式不好。VBA允许您在不初始化变量的情况下使用变量。将Microsoft Office 14.0 Access数据库引擎对象库添加到项目引用中。