Hiding fields in tab controlled form

[chohan78]

hi,
I am using a tab controlled form of 5-6 tabs and want to protect 3-4 tabs with a password. Password code is working but not able to hide the data on the forms during the time when I entered the password. Not sure how to use the tag property? ""HELP PLEASE""


Private Sub TabCtl0_Change()

Dim strInput As String
Dim ctl As Control

If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl


If TabCtl0.Value = 1 Then
strInput = InputBox("Please enter a password to access this tab", _
"Restricted Access")

If strInput = "" Or strInput = Empty Then
MsgBox "No Input Provided", , "Required Data"
TabCtl0.Pages.Item(0).SetFocus
Exit Sub
End If


If strInput = "***" Then

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = True
End If
Next ctl

Else
MsgBox ("Sorry, you do not have access to this information")
TabCtl0.Pages.Item(0).SetFocus

Exit Sub
End If
End If

End Sub

also

Private Sub Form_Current()


Dim ctl As Control
For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl

End Sub

[ranman256]

In the loop, you make some visible, but none invisible.

Dim bPassCorrect as Boolean 

bPassCorrect = the result of user entering the password

For each ctl in controls
   If ctl.tag="*" then
          Ctl.visible= bPassCorrect
   Else 
         Ctl.visible=true
   End if
next

[aytee111]

Note: passwords should be avoided. There are many files on many systems that are unusable due to forgotten passwords or people have left. Have a table of users which contains the login id and a user level. Show data only to those with the correct level. Login id's come from the system - Environ("username").

[chohan78]

hi,
still this is not hiding the background fields?

[aytee111]

Another way is to have the fields on those tabs on a subform. When the form opens the subform is invisible. After a successful password entry, change it to visible.

[HiTechCoach]

The way I handle this is to hide the tabs. Once the password (or any other secutiry method) has been validated, then you make the tabs visible. This only takes a few lines of VBA code.

[HiTechCoach]

WARNING
This was corss posted here:

https://www.access-programmers.co.uk...d.php?t=294048