Access Access 2007中的记录集问题

Posted 2021-04-01

我是ms访问VBA的新手，我在ms access 2007中有一个表单和表。 在我的表中，我将导入一些值以通过此表单进行处理。在那种形式我有5个文本框我想要文本框应该自动填充值。使用rs在这里，我需要创建一个记录集，以方便用户使用 我为此创建了一个查询。但是当我的页面加载时，我正面临一些错误消息。

Private sub Form_Load() 
Dim strqry as string  
Dim rs as ADODB.Recordset  
strQry="select xyz,abc,ffg from tblImport where isworked='N'"  
set rs = currentdb.openrecordset(strqry)

if not (rs.EOF and rs.BOF) then  
me.textbox0.value=Cstr(rs!xyz)  
me.textbox1.value=Cstr(rs!abc)  
end if

End sub

这里我在表单加载时遇到两条错误消息 1.输入Mismatch运行时错误13 2.对象变量或未设置变量，运行时错误91 谁可以帮我这个事 ？请

答案

use DAO:

Dim rs as DAO.Recordset  

这需要设置Microsoft Office xx.0 Access数据库引擎对象库的引用。