如何在MS Access中使用VBA在列表框中添加新项目。我在VBA中尝试了listbox.addnew属性,但遇到错误。
我毫不客气地写了list6.addnew(Hotel_Name,id)。在这里,Hotel_Name是持有酒店名的变量,而Id则持有主键值。
我使用了几种方法来填充列表框。
直接在列表框的属性表中,将“行源”设置为:
SELECT tblTable.Field, qryQuery.Field FROM tblTable
在每个字段名称之后添加一些AS,您可以重命名列表框创建的标题,这样,与表格或查询字段名称相比,它更易于在表单上阅读。添加WHERE语句以根据需要进行过滤。您可以从表,查询或两者中获得结果。
在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工具来搜索特定的字符串值)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句