[Acces 2003 + VBA] Password Protecting A Microsoft Access Tab Control

[hackedman]

Hi guys,

I want to password protect the second tab control page, so I'm using this code :

Private Sub TabCtl0_Change()

  Dim strInput As String
  Dim ctl As Control

  ' Hide controls on tab until correct password is entered
  For Each ctl In Controls
    If ctl.Tag = "*" Then
      ctl.Visible = False
    End If
  Next ctl

  ' If tab page with Tab Index of 1 is selected
  ' show InputBox asking for password
  If TabCtl0.Value = 1 Then
    strInput = InputBox("Please enter a password to access this tab", _
              "Restricted Access")

    ' Check if value is entered into InputBox
    ' If no value entered display MsgBox
    If strInput = "" Or strInput = Empty Then
      MsgBox "No Input Provided", , "Required Data"
      TabCtl0.Pages.Item(0).SetFocus
      Exit Sub
    End If

    ' Check InputBox value and if value is a match
    ' display tab and unhide hidden fields
    If strInput = "password" Then

      For Each ctl In Controls
        If ctl.Tag = "*" Then
          ctl.Visible = True
        End If
      Next ctl
      ' If incorrect password supplied return to tab (index 0)
    Else
      MsgBox ("Sorry, you do not have access to this information")
      TabCtl0.Pages.Item(0).SetFocus

      Exit Sub
    End If
  End If

End Sub

then to hide the controls in the first place, we do this using the Tag Property, and in the OnCurrent event of the form:

Private Sub Form_Current()
  
  'Hide controls tagged with "*" until password entered.
  Dim ctl As Control
  For Each ctl In Controls
    If ctl.Tag = "*" Then
      ctl.Visible = False
    End If
  Next ctl
  
End Sub

The password request and events works fine but when prompting for the password it still shows the second page items and info...

How do I fix this, please ?

Thanks

[RobDog888]

Place a breakpoint on "If strInput = "password" Then" and press F8 to step line by line through your code to see if it behaves the way you expect.

[Doogle]

Where do you set the Tag properties to "*" ?

[hackedman]

I'm sorry I didn't understand your question?!