[Resolvido]Dúvidas com código em Combobox

Bom dia amigos, uso o seguinte código no evento Antes de atualizar numa Combobox:

If Me.RG = Null Then
Me.RGResponsável.Enabled = True
Me.ID.Enabled = True
Else
Me.RGResponsável.Enabled = False
Me.ID.Enabled = False
End If
End Sub

Lembrando que os outros dois campos que aparecem no código são Combobox.

Pelo que entendi do código, enquanto a combo RG estiver em branco os outros campos estarão habilitados e ao preencher os mesmos serão desabilitados.
Esperava que ao limpar o combo RG ou fosse para um registro em branco, os outros campos voltassem a ficar habilitados.

Se alguém poder ajudar fico agradecido.

Se é mesmo o que entendi da sua pretensão, basta apagar esse código por completo. Assim todos os campos estarão habilitados, ora em registro atual ou novo registro.

Dilson Marcos, não é isso. São 3 campos que posso usar para identificar um cliente.

Por exemplo, se eu usar o campo RG para localizar um cliente, os demais ficariam desabilitados. Se eu limpasse esse mesmo campo os outros tornariam a ficar habilitados, ora em registro atual ou novo registro, mas está funcionado em partes.
Entende meu problema? Tem como me ajudar com esse código?

Abraços

Ah entendi.

Uma maneira seria usar o evento ao receber foco de um controle CheckBox.

Digamos que temos RG e CPF

A clicar na bolinha do checkBox RG faria:
Me.RG.Enabled = True
Me.CPF = ""
Me.CPF.Enabled = False

A clicar na bolinha do checkBox CPF faria:
Me.CPF.Enabled = True
Me.RG = ""
Me.RG.Enabled = False

É apenas uma idéia para auxiliar o seu poder de criação ok.

Blz cara, mas uso uma combobox. Acha que precisa de algo a mais nesse meu código? Ou mudar o evento?

Achei fosse funcionar.

Com a tua permissão Dilson....

No evento após atualizar da tua combo.

If Me.RG = Null Then
Me.RGResponsável.Enabled = True
Me.ID.Enabled = True
Else
Me.RGResponsável.Enabled = False
Me.ID.Enabled = False
End If

Silvio é o mesmo código, já havia tentado nesse evento, mas ainda não satisfez minha necessidade.
Ao abrir o form e inserir o RG ele funciona direitinho. O que não está funciona é qnd vou para um novo registro ou navego entre eles, pois os demais campos continuam desabilitados. Outra coisa, se eu apagasse o RG os outros campos deveriam ficar habilitados.

Deu pra entender?

Abraço

Bom dia...

Poste parte do teu projeto onde esta dando essa duvida.

Grato.

Tá aí Silvio.

Abraço

Note o código...

Private Sub Form_Current()
Me.IdCliente.Locked = True
Me.Cliente.Locked = True
Me.DataNascimento.Locked = True
DoCmd.GoToControl "RG"
Me.ID.Enabled = True
Me.RGResponsável.Enabled = True


End Sub

Quase isso Silvio, o problema é que se eu navegar entre os registro o evento No atual vai habilitá-los. Queria que se o campo RG estivesse preenchido ele desabilitasse os demais e ao apagar, tornasse a habilitá-los. Deveria obedecer esse critério de nulo ou não nulo.

Com licença dos demais:

Observe que o código que usa para bloquear ou não os controles
está no evento "Antes de atualizar". Isso significa que independente
de haver ou não alteração, ele irá ser executado...

O ideal é por no evento "após atualizar". E para obter o resultado pretendido,
basta chamar o evento "após atualizar" no evento "no atual".

Outra coisa é que sua validação estava assim:
If Me.RG = Null then ...

O correto é:

If IsNull(Me.RG) then ...

Veja as alterações no anexo e nos informe se atende.

Marcelo David, é desse jeito, mas não sei se notou, tem um probleminha: não está gerando um novo registro, se tentar avançar para um novo vai ver que está gerando uma nova OS sem que seja inserido um dado sequer.
Tem como corrigir esse problema?

Grato

Mas isso é o esperado...
Se eu clico em novo registro, ele tem que ser gerado...
Ou não é isso que pretende?

Desculpe, havia entendido errado, veja agora se atende:

Marcelo, perfeito cara, era desse jeito. Teria como me explicar a lógica dessa última alteração?

Queria aproveitar a oportunidade para te perguntar outra coisa: não sei se notou, mas tenho 3 campos que posso usar para localizar um cliente. Então, teria como aplicar esses mesmos códigos nos outros campos assim como foi feito com RG, de forma que eu só possa usar um deles por vez.
Ex.: se eu usar ID os outros estariam desabilitados, ao apagar tornaria a habilitá-los.

Meu muito obrigado a Marcelo e aos demais, me ajudaram muito.

If Me.NewRecord = False Then               'Apenas atribuo os valores para IdCliente, Cliente e DataNascimento caso não seja um novo registro (evita estar criando aqueles registros sem você digitar, pois o código é que fazia isso)                        
       Me![IdCliente] = Me!RG.Column(0)
       Me![Cliente] = Me!RG.Column(1)
       Me![DataNascimento] = Me!RG.Column(2)
End If


O restante foi o que você já fez, só que aterei para o evento mais apropriado (Após atualizar) e fiz uma pequena alteração no seu If


If IsNull(Me.RG) Then                             'Apenas corrigi de Me.RG = Null para IsNull(Me.RG), que obtem se de fato está nulo
       Me.RGResponsável.Enabled = True
       Me.ID.Enabled = True
Else
       Me.RGResponsável.Enabled = False
       Me.ID.Enabled = False
End If


Grato pelo retorno, o fórum agradece!

Sobre a outra dúvida Marcelo, é possível?

Grato