Cant Close Form and Open Another Form?

[Dave Elliott]

This code does not close the form BlankChecks, Why?

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

stDocName = "BlankChecksnotposted"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "BlankChecks"

End Sub

 

[Rick Brandt]

This code does not close the form BlankChecks, Why?

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

stDocName = "BlankChecksnotposted"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "BlankChecks"

End Sub

I see nothing wrong with the code.

Do you get an error or does the form simply not close?

 

[Dave Elliott]

No Error, the form just does not close.

I see nothing wrong with the code.

Do you get an error or does the form simply not close?

 

[Dave Elliott]

Had to add DoCmd.Close acForm, "BlankChecks"
to the form that opened for this to work?
Thanks,

 

[Rick Brandt]

Had to add DoCmd.Close acForm, "BlankChecks"
to the form that opened for this to work?
Thanks,

That's what I would expect if you were opening the second form with the acDialog
option, but without that your original code should work.

 

[Allan Murphy]

Dave

Try



'close the current form
docmd.close

then open your new form as per your coding