Specifying default value for combo box

[red6000]

Hi,

I have a comobox with a list of dates.

What I would like is when the user clickc the drop down button. it auto goes
to 'today'.

Now I know I could put =date() in the default value, but by default I want
the actual value of the combo box to remain empty.

Is there therefore a VBA way that 'On Click' it highlights 'today' in the
list?

Thanks.

 

[Rick Brandt]

Hi,

I have a comobox with a list of dates.

What I would like is when the user clickc the drop down button. it
auto goes to 'today'.

Now I know I could put =date() in the default value, but by default I
want the actual value of the combo box to remain empty.

Is there therefore a VBA way that 'On Click' it highlights 'today' in
the list?

Perhaps it would be easier to modify the RowSource of the ComboBox so that
today's date is always the first choice at the top of the list.

 

[red6000]

Thanks Rick, do you just mean put =date() in the row course property? If so
I'll then lose my drop down list won't i with all the other dates?

Thanks.

 

[Rick Brandt]

Thanks Rick, do you just mean put =date() in the row course property?
If so I'll then lose my drop down list won't i with all the other
dates?

No I mean modify the query being used for the RowSource so that today's date is
always listed first. You just need to sort first on a calculated field.

SortVal: IIf([DateField] = Date(), 0, 1)