时间戳

首页 > 解决方案 > 在 Access VBA 中将表记录添加到列表框

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

问题描述

我正在尝试将表中的记录添加到列表框中。我可以使用“For each”语句将所有记录添加到列表框中吗？

前任。暗淡 rs 作为记录集

将 rs 设置为 CurrentDb.OpenRecordset("CheckTable")

对于 rs!Names 中的每个 ***

那可能吗？谢谢！

标签： vbams-access

解决方案

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

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

推荐阅读