I am using this in the "on click" to enter the date via the calendar;
Private Sub cmdDate_Click()
DoCmd.OpenForm "frmCalendar", , , , , acDialog, Me.Name & ";Date"
End Sub
This is on a sub form called Events SubForm.
This will work if used with the sub open only but as the sub is run off...