Can't get form to hide

  • Thread starter RobUCSD via AccessMonster.com
  • Start date
R

RobUCSD via AccessMonster.com

Could you pls take a look at the code below. The If IsUserInGroup part is
solid because I use it in other parts of my app and it works just fine. It's
the hide the form part that's not working. It still shows up for users other
than admins. I'm not sure why.

Any help is greatly appreciated. Thanks, Rob
****************************************************************************************************************
Option Compare Database
Option Explicit

'-----------------------------------------------------------------------------
----------
' Procedure : Form_Open
' DateTime : 6/4/2007 08:54
' Author : Rob
' Purpose : To maintain a persistent connection to the database to improve
performance, _ &
' also displays current version to DBA
'-----------------------------------------------------------------------------
----------
'
Private Sub Form_Open(Cancel As Integer)

On Error GoTo Form_Open_Error

If IsUserInGroup(CurrentUser(), "Admins") Then
Me.Visible = True
Else: Me.Visible = False
End If

On Error GoTo 0
Exit Sub

Form_Open_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
Form_Open of VBA Document Form_frmVersion-ConnectionPersistance"
End Sub
****************************************************************************************************************
 
R

RobUCSD via AccessMonster.com

I fixed this set by looking at previous posts, something I should have done
before posting. Sorry for the mis-fire. Have a great day. Thanks, Rob
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top