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

Question

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

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

List Box的{​​{1}}设置为表格/查询。

当我打开表单时，它会查询表格并使用所有数据填充Row Source Type。

我有4个无界 List 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

我尝试使用Text Box的{​​{1}}属性，但它不存在。

我尝试过这样的事情：

List Box

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

我添加了以下代码，它在Me.MyList.AddItem "" & ";" & Me.textBoxValueOne & ";" & Me.testBoxValueTwo & ";" & "" 和表的末尾添加了一个空白条目，但我不知道从哪里继续保存输入数据来自.RowSourceType到List Box和表格

的末尾List Box

Text Box

我怎样才能做到这一点？

感谢。

Answer 1

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

添加新记录后尝试

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

一旦你添加了记录。只需重新查询列表框即可。

Me.listbox.requery