Closing a Form1 after opening Form2

[damutech]

I have a control in Form1 and after LostFocus, it open a Form2, Form1 rests still open. But I want to close Form1 automaticly after opening Form2. How can I do that?

Here is an example:
Form1:
Private Sub POD_LostFocus()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Thanks!

 

[lars7]

You could try this:


Private Sub POD_LostFocus()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name

End Sub

 

[TheAceMan1]

How are ya damutech . . .

Try This:

[blue]   Dim stDocName As String
   Dim stLinkCriteria As String
   
   stDocName = "Form2"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   [purple][b]DoCmd.Close acForm, "Form1", acSaveYes[/b][/purple][/blue]

See Ya! . . . . . .

 

[danvlas]

Or you could change the line in Form1 to:

DoCmd.OpenForm stDocName, , , stLinkCriteria, , , stDocName

Then, in Form2's Open event:

If Not IsNull(Me.OpenArgs) then
DoCmd.Close acForm, Me.OpenArgs
End If

Especially good when opening Form2 in Dialog mode.

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[damutech]

Thanks, it works