[Resolvido]Bloquear o acesso a guia

Pessoal, com a ajuda do usuário ahteixeira, implementei um código para esconder botões quando o usuário mudar de guias(exitem duas). O qual funcionou corretamente.
Agora, estou tentando fazer com que só seja permitido mudar a guia, desde que a guia atual tenha sido salva ou cancelada, pois ambas desativam as caixas de texto.
Tentei o código a seguir, porém, apesar de mostrar a caixa de mensagem, ele abre a guia outra guia. Como fazer para que não permita o acesso a ela?


Private Sub CtlGuia0_Change()
'ahteixeira 2015 - MaximoAccess
If Me.Nome.Enabled = True Then
MsgBox "Salve ou cancele as alterações no registro de " & Me!Nome & ", primeiro.", vbExclamation, "Aviso"
Exit Sub
End If
On Error Resume Next
Dim booSeparador As Boolean
If CtlGuia0 < 1 Then
booSeparador = True
Else
booSeparador = False
End If
btn_Alterar.Visible = booSeparador
btn_Cancelar.Visible = booSeparador
btn_Salvar.Visible = booSeparador
btn_Novo.Visible = booSeparador
btn_Excluir.Visible = booSeparador
End Sub

Boa tarde,

Tente:

Private Sub CtlGuia0_Change()
'ahteixeira 2015 - MaximoAccess
If Me.Nome.Enabled = True Then
MsgBox "Salve ou cancele as alterações no registro de " & Me!Nome & ", primeiro.", vbExclamation, "Aviso"
Me.Nome.SetFocus
Exit Sub
End If

Abraço.

CassioFabre, eu até já havia feito isso, mas não gostei do resultado. Por isso, resolvi postar, já aqui o pessoal conhece a fundo e sempre consegue resolver da forma mais apropriada. Minha intenção era a guia 1 abrir como se o foco ficasse nela e não em um campo específico.
Obrigado.

Boa tarde,

Então, basta mover o foco para a guia que voce quer:

Código:

Me.NomeDaSuaGuia.SetFocus

Abraço.

Fiz da maneira como segue, mas embora a foco permaneça na guiaDadosPessoais, a mensagem aparece DUAS vezes!!!!

Private Sub CtlGuia0_Change()
'ahteixeira 2015 - MaximoAccess
If Me.Nome.Enabled = True Then
guiaDadosPessoais.SetFocus
MsgBox "Salve ou cancele as alterações no registro de " & Me!Nome & ", primeiro.", vbExclamation, "Aviso"
End If
Dim booSeparador As Boolean
If CtlGuia0 < 1 Then
booSeparador = True
Else
booSeparador = False
End If
btn_Alterar.Enabled = booSeparador
btn_Cancelar.Enabled = booSeparador
btn_Salvar.Enabled = booSeparador
btn_Novo.Enabled = booSeparador
btn_Excluir.Enabled = booSeparador
End Sub