vb to check form is open

[stevencarroll19]

What i wnat to do is check to see if a form is open before a new record can be entered.

If any of the forms are open ( Question3 Reason, Question 4 Reason and Question 9 Comments) I want an error message to be displayed saying something along the lines of

'Sorry you have 'form name here' open. Please click save on the form before continuing'

I started to write a macro which included the run code command but got stuck on the vb and also how to halt the macro if the result of the vb code is true (i was going down the route of form open = true, form not open = false)

any help or guidance would be much appreciated.

Thanks

Steven

[Tanis]

Courtesey of the Dev Ashish web site.

Pass the form name to the following function. Function will return True if form is open and False if it's not.

****** Code Start ********
Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
If SysCmd(acSysCmd GetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormNa me).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
'****** Code End ********