[blue]Function IsOpenForm(frmName As String) As Boolean
Dim cp As CurrentProject, Frms As Object
Set cp = CurrentProject()
Set Frms = cp.AllForms
If Frms(frmName).IsLoaded Then
[green]'If form not in Design View then OK![/green]
If Forms(frmName).CurrentView > 0 Then IsOpenForm = True
End If
Set Frms = Nothing
Set cp = Nothing
End Function[/blue]