Hi,

I was wondering if the following can be done?



With currentForm
!currentControl = Format(Me.acxCalendar, "Short Date")
End With

"Wembly" <(E-Mail Removed)> wrote in message
news:044101c3a74c$7b860680$(E-Mail Removed)
> Hi,
>
> I was wondering if the following can be done?
>
>
>
> With currentForm
> !currentControl = Format(Me.acxCalendar, "Short Date")
> End With

What do you mean by "currentForm" and "currentControl"? If you mean the
form and control that currently have the focus, you could write the same
thing with

Screen.ActiveControl = Format(Me.acxCalendar, "Short Date")

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)