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

Question

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

我实际上写了list6.addnew（Hotel_Name，id）。这里Hotel_Name是持有酒店名称的变量，Id保持主键值。

Answer 1

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

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

   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工具来搜索特定的字符串值）