List Box Focus

[JC3]

Hi

I have a list box setup with all the dates from 01/10/05 to 31/12/08.

I want to always start the list box at the current date while still allow the functionality to backdate if required.

I have used the undernoted code to set the row correctly but I cannot figure how to get the box to scroll down to the correctly selected row.

    Dim i As Long
    
    i = DLookup("ID", "tblIMDates", "cdate([Date])=date()") - 1
    
    Me.lstDates.Selected(i) = True

Any ideas?

JC

 

[sonny]

Did you try a refresh of the form...

 

[jfgambit]

Set the default value of the Listbox to Date()

 

[JC3]

Tried both suggestions with no luck.

For your information the Multi Select List Box is unbound and I use the results to update a separate table.

Any other ideas?

 

[RuralGuy]

See if there isn't something here that can shed some light on the subject.

 

[JC3]

Thanks everyone for your help.

Simply used the below code.

me.lstbox.ListIndex = desiredrow

I knew it would be simple in the end.

Thanks again.

JC