[Resolvido]Guias - Controle nos Botões de Comando

Prezados,

Novamente trago uma questão que não soube solucionar.
Tenho algumas guias no meu formulário.
Quando clico em determinada guia, necessito bloquear/desativar um botão.
Utilizei essas rotinas abaixo, mas as mesmas não desativaram os botões.
Os mesmos permanecem sempre operantes. Onde errei ?

Private Sub ctlGuia1_Click()
   Me.btnAdicFoto.Enabled = True
   Me.btnExclFoto.Enabled = True
   
End Sub

Private Sub ctlGuia2_Click()
   Me.btnAdicFoto.Enabled = False
   Me.btnExclFoto.Enabled = False
   
End Sub

Alguém poderia me auxiliar ?

Agradeço.
Domingos

Não teria como postar o bd ou parte dele para melhor entendimento?

Boa noite,
Utilize o acontecimento AposActualizar do controlo separador

Prezado Alexandre Neves,

Nas propriedades do Controle Guia só vejo:

* Ao Clicar
* Ao Clicar Duas Vezes
* Ao apertar mouse
* Ao liberar mouse
* Ao mover mouse

Após Atualizar não existe (não visualizo) essa propriedade.

Abraço

Prezado Formiga10X,

O BD está em fase inicial e porisso está fracionado.

Mas não tem muito mistério na ação que eu necessito.
Ao clicar na guia-controle 2, ou seja, receber o foco, determinados botões de comando
devem ficar inabilitados ou bloqueados.

Como vc pode ver na mensagem inicial, ao clicar na guia 1, utilizei o "enabled"
para ativar os botões e ao clicar na guia 2 os mesmos deveriam ficar desabilitados.

No entanto não ocorre isso e os mesmos continuam operantes.

Abraço

Prezado Alexandre Neves,

Segue imagem das propriedades que visualizo.

Grato

Bom dia,
Nas propriedades do controlo e não da página. Clique mais para fora só um bocadinho até seleccionar o controlo separador

Bom dia Alexandre Neves,
Desculpe todo meu incômodo mas continuo não visualizando o
ítem Após Atualizar.
Conforme vc solicitou para clicar um bocadinho mais para fora, encontrei isso do anexo.

Abraço.

Veja

Valeu Alexandre Neves.
A falha foi minha, pois estava focado em achar o ítem "Após Atualizar" e acabei me
passando pois o ítem existente é "Ao Alterar".

A imagem é a mesma que eu havia anteriormente lhe enviado.

Fico agradecido pela sua atenção em me mostrar os caminhos.

Abraço.

Realmente, tinha-lhe passado o acontecimento errado, mas estava próximo. Foi de memória...

Prezado Alexandre Neves,

Estou retornando ao assunto "Controle-Guia" pois apesar de todos os seus ensinamentos,
não consegui o meu objetivo, ou seja:

Ao clicar na guia Arquiteto, os dois botões acima das guias tem que ficar visiveis.
Ao clicar na guia Cliente, os dois botões acima das guias tem que ficar invisíveis.

Estou enviando em anexo, um modelo.

Solicito, se possível, um auxílio seu ou de outro interessado em resolver esse problema.

Desde já fico agradecido.

Coloque

Private Sub CtlGuiaDados_Change()
Select Case CtlGuiaDados
Case 0
Me.btnComFoto.Visible = True
Me.btnSemFoto.Visible = True
Case 1
Me.btnComFoto.Visible = False
Me.btnSemFoto.Visible = False
End Select
End Sub

Por se tratar do mesmo assunto, deveria dar continuidade ao tema anterior. Fundi-lhe os temas

Tai o exemplo modificado

Caso queira colocar mais abas mude o if para Select Case, como o exemplo do Alexandre

Alexandre - Clique aqui:

Noob

Desculpem-me pelo deslize.

Realmente o assunto era o mesmo mas operacionalmente não sabia
como fundir os assuntos, visto que o primeiro já estava resolvido.

Novamente agradeço pela atenção de todos.

Abraço.