Button visible IF other form is open

[SteveC24]

Hi,

I have a menu form, which has a button on it to open a "Shops" form. I want the Shops form to display a button on it, ONLY if the Menu form is open.

The button is set to be not visible normally, the code should change that.....but doesn't.

This is what I have so far:

If IsFormLoaded("frm menu") = True Then
closebutton.Visible = True
Else
Exit Sub
End If

I also have this module:

Function IsFormLoaded(strFormName As String) As Boolean
IsFormLoaded = (SysCmd(acSysCmdGetObjectState, acForm, strFormName) = acObjStateOpen)
End Function

Thanks!

 

[Jack Cowley]

Try this function:

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

Const OBJ_STATE_CLOSED = 0
Const DESIGN_VIEW = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> OBJ_STATE_CLOSED Then
If Forms(strFormName).CurrentView <> DESIGN_VIEW Then
IsLoaded = True
End If
End If
End Function

hth,
Jack

 

[SteveC24]

Pat, I tried your suggestion, but it doesn't seem to make any difference.

Jack, I tried that, and I get this error:

Compile Error:

Expected variable or procedure, not module.


I have this as a module, called IsLoaded:

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

Const OBJ_STATE_CLOSED = 0
Const DESIGN_VIEW = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> OBJ_STATE_CLOSED Then
If Forms(strFormName).CurrentView <> DESIGN_VIEW Then
IsLoaded = True
End If
End If
End Function

Then, I have this in the form, in the On_load event:

If IsLoaded("frm menu") = True Then
closebutton.Visible = True
Else

Help! I have very limited knowledge of VBA BTW!!!

 

[Rich]

You module should not have the same name as the function

 

[SteveC24]

Ah right, OK, I have left the function called IsLoaded, and have called the module IsFormLoaded.

Now, I am getting the following error:

Compile Error:

Invalid Qualifier


It highlights this part of my code:

closebutton.Visible = True

Thanks,

 

[Rich]

Me.ButtonName.Visible=False

 

[Jack Cowley]

Rich -

You are too fast for me Rich!

Steve -

The code does work...

Jack

 

[Rich]

 

[Jack Cowley]

 

[SteveC24]

Thanks Rich, with that little tinkering, and a little fiddling with my shoddy coding, I have got it working great!

Thanks both of you - sorry Jack, your code does work!

Thanks

 

[Jack Cowley]

I am glad you have your problem sorted and your code working!

Jack