Form IsLoaded (1 Viewer)

[Gismo]

Hi all,

On close current form, I an trying to do and action if another form is open
It is not doing anything with below code

If CurrentProject.AllForms(PurchaseOrder_Requisition).IsLoaded = True Then
...
End If

and when I use the below code, I get a type mismatch error

If CurrentProject.AllForms("PurchaseOrder_Requisition").IsLoaded = True Then
...
End If

Please could you assist

 

[The_Doc_Man]

First, as a really simple test, drop the "= True" behind the .IsLoaded, since that property will itself either be true or false. I believe you can also drop the "CurrentProject." since that is the default place to look for the AllForms collection. Finally, it MIGHT be that you need to use the formal name of that form if you are going through "AllForms" - so ask for AllForms("Form_PurchaseOrder_Requisition") - just for snorts & giggles.

 

[Gismo]

First, as a really simple test, drop the "= True" behind the .IsLoaded, since that property will itself either be true or false. I believe you can also drop the "CurrentProject." since that is the default place to look for the AllForms collection. Finally, it MIGHT be that you need to use the formal name of that form if you are going through "AllForms" - so ask for AllForms("Form_PurchaseOrder_Requisition") - just for snorts & giggles.

I tried removing the =True before, did not make a difference
Using just AllForms("Form_PurchaseOrder_Requisition") gives a Sub or Function not defined error

Private Sub Close_Click()
On Error GoTo Close_Click_Err

DoCmd.Close , ""


If AllForms("Form_PurchaseOrder_Requisition").IsLoaded Then
DoCmd.Close "PurchaseOrder_Requisition"
End If


Close_Click_Exit:
Exit Sub

Close_Click_Err:
MsgBox Error$
Resume Close_Click_Exit

End Sub

 

[Josef P.]

The type mismatch error is here:

DoCmd.Close "PurchaseOrder_Requisition"

=>

If CurrentProject.AllForms("PurchaseOrder_Requisition").IsLoaded Then
    DoCmd.Close acForm, "PurchaseOrder_Requisition"
End If

This should also work without testing IsLoaded:

DoCmd.Close acForm, "PurchaseOrder_Requisition"

If the form is not open, it will not be closed.

What is this?

DoCmd.Close , ""

To close the currently active object run:

DoCmd.Close