Text in textbox wont go into list box and save to access (2016) the database. Why?

Question

0.00/5 (No votes)

See more:

This is the data I have and nothing is added when I click Addtolist and don't understand why? Any help?

VB

Private Sub Addtolist_Click()
    vol_my_worked_hrs.RowSource = vol_my_worked_hrs.RowSource & MyText1 & MyText2 & ";"
End Sub

combo box converted to list box : vol_my_worked_hrs

What I have tried:

I do have
a) listbox with row source = Value List
b) 2 columns
c) property 'Allow Value List Edits' set to Yes
d) listbox name is 'vol_my_worked_hrs'

me.vol_my_worked_hrs.AddItem me.MyText1
me.vol_my_worked_hrs.AddItem me.MyText2

Posted 25-Apr-18 4:44am

ijared

Updated 25-Apr-18 5:22am

Maciej Los

v4

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2018-04-25T05:23:00

Solution 1

When ListBox.RowSource is set to ValueList, the only way to add new item to multicolumn ListBox is to separate each column with semicolon (or comma - it depends on settings):

VB

me.vol_my_worked_hrs.AddItem me.MyText1 & ";" & me.MyText2

Posted 25-Apr-18 5:23am

Maciej Los