Problem in Tab Control

[Joao]

I insert 5 pages in a Tab Control object. I want an event action when the
mouse clicks on a specific tab. Here's the code...it doesn't produce
anything...

-----------------------------------------------------------------------------------------
Private Sub TabAdministration_Click() 'Tab Page
If fp.lblUtilID.caption <> "Admin" Then MsgBox "No privileges!",
vbExclamation, "Atention!"
TabEmployee.SetFocus 'Another Tab Page.
Else
End If
End Sub

 

[Paolo]

Hi Joao,
on the change event of the tab control you can add a select case
onTheNameYourOfTabControl.Value so you can know which tab has been clicked
and add whatever code you want. (The value are the page index of the tab)

HTH Paolo

 

[Joao]

LOL what a dumb I am... the easiest thing...

Private Sub TabPrincipal_Change()
MsgBox (TabPrincipal.Value)
........
End Sub

Thank you Paolo