将项目添加到多列列表框的末尾

Question

作为这方面的初学者，我试图寻找解决问题的方法。我在 Access 2013 中使用List Box 创建了一个表单。 List Box 有界到一个有 10 个字段的表。

对于List Box，在属性表中，我已将Column Count 设置为10，但隐藏了一些列，即有些列的Column Widths 为0 " 因为我只在List Box 中显示重要数据。

List Box 的 Row Source Type 设置为 Table/Query。

当我打开表单时，它会查询表格并用所有数据填充List Box。

我有 4 个 unbounded Text Box 允许用户输入数据，并有一个按钮允许将输入数据添加到 List Box 的末尾并自动添加到桌子上。

我已经搜索过如何做到这一点：

1. Add items to a multi-column List Box
2. vba listbox multicolumn add
3. Adding items in a Listbox with multiple columns
4. Adding values multiple columns to listbox in form access vba
5. Excel multi-select, multi-column listboxes

我尝试使用List Box 的.List 属性，但它不存在。

我尝试过类似的操作：

Me.MyList.AddItem "" & ";" & Me.textBoxValueOne & ";" & Me.testBoxValueTwo & ";" & ""

但是，VBA 抱怨我需要将 .RowSourceType 更改为 值列表，当我添加它时，List Box 会清除所有数据，并将此数据添加为第一个条目，这不是我想要的。

我添加了以下代码，它在List Box 以及表格的末尾添加了一个空白条目，但我不知道在哪里可以进一步保存来自@987654343 的输入数据@到List Box和表的末尾：

DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSaveRecord
Me.MyList.Requery

我怎样才能做到这一点？

谢谢。

Answer 1

您需要先将记录添加到表中，然后重新查询您的列表框。

添加新记录后尝试

Me![column name] = textbox1.value
And other textboxes
Followed by your save command.

添加记录后。只需重新查询列表框。

Me.listbox.requery