Listbox

[skydivetom]

Experts:

I need some assistance with (I think) a relatively easy problem. Below summarizes what I have in an Access database and what I'd like to accomplish:



- I have a form with a listbox "ListBoxActions1"
- Listbox "ListBoxActions1" shows eight values upon opening the form.
- First value = "All"; remaining seven values indicate a specific category.
- If "All" is selected, I want to enter the IF clause. If values <> "All", I want to enter the "Else" clause. Below is the pseudo code:

If ListBoxActions1 = "All"
   Do something

Else (that is, value <> "All")
   Do something else

End If

What does the IF statement look like to ensure "All" is properly executed? Right now, when I select "All", I enter the "Else" statement (vs. the IF).

Thank you,
EEH

[pbaldy]

What is the row source of the listbox? I'm guessing that "All" is not in the bound column. You may need

If ListBoxActions1.Column(1) = "All"

or whatever column that value is in (zero based, so 1 is the second column).

[skydivetom]

pbaldy:

I have a category table that includes values for seven categories plus value "All". So, the row source for the list box is a simple SELECT statement.

Does that make a difference?

EEH

[davegri]

So, the row source for the list box is a simple SELECT statement.

which is ?

[pbaldy]

If a single field is returned, I'd expect your code to work. Make sure there are no hidden spaces.

[skydivetom]

Attached is the sample db. For testing purposes, I have only "All" and "Accidental Discharge" in the source table for the listbox.

So, again, if "All" is clicked I want to run "qry_Category01_All" and adding 14 records to 000_tblRawData.

Alternatively, if "Accidental Discharge" is selected, I want to run "qry_Category02_AccidentalDischarge" and adding 2 records to 000_tblRawData.

Please see attached database for details.

EEH

[skydivetom]

pbaldy:

I changed "1" to "0"... it worked great!

If ListBoxActions1.Column(0) = "All"

Thank you for your help!!

EEH

[pbaldy]

Glad you got it working!