[Resolvido]Executar comando ao mudar de registro.

Pessoal bom dia


Eu coloquei o seguinte código em um formulário:

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = False Then
If Me.TXTCONFGRUPO = "C" = False Then

Me.cmdEditar.enabled = False

Else

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = True Then
If Me.TXTCONFGRUPO = "GERAL" = True Then


Me.cmdEditar.enabled = True

EU tenho usuários cadastrados com três tipos de grupo A; B ; C, onde coloquei o campo verificador, pessoal do Grupo A pode ver mas não quero que possa editar os registros feitos pelo pessoal do grupo B vice e versa, alem disso tem o grupo C que pode ver e alterar os registros feitos pelos dois Grupo.
Por isso coloquei esse código que até certo ponte ele da Certo , eu entro com usuário do grupo A ai o botão editar para mim aparece habilitado e ai avanço para os registros feitos pelo grupo B e os do grupo B aparece como não habilitado, mas ai se eu avanço ou volto para registro do grupo A em vez de habilitar outra vez ele continua inativo.

Já testei colocar no evento atual, ao carregar, ao alterar seleção , ao atualizar , após atualizar mas não da certo.

O que pode ser feito?


testei também só assim:

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = False Then
If Me.TXTCONFGRUPO = "C" = False Then

Me.cmdEditar.enabled = False

Else



Me.cmdEditar.enabled = True

Teste no avento antes de atualizar:

Código:

If Me.TXTCONFGRUPO = "A" or Me.TXTCONFGRUPO = "B" then
Me.cmdEditar.enabled = False
Else
Me.cmdEditar.enabled = true
End if

eu tenho um campo onde defino se o registro pertence ao Grupo A; B e C; e  na tabela de Usuário tambá estou determinando a qual grupo pertence, ai quando logo com determinado usuário ele informa o nome do usuário e qual grupo pertence, ai a partir disso quero que ele faça esse filtro para permitir que usuário grupo a só possa editar registros do Grupo A e por ai , até então como falei ao carregar o formulário e mudar avançar ou voltar  uma fez ele executa essa função perfeitamente mas se eu avanço ou volto outra vez ele não executa novamente a função.

Oi obrigado pela ajuda , também tentei assim e não deu certo então resolvi fazer diferente ,

coloquei a função no evento ao clicar do botão editar



If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = False Then
If Me.TXTCONFGRUPO = "GERAL" = False Then
MsgBox "Você não fazer alterações para esse tipo de registro.." , _
vbInformation
DoCmd.CancelEvent
Me.cmdLocalizar.SetFocus
Me.cmdEditar.enabled = False


Else

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = True Then
If Me.TXTCONFGRUPO = "GERAL" = True Then


Me.cmdEditar.enabled = True

ai funcionou pelo menos por enquanto.

O evento correto para isso e NO ATUAL do formulari, assim o codigo e executado toda vez que muda de registro no formulario.

eu testei no atual mas tava dando o mesmo problema

bom eu deixei esse código no ao clicar do botão editar

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = False Then
If Me.TXTCONFGRUPO = "GERAL" = False Then
MsgBox "Você não fazer alterações para esse tipo de registro.." , _
vbInformation
DoCmd.CancelEvent
Me.cmdLocalizar.SetFocus
Me.cmdEditar.enabled = False


Else

If Me.TXTCONFGRUPO = Me.TXTTIPOCONTRATO = True Then
If Me.TXTCONFGRUPO = "GERAL" = True Then


Me.cmdEditar.enabled = True

só mesmo com o cancelevent ele ainda abre o campo pra edição como evitar?

Ponha
Exit Sub

CaioSouza , FabioPaes muito obrigado, agora deu certo, eu sou muito inexperiente com vba .
Afinal desde o começo acho que era isso que faltava o exit sub, pois agora funcionou perfeito no atual do formulario

Obrigado pela ajuda

Opa, o fórum agradece.

Só não esqueça de deixar o tópico como Resolvido!

Obrigado