How can i control TabCtl by making it visible or invisible as per the user data

[freemail]

Hello all




This is the first time for me in this Forum, I need some help to control the TabCtl
I need to make some tabs to be visible, invisible, enabled or disabled. All this actions but as per the data in the table "permission"
I mean that when the user open the form he can see only the tabs that allowed for him to only see it or to see and write the data


I attached the db to be clear


Thanks for all

[June7]

Example code from my db:

Private Sub Form_Open(Cancel As Integer)
With Me
.tbxSet = TestSet(.tbxLABNUM, "Soils & Aggregate")
.pge1.Visible = True
.pge2.Visible = True
.pge3.Visible = True
.pge4.Visible = True
.pge5.Visible = True
.pge6.Visible = True
.tbxLABNUM.SetFocus
'use Val to capture characters preceeding :### which will be present if gradation test selected
If Not Val(.tbxSet) Like "*1*" Then
    .pge1.Visible = False
    '.ctr1.SourceObject = ""
End If
If Not Val(.tbxSet) Like "*2*" Then
    .pge2.Visible = False
    '.ctr2.SourceObject = ""
End If
If Not Val(.tbxSet) Like "*3*" And Not Val(.tbxSet) Like "*E*" Then
    .pge3.Visible = False
    '.ctr3.SourceObject = ""
End If
If Not .tbxSet Like "*P*" Then
    .pge4.Visible = False
    '.ctrProctor.SourceObject = ""
End If
If Not .tbxSet Like "*V*" Then
    .pge5.Visible = False
    '.ctrVibratory.SourceObject = ""
Else
    .pge2.Visible = False
End If
If Not .tbxSet Like "*H*" Then
    .pge6.Visible = False
End If
If .pge6.Visible Then
    .pge6.SetFocus
ElseIf .pge1.Visible Then
    .pge1.SetFocus
ElseIf .pge2.Visible Then
    .pge2.SetFocus
ElseIf .pge3.Visible Then
    .pge3.SetFocus
ElseIf .pge4.Visible Then
    .pge4.SetFocus
ElseIf .pge5.Visible Then
    .pge5.SetFocus
End If
End With
End Sub

[freemail]

Thanks June7 for your help

I don't Know how to apply this code on my db, Please can you apply this on my db, but as per the permissions for each user.

[June7]

You need to somehow identify who the user is then what their permissions are. Do you have a table of users with username and permission level?

strPermission = Nz(DLookup("Permission", "Users", "Username='" & Environ("USERNAME")),"")
If strPermission <> "" Then
'code to set tab pages, I don't know your db so can't be more specific
End If

[freemail]

I attached my db with my first post, please check it and you will know what i need

[June7]

I don't want to build this for you. Adapt the examples to your situation and post attempted code for analysis if you encounter specific issue.

[freemail]

OK thanks for your help, I will try to do it.