The Northwind sample database that comes with Access has an IsLoaded
function which you can use. Here is something similar:
Public Function IsLoaded(strName As String) As Boolean
IsLoaded = (SysCmd(acSysCmdGetObjectState, acForm, strName) <> 0)
End Function
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access Downloads http://www.datastrat.com http://www.mvps.org/access