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

Hi guys,

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

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:

Code:

---

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

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.

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

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