how to check form if open 2

[Madiba1]

Good morning am writing an application which need to check if the preceeding forms are open. If they are closed user should not proceed using the current form.
SOS pls

 

[TheAceMan1]

How are ya Madiba1 . . .

In a module in the modules window, copy/paste the following function:

[blue]Function IsOpenForm(frmName As String) As Boolean
   Dim cp As CurrentProject, Frms As Object
   
   Set cp = CurrentProject()
   Set Frms = cp.AllForms
   
   If Frms.Item(frmName).IsLoaded Then
      If Forms(frmName).CurrentView > 0 Then IsOpenForm = True
   End If
   
   Set Frms = Nothing
   Set cp = Nothing

End Function[/blue]

To use the function:

[blue]   If IsOpenForm("[purple][b]YourFormName[/b][/purple]") Then
      [green]'Code if open[/green]
   Else
      [green]'Code if closed[/green]
   End If[/blue]

See Ya! . . . . . .

 

[mp9]

I tend to use SysCmd like so:

'There are four states you can check for:
'acObjStateOpen - open
'acObjStateNew - new
'acObjStateDirty - changed but not saved
'0 (zero) - closed or non-existant
 If SysCmd(acSysCmdGetObjectState, acForm, "YourFormName") = acObjStateOpen Then 
...

So no need to write your own function.

http://www22.brinkster.com/accessory/

 

[TheAceMan1]

. . . and if the form is open in design view?

See Ya! . . . . . .

 

[randy700]

Why would you care about the form being open in design view if you're writing code to prevent the user from proceeding? Seems to me, you would not allow the user to open a form in design view.



Randy

 

[mp9]

An interesting point AceMan. The SysCmd will still evaluate to one of the acObjectState.... variables. This may or may not be helpful/problematic.

http://www22.brinkster.com/accessory/

 

[TheAceMan1]

How are ya randy700 & mp9 . . .

I agree [blue]design view[/blue] is not a part of normal operations, however, during [blue]design & testing[/blue] of several DB's I'd get an error because I left one open. It was easy enough to take care of this in code.

[purple]Those errors will never bother me again![/purple] ;-)

See Ya! . . . . . .