Calendar Set and Close

[jdd3110]

This should be easy...I have a calendar form to input a date into a particular field on a form. I want the form to automatically close when a date is clicked, but the way it is now, my entire main form closes rather than the calendar. Here is a portion on my code for the calendar. Any suggestions would be appreciated. Thanks...Josh

Private Sub SetAndClose()

    If mctlDate Is Nothing Then
    
        MsgBox "The DateControl property has not been set", , "Calendar Form Error"
    
    Else
        mctlDate = ctlCalendar.Value
    End If
    
    DoCmd.close

 

[luceze]

Try telling it what to close.
docmd.close acForm, "TheFormYouWantToClose"

HTH,
Eric

 

[jdd3110]

Worked perfect...Thanks!!!!

 

[luceze]

You're welcome.