None working "simple Code" on close event? (1 Viewer)

[L'apprentis]

I have witten a code in the close event of a "Primary" form that would update a Combo boxe on a "secondary" form only if the "secondary" form is open.
ie:

Private Sub Form_Close()
If Forms!frmEnquiry.Open Then
Forms!frmEnquiry!CboCustomer.Requery
Else
DoCmd.Close
End If
End Sub

This code keeps giving me an error, is anybody has got any idea why?
Thanks in advance.

 

[boblarson]

Yes, the part you wrote about:

Forms!frmEnquiry.Open

is not valid code checking for the state of a form. I don't know what that code would be, and hopefully someone will share that with us, but that is why you're getting an error.

 

[ghudson]

IsLoaded is what you want. Access 2003 finally built the IsLoaded() function into Access 2003. Anything older then you will have to use the custom IsLoaded () function that Microsoft includes with the Norwind sample that comes will all versions of Access. Search around the forum for it is posted here as well.

Thanx Rich!

 

[Rich]

IsLoaded is the function that comes with earlier versions

 

[L'apprentis]

Thanks guys I will give it a search.

 

[L'apprentis]

umm....
I have added the following is loaded code in my modul

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
    
End Function

but I still get an error message with the following code:

Private Sub Form_Close()
If IsLoaded(FrmEnquiry) Then
Forms!FrmEnquiry!CboCustomer.Requery
Else
DoCmd.Close
End If
End Sub

Where "FrmEnquiry" is a variable not defined, have you got any idea why?

 

[john471]

You need to pass the name of the form as a string.

Private Sub Form_Close()
If IsLoaded("FrmEnquiry") Then 'note : enclosed in quotes

or

Private Sub Form_Close()
dim frmEnquiry as string
frmEnquiry = "TheNameOfYourForm"
If IsLoaded(FrmEnquiry) Then 'not enclosed in quotes i.e. a variable - the variable contains the string.

 

[L'apprentis]

Thanks John,this is working.