Return Focus to the previous object.

[Guest]

I have a text box in a Form that on the Enter event of the TextBox it opens a
Popup Form. How do I immediately return the Focus back to the TextBox on the
Main Form using code when the Popup form opens?

Thank you,

Steven

 

[Guest]

I have a text box in a Form that on the Enter event of the TextBox it opens a
Popup Form. How do I immediately return the Focus back to the TextBox on the
Main Form using code when the Popup form opens?

Thank you,

Steven

 

[Guest]

This is not what I want. I want the PopUp Form to open and immediateley with
the PopUp Form Open I want the focus to go back to the control on the main
form that had the focus when the PopUp Form opened.

Thanks,

Steven

 

[Guest]

So put this code on the on load event of the form, instead of the close.

 

[Guest]

I tried that but the focus stays with the PopUp Form. I dont see why it
wont let the focus go back to the Main Form and to the TextBox I want.

 

[Dirk Goldgar]

I tried that but the focus stays with the PopUp Form. I dont see
why it wont let the focus go back to the Main Form and to the TextBox
I want.

It's not as simple as you'd think. I've found this way to do it:

Set the popup form's TimerInterval to 1. Then have code like this in
the popup form's module:

'----- start of code -----
Option Compare Database
Option Explicit

Dim mfrmPrev As Form

Private Sub Form_Close()

Set mfrmPrev = Nothing

End Sub

Private Sub Form_Open(Cancel As Integer)

Set mfrmPrev = Screen.ActiveForm

End Sub


Private Sub Form_Timer()

Me.TimerInterval = 0
mfrmPrev.SetFocus

End Sub

'----- end of code -----

There ought to be an easier way, but I haven't found it yet.