I have a form in Access VBA and five textboxes , but when i add the data in textboxes to Listbox it only add t?

Question

this is my code

Listbox.addItem txtmajor.value
Listbox.addItem txttime.value
Listbox.addItem txtne.value
Listbox.addItem Comboesc.value
Listbox.addItem txtdesc.value

Answer 1

You're adding values to a multicolumn listbox so you need to add them like such:

Listbox.additem Cstr(txtmajor.value) & ";" & Cstr(txttime.value) & ";" ...etc, etc.



I usually do something as follows:



Private Sub AddItem_Click()

Dim addItems As Variant

addItems = Array(txtmajor.value, txttime.value, txtne.value, Comboesc.value, txtdesc.value)

listbox.Additem FixStr(addItems),0

End Sub



Function FixStr(items As Variant) As String

Dim i As Integer

For i = 0 To UBound(items)

FixStr = FixStr & CStr(items(i)) & ";"

Next i

End Function

Answer 2

Listbox.addItem txtmajor.text

Listbox.addItem txttime.text

Listbox.addItem txtne.text

Listbox.addItem Comboesc.text

Listbox.addItem txtdesc.text



with this code i get this Error

Answer 3

Listbox.addItem txtmajor.text

Listbox.addItem txttime.text

Listbox.addItem txtne.text

Listbox.addItem Comboesc.text

Listbox.addItem txtdesc.text

Answer 4

From your code, it the items you are adding from your controls will be added only to "Listbox"...



I mean 1 listbox only. ^_^