Highlight List Box

PhilOfWalton

Simplified Version:

I Have a table of Entrants with EntantID as the Primary Key, EntrantName and AddressID as a Foreign Key

I Have a table of Addresses with AddressID as the primary Key and Address as text.

I have a list box (LstAddressID) showing all the addresses, so when I add a new Entrant, if the address already exists, I select it from the list box and the AfterUpdate adds the AddressID into the Entrants Table.
No Problem.

If I have to add a new address, I start typing into an unbound field called NewAddress1. Now I am assuming that this really is a new Address, but it may not be, so what I want to happen is the LstAddressID to highlight the first address that partially matches the letters typed into NewAddress1.

I have tried
Me.LstAddressID.ListIndex = irow doesn't work without setting the focus to the listbox, and of course once you move the focus away from the list box, the AfterUpdate fires. Not what is wanted.

Any ideas please

Phil

May 8 '17 #1

NeoPa

Hi Phil.

I'm not sure about this but I believe, with a ComboBox at least so may be similar for non-multi-value ListBoxes, that you can set the .Value property of the control without it having the focus. That's how I normally select an item in a ComboBox programmatically.

If that gives no joy then you may be out of luck. Of course you could always set a flag and allow the AfterUpdate procedure to skip its code when that flag's set. Not sure if that suits but could be a worst case scenario.

Anyway, good luck with your project :-)

-Ade.

May 8 '17 #2

jforbes

You might try using a DCount() (or DLOOKUP to get the ID) with the same WHERE clause as the ListBox while adding the criteria for LEFT() matching. Then navigate to the ListBox, or set it's .Value only if you get a hit.

May 9 '17 #3

PhilOfWalton

Having slept on it, I think I might replace the list box with a continuous subform, and filter the subform using the OnChange of the letters in the TextBox NewAddress1

I'll let you know results in due course, but your remarks at least prompted me to think outside the box, so as ever, thanks guys.

Phil

May 9 '17 #4

NeoPa

Always a pleasure Phil.

Frankly I prefer a rethink than simply following advice. It indicates a greater level of engagement. Good for you.

May 9 '17 #5

PhilOfWalton

Thanks, NeoPa & Ade.

The unbound subform works perfectly.
The OnCurrent of the main form used the AddressID to find the appropriate Address in the subform.

If I start to type a new address in, I apply a filter to the subform, based on the letters typed in so far, so the subform shows the best match. If it is a new address, the subform is blank.

Perfect.

Phil

May 11 '17 #6

NeoPa

Phil:
Perfect.

That's what we aim for. Very happy to see you achieve it on this occasion. Nice work :-)

May 11 '17 #7