Control de eventos en SStab

[alejocr]

Compañer@s,,

Tengo una consulta. Como controlo los eventos en un SStab. Por Ejemplo, tengo la informacion de un usuario de mi sistema, la informacion esta dividida en varias Tabs, (Personal, Comercial, Notas, etc). Si modifico la informacion en un tab, como hago para que esa informacion se actualize en la base de datos al cambiar de Tab. El sistema manda a ejecutar un procedimiento almacenado en SQL cada vez que cambio de Tab. Pero no encuentro el evento o la propiedad que me permita hacerlo.

Ademas,, Como hago para que cuando el form se cargue muestre un tab especifico??

Saludos y Gracias

Alejandro

[alejocr]

Compañer@s,,
Creo que ya lo solucione, peo me gustaria saber si hay una manera mas efectiva. Aqui va lo que probe..

Private Sub SSTab2_Click(PreviousTab As Integer)
If SSTab2.Tab = 1 Then
MsgBox "Sobre Tab 1", vbOKOnly
End If
If SSTab2.Tab = 2 Then
MsgBox "Sobre Tab 2", vbOKOnly
End If
If SSTab2.Tab = 3 Then
MsgBox "Sobre Tab 3", vbOKOnly
End If
If SSTab2.Tab = 4 Then
MsgBox "Sobre Tab 4", vbOKOnly
End If
If SSTab2.Tab = 5 Then
MsgBox "Sobre Tab 5", vbOKOnly
End If
If SSTab2.Tab = 6 Then
MsgBox "Sobre Tab 6", vbOKOnly
End If
End Sub

** Existira otra manera de hacer esto de forma mas seguro??

saludos

Gracias

[antonio2005pe]

Iniciado por alejocr

Compañer@s,,

Tengo una consulta. Como controlo los eventos en un SStab. Por Ejemplo, tengo la informacion de un usuario de mi sistema, la informacion esta dividida en varias Tabs, (Personal, Comercial, Notas, etc). Si modifico la informacion en un tab, como hago para que esa informacion se actualize en la base de datos al cambiar de Tab. El sistema manda a ejecutar un procedimiento almacenado en SQL cada vez que cambio de Tab. Pero no encuentro el evento o la propiedad que me permita hacerlo.

Ademas,, Como hago para que cuando el form se cargue muestre un tab especifico??

Saludos y Gracias

Alejandro

Código:

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case Index
Case 0
    MsgBox SSTab1.Tab
Case 1
    MsgBox SSTab1.Tab
Case 2
    MsgBox SSTab1.Tab
End Select
End Sub