[Resolvido]Check box para limpar um campo.

Alguém poderia ajudar ?

queria saber se tem alguma maneira simples de limpar um campo ao clikar em um check box,
não consegui achar nada parecido em busca avançada no forum, talvez não tenha pesquisado direito, mas grato se alguém puder ajudar.


Segue a imagem, no caso quando clikar no check box, ele limpar o campo de Id Empresa da lock, e se desmarcar, deixar habilitado novamente.

Boa tarde,

Esse código abaixo não ajuda?

Me.nomedocampoalimpar=""
me.nomedocampoalimpar,enabled= true

Vitor, a dica resolveu?

xxtailssxx escreveu:queria saber se tem alguma maneira simples de limpar um campo ao clikar em um check box,
não consegui achar nada parecido em busca avançada no forum, talvez não tenha pesquisado direito, mas grato se alguém puder ajudar.

Você pode utilizar a dica do Ismael Silva. Lembrando que esteticamente ficaria melhor você limpar também o valor da ComboBox Nome Empresa, quando clicar na Check Box "Todas as Empresas". Uma desvantagem que eu vejo aí nessa foto, é que você fica sem opção de retornar ao ComboBox "Nome Empresa" para selecionar uma empresa individual CASO se arrependa de clicar em "Todas as Empresas". Seria mais interessante você adicionar um campo na ComboBox "Todas as empresas" e o valor dela no ID Empresa seria "", assim o usuário tem a possibilidade de mudar de forma mais eficiente de "Todas as Empresas" para uma empresa específica (válida apenas caso você não precise mais inserir novas empresas).

Outra opção é alterar esse botão de opção para Sim/Não, onde você consegue desmarcar e marcar ela, assim te dá mais flexibilidade e você utiliza a dica do Ismael Silva.

Private Sub CheckBoxSelecionarEmpresa_AfterUpdate()

On Error GoTo erro

If Me.CheckBoxSelecionarEmpresa = True Then

Me.CheckBoxTodasAsEmpresa = False

Me.Periodo01.Enabled = True
Me.Periodo02.Enabled = True
Me.IdDaEmpresa.Enabled = True
Me.TipoDeEvento.Enabled = True
Me.NomeDaEmpresa.Enabled = True

Me.Periodo01 = ""
Me.Periodo02 = ""
Me.IdDaEmpresa = ""
Me.TipoDeEvento = ""
Me.NomeDaEmpresa = ""

Me.Periodo01.SetFocus

End If

erro:

Exit Sub




End Sub

Private Sub CheckBoxTodasAsEmpresa_AfterUpdate()

On Error GoTo erro

If Me.CheckBoxTodasAsEmpresa = True Then

Me.CheckBoxSelecionarEmpresa = False

Me.Periodo01 = ""
Me.Periodo02 = ""
Me.IdDaEmpresa = ""
Me.TipoDeEvento = ""
Me.NomeDaEmpresa = ""

Me.Periodo01.Enabled = False
Me.Periodo02.Enabled = False
Me.IdDaEmpresa.Enabled = False
Me.TipoDeEvento.Enabled = False
Me.NomeDaEmpresa.Enabled = False

End If

erro:

Exit Sub





End Sub

Private Sub Form_Load()

On Error GoTo erro

Me.CheckBoxSelecionarEmpresa = True


If Me.CheckBoxSelecionarEmpresa = True Then

Me.CheckBoxTodasAsEmpresa = False

Me.Periodo01.Enabled = True
Me.Periodo02.Enabled = True
Me.IdDaEmpresa.Enabled = True
Me.TipoDeEvento.Enabled = True
Me.NomeDaEmpresa.Enabled = True

Me.Periodo01 = ""
Me.Periodo02 = ""
Me.IdDaEmpresa = ""
Me.TipoDeEvento = ""
Me.NomeDaEmpresa = ""

Me.Periodo01.SetFocus

End If

erro:

Exit Sub

End Sub

Consegui resolver sim, obrigado !

vou fechar aqui o tópico.