在Access VBA中将表记录添加到列表框
我正在尝试将表中的记录添加到列表框中。 我可以使用“For each”语句将所有记录添加到列表框中吗 前。 将遥感器作为记录集 将rs设置为CurrentDb.OpenRecordset(“检查表”) 对于rs中的每个***!名字 可能吗?在Access VBA中将表记录添加到列表框,vba,ms-access,Vba,Ms Access,我正在尝试将表中的记录添加到列表框中。 我可以使用“For each”语句将所有记录添加到列表框中吗 前。 将遥感器作为记录集 将rs设置为CurrentDb.OpenRecordset(“检查表”) 对于rs中的每个***!名字 可能吗? 谢谢 这就是我填充列表框的方式(在表单加载时)` 使用(使用)表作为行源的查询。不需要代码。 For Each QD In CurrentDb.QueryDefs If QD.Name = "temp" Then CurrentDb.Qu
谢谢 这就是我填充列表框的方式(在表单加载时)` 使用(使用)表作为行源的查询。不需要代码。
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