First
Create a blank form called Calendar
On the on open event input the following Code
-------------------------------------------------------------------------
Option Compare Database
Option Explicit
Public mctlDate As Control
Public Property Set DateControl(ByVal ctlDate As Control)
Set mctlDate = ctlDate
End Property
Public Property Let InitialDate(datD As Date)
Me!ctlCalendar.Value = datD
End Property
Public Sub SetAndClose()
If mctlDate Is Nothing Then
MsgBox "The DateControl property has not been set", , _
"Calendar Form Error"
Else
mctlDate = ctlCalendar.Value
End If
'TODO:
DoCmd.Close acForm, Me.Name, acSaveYes
End Sub
Public Sub ctlCalendar_Click()
SetAndClose
End Sub
Public Sub ctlCalendar_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyReturn ' carriage return
SetAndClose
Case vbKeyEscape ' escape
DoCmd.Close
End Select
DoCmd.Maximize
End Sub
Public Sub Form_Open(Cancel As Integer)
DoCmd.Restore
End Sub
==========================================================================================================================
SECOND
Create a Button named CmdCalendar on your current form
OnClick event paste this code
I called the field name (Date_From)
Private Sub CmdCalendar_Click()
Dim frmCal As Form
Dim ctlD As Control
Dim db As Database
Set db = CurrentDb()
Dim rst As Recordset
Dim recClone As Recordset
Dim intNew As Integer
Dim i As Integer, z As Integer
Me!Date_From = Now()
Set ctlD = Me!Date_From
DoCmd.OpenForm "Calendar", , , , , acHidden
Set frmCal = Forms("Calendar"
With frmCal
Set .DateControl = ctlD
.InitialDate = ctlD.Value
.Visible = True
End With
'Time_From.SetFocus
RefreshDatabaseWindow
End Sub
Hope this helps
Hymn
