在Access VBA中将表记录添加到列表框中

Question

我正试图将表中的记录添加到列表框中。我可以用一个"；对于每个"；语句将所有记录添加到列表框中？

Ex。Dim rs作为记录集

将rs设置为CurrentDb。OpenRecordset("CheckTable"(

对于rs中的每个***！名称

这可能吗？谢谢

Answer 1

这就是我填充列表框(表单加载时(`的方式

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