[Resolvido]Selecionar um valor da caixa de combinação e apagar outro campo.

Eu tenho essas opções da minha caixa de combinação Status, porém quando eu coloco "Concluído" ele abre o Campo pra preencher a data de encerramento

mas quando eu volto e coloco Pendente, preciso que ele apague o que coloquei no campo DataEncerramento.

alguem pode me ajudar ?

Private Sub Status_Change()
If Status.Text = "Concluído" Then
Me.DataEncerramento.Enabled = True
Me.DataRegistro.Enabled = False
Me.Solicitante.Enabled = False
Me.Setor.Enabled = False
Me.TipoOcorrencia.Enabled = False
Me.Descreva.Enabled = False
Me.Prioridade.Enabled = False
Me.Atendimento.Enabled = False
Me.Procedimento.Enabled = False
Me.HoraInicio.Enabled = False
Me.HoraFim.Enabled = False
Else
If Status.Text = "Pendente" Then
Me.DataEncerramento.Enabled = False
Me.DataRegistro.Enabled = False
Me.Solicitante.Enabled = False
Me.Setor.Enabled = False
Me.TipoOcorrencia.Enabled = False
Me.Descreva.Enabled = False
Me.Prioridade.Enabled = False
Me.Atendimento.Enabled = False
Me.Procedimento.Enabled = False
Me.HoraInicio.Enabled = False
Me.HoraFim.Enabled = False
Else
If Status.Text = "Aberto" Then
Me.DataEncerramento.Enabled = False
Me.DataRegistro.Enabled = True
Me.Solicitante.Enabled = True
Me.Setor.Enabled = True
Me.TipoOcorrencia.Enabled = True
Me.Descreva.Enabled = True
Me.Prioridade.Enabled = True
Me.Atendimento.Enabled = True
Me.Procedimento.Enabled = True
Me.HoraInicio.Enabled = True
Me.HoraFim.Enabled = True

End If
End If
End If

isso habilita um campo

Código:

me!UmCampo.Enabled = True

isso desabilita um campo

Código:

me!UmCampo.Enabled = False

isso destrava um camo

Código:

me!UmCampo.Locked = False

isso trava um campo

Código:

me!UmCampo.Locked = True

isso limpa um campo

Código:

me!UmCampo.value = Null

ou

Código:

me!UmCampo.value = ""

Mostrado como funciona, basta escolher o local correto onde inserir o código para limpar

obrigado! realmente funcionou

abraços!

O fórum agradece o retorno. Sucesso.