如何解决将表记录添加到Access VBA中的列表框
我正在尝试将表中的记录添加到列表框中。 我可以使用“对于每个”语句将所有记录添加到列表框中吗？
例如 昏暗的记录集
将rs设置为CurrentDb.OpenRecordset（“ CheckTable”）
每个rs中的***名称！
有可能吗？ 谢谢！
解决方法
这就是我要填充列表框（在表单加载时）的方式
For Each QD In CurrentDb.QueryDefs
If QD.Name = "temp" Then CurrentDb.QueryDefs.Delete "temp"
Next
Dim prm As DAO.Parameter
Dim qdf As DAO.QueryDef
Dim RS As DAO.Recordset
SQL = "SELECT field1 FROM table1 "
Set qdf = CurrentDb.CreateQueryDef("TEMP",SQL)
For Each prm In qdf.Parameters
qdf.Parameters(0) = Forms!form1!List0
Next prm
Set RS = qdf.OpenRecordset
Set List0.Recordset = RS
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
