none
Password Protecting A Microsoft Access Tab Control RRS feed

  • Question

  • 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

    Friday, August 5, 2011 11:13 PM

All replies