How to determine if form is closed , and how to determine if specific control has focus????

Function isopen(strname As String, Optional inttype As Integer = acForm)
'is the form open?
isopen = (SysCmd(acSysCmdGetObjectState, inttype, strname) <> 0)
End Function

From the Northwind sample databse:

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Returns True if the specified form is open in Form view or Datasheet view.
    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If

End Function


Boyd
"Hi Tech Coach"
Access Based Accounting/Business Solutions developer.
http://www.officeprogramming.com