tab control on form

In a form in which i have restricted access to a tab, users need to enter a
password to enter. This works fine (this code and put it into the "onchange"
section of the tab). But what i can't figure out is how to make a password
for this. I am still learning in access and would appreciate any help on how
to do this.
(code example is listed)

Private Sub TabCtl20_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 6 is selected
' show InputBox asking for password
If TabCtl20.Value = 6 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"
TabCtl20.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")
TabCtl20.Pages.Item(0).SetFocus

Exit Sub
End If
End If


End Sub

--
Message posted via http://www.accessmonster.com

Why not just have a table containing the userids of the users who can access
this tab and then simply do not display the tab for users not in the table
(make visible property false)?
You can get the users userid by using the fosUserName function (do a google
search).
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".


"shangman via AccessMonster.com" wrote:

In a form in which i have restricted access to a tab, users need to enter a
password to enter. This works fine (this code and put it into the "onchange"
section of the tab). But what i can't figure out is how to make a password
for this. I am still learning in access and would appreciate any help on how
to do this.
(code example is listed)

Private Sub TabCtl20_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 6 is selected
' show InputBox asking for password
If TabCtl20.Value = 6 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"
TabCtl20.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")
TabCtl20.Pages.Item(0).SetFocus

Exit Sub
End If
End If


End Sub

--
Message posted via http://www.accessmonster.com

.

Would thi smatter if there are multiple tabs on the form? I am currently the
only one who would enter this tab. The other tabs are used by numerous ppl.
The tab i am trying to restrict is for editing only.

Dorian wrote:
Why not just have a table containing the userids of the users who can access
this tab and then simply do not display the tab for users not in the table
(make visible property false)?
You can get the users userid by using the fosUserName function (do a google
search).
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".

In a form in which i have restricted access to a tab, users need to enter a
password to enter. This works fine (this code and put it into the "onchange"
[quoted text clipped - 46 lines]

End Sub

--
Message posted via http://www.accessmonster.com

I figured it out, thx for the help anyways.

Dorian wrote:
Why not just have a table containing the userids of the users who can access
this tab and then simply do not display the tab for users not in the table
(make visible property false)?
You can get the users userid by using the fosUserName function (do a google
search).
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".

In a form in which i have restricted access to a tab, users need to enter a
password to enter. This works fine (this code and put it into the "onchange"
[quoted text clipped - 46 lines]

End Sub

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/200911/1