ms-access-2007 - 如何在 ms 访问中使用 VBA 在列表框中添加新项目

Question

如何在 ms 访问中使用 VBA 在列表框中添加新项目。我在 VBA 中尝试了 listbox.addnew 属性，但遇到了错误。

我实际上写了 list6.addnew (Hotel_Name,id)。这里 Hotel_Name 是保存酒店名称的变量，而 Id 是保存主键值的变量。

Answer 1

我使用了几种方法来填充列表框。

1. 直接在列表框的属性表中，将Row Source设置为：

   SELECT tblTable.Field, qryQuery.Field FROM tblTable  
   

在每个字段名称后添加一些 AS，您可以重命名列表框创建的标题，以便在表单上阅读比您的表或查询字段名称更容易添加 WHERE 语句以根据需要进行过滤。您可以从表、查询或两者中获取结果。

1. VBA 中的类似情况：

   Dim rec As DAO.Recordset, sql As String
   sql = "SELECT Field1, Field2, Field3, Field4 FROM tblTable WHERE Field1 = "Filter Example"
        Set rec = CurrentDb.OpenRecordset(sql)
   
   listbox0.column0 = rec(0)
   listbox0.column1 = rec(1)
   listbox0.column2 = rec(2)
   listbox0.column3 = rec(3)
   

这是我推荐的两个。属性表方法快速简单，但在开发过程中比 VBA 方法更难跟踪和修改。（VBA 内置了一个很好的 FIND 工具来搜索特定的字符串值）