[Resolvido]Comparar valores de dois campos (Habilitar - Desabilitar)

Pessoal eu gostaria de efetuar uma conparação entre dois campos para habilitar e desabilitar controles utilizai o código:

Código:

Private Sub Lista_AfterUpdate()
If Me.TxtId_Usuario = Me.TxtUsuarioAt Then
    Me.tx1.Enabled = True
    Me.tx2.Enabled = True
    Me.btgravar.Enabled = True
    Me.btexcluir.Enabled = True
    Me.Comando35.Enabled = True
ElseIf Me.TxtId_Usuario <> Me.TxtUsuarioAt Then
    Me.tx1.Enabled = False
    Me.tx2.Enabled = False
    Me.btgravar.Enabled = False
    Me.btexcluir.Enabled = False
    Me.Comando35.Enabled = False
End If
End Sub

Ou seja, se o campo TxtId_Usuario for igual ao campo TxtUsuarioAt ele habilita os controles, mas se for diferente ele bloqueia. Não está funcionando, a sintaxe está correta?

Pbrigada.

Julia!

Parece que sim.
Faz um teste incluindo as linhas abaixo antes do If:

MsgBox Me.TxtId_Usuario
MsgBox Me.TxtUsuarioAt
MsgBox Me.TxtId_Usuario = Me.TxtUsuarioAt

O que aparece nas caixas de mensagem?

Primeiro ocorre o erro:

Erro em tempo de execução: '94':
Uso de 'Null' inválido.

Depois quando eu clico na lista para atualizar aparece as 3 caixas de mensagens, nessa sequencia:

1 - Nº do ID (que foi clicado)
2 - Em branco (sem nada escrito)
3 - Falso.

Outra obervação, que ao ocorrer o erro, os campos TxtUsuarioAt não carregou o usuário atual, nem o campo TxtId_Usuario carregou o o ID do usuário.

Anexo o print:

Então o problema não está no código para habilitar/desabilitar.

Você precisa fazer com que os campos TxtUsuarioAt e TxtId_Usuario recebam os valores corretos.

Se quiser enviar o banco de dados, facilita com a solução.

Mas a mensagem de erro só ocorreu quando eu coloquei as mensagens que você pediu (Erro em tempo de execução).

Pode reparar no print abaixo que consigo capturar ambos os ID's perfeitamente.

Está capturando os ID´s em que evento? Ao abrir o form?

Substituindo:

MsgBox Me.TxtId_Usuario
MsgBox Me.TxtUsuarioAt
MsgBox Me.TxtId_Usuario = Me.TxtUsuarioAt

por:

debug.print Me.TxtId_Usuario
debug.print Me.TxtUsuarioAt
debug.print Me.TxtId_Usuario = Me.TxtUsuarioAt

continua o erro em tempo de execução?

Lista é a caixa de listagem no form da imagem na sua mensagem anterior?

Se puder enviar o bd, vai bem mais rápido...

Obrigada pela ajuda.

Segue:

De nada.

Tente assim:

Código:

Private Sub Lista_AfterUpdate()

Me!txtIdUsuario = getIDUsuarioAtual()
Me.TxtId_Usuario = Me.Lista.Column(0)

If Me.TxtId_Usuario = Me.txtIdUsuario Then
    Me.tx1.Enabled = True
    Me.tx2.Enabled = True
    Me.btgravar.Enabled = True
    Me.btexcluir.Enabled = True
    Me.Comando35.Enabled = True
Else
    Me.tx1.Enabled = False
    Me.tx2.Enabled = False
    Me.btgravar.Enabled = False
    Me.btexcluir.Enabled = False
    Me.Comando35.Enabled = False
End If

End Sub

Maravilha Cláudio!!!

Era isso mesmo.

Resolvido!

Bjos!

Julia

Legal Júlia, valeu!
Bjs