If form Contacts is open Close

[Dave Elliott]

Need VB code to perform this function.
If the form Contacts is open then close if not then do nothing.

Thanks,

Dave

 

[Albert D. Kallal]

if fisLoaded("Contacts") = True then
docmd.Close acForm,"Contacts"
endif

You need to grab the fisLoaded function from here:

http://www.mvps.org/access/forms/frm0002.htm

Then place the code in a standard module. There is also a sample of the code
is the northwind database also.

 

[Dave Elliott]

I imported the utility from the Northwind db

If fisloaded("Contacts") = True Then
DoCmd.Close acForm, "Contacts"
End If

Else: DoCmd.Close

End If

End Sub

 

[Douglas J. Steele]

That Else: DoCmd.Close doesn't do anything, and you've got an superfluous
End If.

 

[Albert D. Kallal]

The northwind example has a differnt name. When you use function code, you
have to use the NAME THAT YOU give the function. In the northwind exmaple,
the fucntion is called

IsLoaded

not called

fIsLoaded

So, simply change your code to:

If IsLoaded("Contacts") = True then
DoCmd.Close acForm, "Contacts"
End If

The above code should work. So, just carefully check the name of the
function you copied. You can change the name of the function to whatever you
want, but then all code will have to match.

Also do a save and compile all, as this will check the names for you
*before* you try and run your code.