multi-list box help!

[Joe]

I have the following 3 tables:

Clients, which has a numeric PK field called CLIENT_ID

Languages, which has a numeric PK field called LANGUAGE_ID

Client_Language s, which has a unique PK and foreign key fields
CLIENT_ID and LANGUAGE_ID

Clients and Languages each have a one-to-many relationship with
Client_Language s.

My form displays all the information in the Clients table, it also
contains a multi-list box containing all the values in the Languages
table.

When I cycle through my records I want to query the Client_Language s
table based on Client_ID and highlight each entry in multi-list box for
the current client record.

I currently have this function which does not work at all:

Private Sub Form_Current()
'Clear out any previous values
For x = 0 To Me!Languages_Sp oken.ListCount - 1
Me!Languages_Sp oken.Selected(x ) = False
Next x

If Me![client id] > 0 Then

'Populate list box with saved values (if any exist)
For x = 0 To Me!Languages_Sp oken.ListCount - 1

If Me!Languages_Sp oken.ItemData(x ) = DLookup("LANGUA GE_ID",
"CLIENT_LANGUAG ES", "CLIENT_ID = " & Me![client id]) Then
Me!Languages_Sp oken.Selected(x ) = True

Next x

End If

End Sub

[MacDermott]

Doesn't work at all?
Or highlights only one item?

DLookup always returns the first match, so it might not be the best choice
in this case.
If you're not getting any matches at all, I'd check whether ItemData is
returning the data displayed in your listbox, or a hidden ID column.

If none of this is enough to help, please post back with more detailed
questions.
"Joe" <jc**********@c omcast.net> wrote in message
news:11******** **************@ f14g2000cwb.goo glegroups.com.. .

I have the following 3 tables:

Clients, which has a numeric PK field called CLIENT_ID

Languages, which has a numeric PK field called LANGUAGE_ID

Client_Language s, which has a unique PK and foreign key fields
CLIENT_ID and LANGUAGE_ID

Clients and Languages each have a one-to-many relationship with
Client_Language s.

My form displays all the information in the Clients table, it also
contains a multi-list box containing all the values in the Languages
table.

When I cycle through my records I want to query the Client_Language s
table based on Client_ID and highlight each entry in multi-list box for
the current client record.

I currently have this function which does not work at all:

Private Sub Form_Current()
'Clear out any previous values
For x = 0 To Me!Languages_Sp oken.ListCount - 1
Me!Languages_Sp oken.Selected(x ) = False
Next x

If Me![client id] > 0 Then

'Populate list box with saved values (if any exist)
For x = 0 To Me!Languages_Sp oken.ListCount - 1

If Me!Languages_Sp oken.ItemData(x ) = DLookup("LANGUA GE_ID",
"CLIENT_LANGUAG ES", "CLIENT_ID = " & Me![client id]) Then
Me!Languages_Sp oken.Selected(x ) = True

Next x

End If

End Sub