close form when lost focus

[tuxalot]

braindead here...can't find a resolution to what should be a silly issue. I have a pop-up calendar form that I wish to close when the user clicks back on the main form of my app. I've tried deactivate, lost focus, got focus on the main form all to no avail. Any help is much appreciated.

Tux

[missinglinq]

Forms can only get or lose focus if there are no other controls on them that can receive focus. So using these events of either form is futile.

If the calendar form is also Modal, you can't do anything on any other form until you close the popup.

Normally you would close the form after the selection of a date is made. What event on the popup is being used for this?

Linq ;0)>

[tuxalot]

The calendar form works well and has a button to confirm the date selected on the calendar at which time it writes this date to a textbox. It is set as a non-modal popup. The thinking was if the user opens the calendar and chooses not to change a date, a click back on the main form would close the calendar. So per your comments, this functionality is not possible?

EDIT:

It's working with this code:

 
Dim frmCal As String
 
    frmCal = "frmCalendar"
 
    DoCmd.OpenForm frmCal, windowmode:=acNormal, OpenArgs:=strTitle
 
    Do
        DoEvents
    Loop While Screen.ActiveForm.Name = frmCal
    DoCmd.Close acForm, frmCal
 

[DonRayner]

Put the calendar control on your main form and work with it's visible property instead of having to open and close a form. This way you can use the calendars lost-focus event to hide the calendar.

[tuxalot]

Hi Don, Your idea would work except I have a parameter that is passed to the function to open the calendar, that being the text box that is used to place the date into once the date is selected on the calendar. And, I have multiple calendars on the form.

I appreciate your response,

Tux

[missinglinq]

I use the Click event for the Detail Section of the calendar to exit without making a selection. Clicking anywhere except on a date closes it.

[FishVal]

Hello, Tux.

Really, from some reasons form couldn't be closed while Form_Deactivate event is being handled. But code in Form_Deactivate event handler could initiate form timer, code in Form_Timer event is able to close the form.

Private Sub Form_Deactivate()
    Me.TimerInterval = 1
End Sub
 
Private Sub Form_Timer()
    DoCmd.Close acForm, Me.Name
End Sub