Question

我是ms access 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.键入不匹配运行时错误13
2.对象变量或未设置变量，运行时错误91
谁可以帮我这个事？请

Answer 1

使用DAO：

Dim rs as DAO.Recordset

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

Access 2007中的记录集问题

1 个答案: