Calendar Control

[KYLE_DELUCA]

Calender Control

Good day,

I am new to access and I am using the calender control in my database.

what do I have to add to the following to get the calender to open up with today's date?

Thanks in advance.

Private Sub Calendar_DblClick()
On Error Resume Next

Dim datRet As Date

datRet = Me.Calendar

DoCmd.Close acForm, Me.Name

Screen.ActiveControl = datRet

 

[Jack Cowley]

Not sure how you are opening your calendar but if it is named Calendar then Me![Calendar].Value = Date should do the trick.

hth,
Jack

 

[KYLE_DELUCA]

Help

Hello,

I am opening the calender with the following. Where do I put that code?

Thanks in advance

Private Sub tbxDATE_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmCalendar", , , , , , Screen.ActiveControl.Value
End Sub

 

[Jack Cowley]

In the "frmCalendar" On Load event.

 

[KYLE_DELUCA]

Thanks

Thank you very much.

 

[Jack Cowley]

You are welcome! Good luck with your project....

Jack