Aplicar um função na opção Click

Oi pessoal, estou precisando que um campo ao ser clicado, que ele possa bloquear 2 campos e liberar outros 2.

Po Exemplo;
Ao clicar no campo Empresa, o CPF e RG são desabilitados e ocultados.
Sendo assim os Campos CNPJ e Inscrição estadual são apresentados.
Mas se O campo empresa é desmarcado, ocorre o contrario desta função.
Eu fiz assim:


Option Compare Database

Private Sub Empresa_AfterUpdate()
If Me.Empresa = "1" Then
Me.CPF.Enabled = True
Me.CPF.Locked = False
Me.CPF.Visible = False
Me.RG.Enabled = True
Me.RG.Locked = False
Me.RG.Visible = False
Me.CNPJ.Enabled = False
Me.CNPJ.Locked = True
Me.CNPJ.Visible = True
End If
If Me.Empresa = "0" Then
Me.CPF.Enabled = False
Me.CPF.Locked = True
Me.CPF.Visible = True
Me.RG.Enabled = False
Me.RG.Locked = True
Me.RG.Visible = True
Me.CNPJ.Enabled = True
Me.CNPJ.Locked = False
Me.CNPJ.Visible = False
End If
End Sub

Onde está o pb??
Desde já agradeço!!!

Ola amigo, esse campo empresa é caixa de texto ou botão de opção?

Teste dessa forma:

Código:

If Me.Empresa = -1 Then
Me.CPF.Visible = False
Me.RG.Visible = False
Me.CNPJ.Visible = True
Else
Me.CPF.Visible = True
Me.RG.Visible = True
Me.CNPJ.Visible = False
End If
End Sub

Olá, só uma observação, se vc vai ocultar os controles não precisa desabilitá-lo, pois ao ocultá-los, eles já ficam sem acesso
Private Sub Empresa_Click()
Me.CPF.Visible = False
Me.RG.Visible = False
MeCNPJ.Visible = True
Me. Inscrição.Visible = True
End Sub

Opa Fernando não vi que já tinhas respondido.

Sem problemas Beto, alias você fez uma ótima observação que também não me dei

conta, não visualizei o comando do colega apenas coloquei -1 e else. E também esta no evento Apos

Atualizar, o correto seria ao clicar.

Vamos aguardar

Comando corrigido na mensagem nº3

Opa eu fiz o procedimento mas não aconteceu como o esperado.

O Arquivo segue para analize. Office 2010

Option Compare Database

Private Sub Empresa_Click()
If Me.Empresa = 1 Then
Me.CPF.Visible = False
Me.RG.Visible = False
Me.CNPJ.Visible = True
Else
Me.CPF.Visible = True
Me.RG.Visible = True
Me.CNPJ.Visible = False
End If
End Sub

Ve se ta certo..

Private Sub Empresa_Click()
If Me.Empresa = -1 Then
Me.CPF.Visible = False
Me.RG.Visible = False
Me.CNPJ.Visible = True
Else
Me.CPF.Visible = True
Me.RG.Visible = True
Me.CNPJ.Visible = False
End If
End Sub

Entendi, no modo folha de dados não funciona, somente como modo formulário!!!
Obrigado mesmo!

De nada colega, se não houver mais duvidas clique no botão resolvido para

fecharmos o topico ok.

É possivel sim ocultar e exibir as colunas em modo datasheet (folha de dados). Basta trocar o "visible" de cada campo por "ColumnHidden", False para ocultar e True para torná-lo visível.