List Box and SQL

[tyleri]

I have a task that I know is doable but is confusing to me.
I have 3 fields in a table that have the values 0 or 1.

Field 1: 0 = nothing 1 = New Account
Field 2: 0 = nothing 1 = Banking Account
Field 3: 0 = nothing 1 = Broker

I want the list box to show each record with a listbox that shows ONLY what the client DOES have.

So if one client only has "Banking Account", then I want the list box to show: Banking Account

If the client has "Broker and Banking Account" I want the list box to show:

Broker
Banking Account

just like that - no NULL values!

Does anyone understand what I"m talking about and can show me the code that I must use to get this?

Thanks in advance!

 

[braindead2]

set the listboxes row source type as value list
then in the forms on current event use code like this

Private Sub Form_Current()
Dim txtstr As String
txtstr = ""
If Me.Field1 = 1 Then txtstr = "New Account"
If Me.Field2 = 1 Then txtstr = "Banking Account ," & txtstr
If Me.Field3 = 1 Then txtstr = "Broker ," & txtstr
Me.List0.RowSource = txtstr

 

[tyleri]

I put in this code:

Private Sub External_Clients_Current()

Dim txtstr As String
txtstr = ""
If Me.EXT_USER_Q.new_acct_ind = 1 Then txtstr = "New Account "
If Me.EXT_USER_Q.bank_ind = 1 Then txtstr = "Banking " & txtstr
If Me.EXT_USER_Q.broke_ind = 1 Then txtstr = "Broker " & txtstr

Me.Services_List.RowSource = txtstr

End Sub


it's not working..... any ideas?

 

[MarkSweetland]

Listbox data is derived from a Table/Query, Value List or a Field List. What you want is a Value list. The Entries in the Value List are separated with semi-colons:

If Me.EXT_USER_Q.new_acct_ind = 1 Then txtstr = "New Account

;

"
If Me.EXT_USER_Q.bank_ind = 1 Then txtstr = "Banking

;

 " & txtstr
If Me.EXT_USER_Q.broke_ind = 1 Then txtstr = "Broker " & txtstr

Me.services_list.RowSourceType = "Value List"
Me.services_list.ColumnCount = 1
Me.services_list.rowsource = txtstr

Mark