How to close a form

[rescobar]

I have a Form called "Search" which runs a query. The query result opens a form called "Search Result"
When I open form "Search" again I want "Search Result" to close. Currently unless I close the form "Search Result" it will display the previous result unless I close it.

[ssanfu]

It depends on when and where you want this to happen. If it is in the form load event, you will have to check if the form is open or have error handling code to deal with trying to close a from that is not open.

The command I use is:

generic:

DoCmd.Close acForm, Me.Name

in your case, I might use:

DoCmd.Close acForm, "SearchResult"

[rescobar]

I tried DoCmd.Close acForm, "SearchResult" but getting it wrong with how to place it. Here's my Search Form code

Option Compare Database
Private Sub Form_Load()
DoCmd.Maximize
End Sub

Private Sub clear_Click()
Me.qProduct.Value = ""
Me.qModel.Value = ""
Me.qSummary.Value = ""
Me.qDetails.Value = ""
Me.qSolution.Value = ""
Me.cboProduct.Value = Null
Me.cboModel.Value = Null
End Sub

' This code opens the Search Result Form and comments out mainquery
Private Sub Command33_Click()
'DoCmd.OpenQuery "mainquery", acViewNormal
DoCmd.OpenForm "Search Result"
'This will Maximize window
DoCmd.Maximize
End Sub

Private Sub cboModel_Click()
Me.qModel = Me.cboModel
End Sub

Private Sub cboProduct_Click()
Me.qProduct = Me.cboProduct
End Sub

Private Sub cboProduct_AfterUpdate()
Me.cboModel = vbNullString
Me.cboModel.Requery
End Sub

[ssanfu]

Try

Option Compare Database  '<<= should be at the top of every code page
Option Explicit     '<<= should be at the top of every code page

Private Sub Form_Load()
    DoCmd.Maximize
    
    'handles error if form in not loaded
    On Error Resume Next

    DoCmd.Close acForm, "Search Result"

End Sub

[rescobar]

No that's not working. Maybe this will be more useful.

I open "Search" Form and do a query.
Result: "Search Result" Form Opens.

Now I open "Search" Form again and do a different query.
Result: The previous result is displayed in "Search Result" Form.
NOTE: If I close the "Search Result" Form and Search again it works as expected.

[rescobar]

I fixed it. Tried this code before but had a typo. This worked.
' This code opens the Search Result Form inand comments out mainquery
Private Sub Command33_Click()
'This code will close Search Result form on new query
DoCmd.Close acForm, "Search Result"
'DoCmd.OpenQuery "mainquery", acViewNormal
DoCmd.OpenForm "Search Result"
'This will Maximize window
DoCmd.Maximize
End Sub



Thanks

[ssanfu]

I understood that you were closing form "Search", then re-opening it.

Your code is exactly right! Glad you found the typo and fixed it.