I want to limit form data based on a combo box value. For that end I wrote this code:
Private Sub Form_Load()
If Me.TipoPessoa = "PessoaFísica" Then
Me.IDCliente.Visible = True
Me.ClienteDesde.Visible = True
Me.Ativo.Visible = True
Me.TipoPessoa.Visible = True
Me.Nome.Visible = True
Me.DataNascimento.Visible = True
Me.EstadoCivil.Visible = True
Me.DocumentoID.Visible = True
Me.NúmeroDocumentoID.Visible = True
Me.NIF.Visible = True
Me.NISS.Visible = True
Me.NúmeroUtente.Visible = True
Me.Morada1.Visible = True
Me.CódigoPostal1.Visible = True
Me.Localidade1.Visible = True
Me.Morada2.Visible = True
Me.CódigoPostal2.Visible = True
Me.Localidade2.Visible = True
Me.Telefone1.Visible = True
Me.Telefone2.Visible = True
Me.Email1.Visible = True
Me.Email2.Visible = True
Me.IBAN.Visible = True
Me.Website.Visible = True
Me.Notas.Visible = True
Me.DiretórioPasta.Visible = True
Me.Nome.Visible = False
Me.DataNascimento.Visible = False
Me.EstadoCivil.Visible = False
Me.DocumentoID.Visible = False
Me.NúmeroDocumentoID.Visible = False
Me.NIF.Visible = False
Me.NISS.Visible = False
Me.NúmeroUtente.Visible = False
Me.Morada1.Visible = False
Me.CódigoPostal1.Visible = False
Me.Localidade1.Visible = False
Me.Morada2.Visible = False
Me.CódigoPostal2.Visible = False
Me.Localidade2.Visible = False
Else
Me.IDCliente.Visible = True
Me.ClienteDesde.Visible = True
Me.Ativo.Visible = True
Me.TipoPessoa.Visible = True
Me.Firma.Visible = True
Me.DataConstituição.Visible = True
Me.NIPC.Visible = True
Me.Sede1.Visible = True
Me.CódigoPostalSede1.Visible = True
Me.LocalidadeSede1.Visible = True
Me.Sede2.Visible = True
Me.CódigoPostalSede2 = True
Me.LocalidadeSede2 = True
Me.Telefone1.Visible = True
Me.Telefone2.Visible = True
Me.Email1.Visible = True
Me.Email2.Visible = True
Me.IBAN.Visible = True
Me.Website.Visible = True
Me.Notas.Visible = True
Me.DiretórioPasta.Visible = True
Me.Nome.Visible = False
Me.DataNascimento.Visible = False
Me.EstadoCivil.Visible = False
Me.DocumentoID.Visible = False
Me.NúmeroDocumentoID.Visible = False
Me.NIF.Visible = False
Me.NISS.Visible = False
Me.NúmeroUtente.Visible = False
Me.Morada1.Visible = False
Me.CódigoPostal1.Visible = False
Me.Localidade1.Visible = False
Me.Morada2.Visible = False
Me.CódigoPostal2.Visible = False
Me.Localidade2.Visible = False
End If
End Sub
Private Sub TipoPessoa_Change()
If Me.TipoPessoa = "PessoaFísica" Then
Me.IDCliente.Visible = True
Me.ClienteDesde.Visible = True
Me.Ativo.Visible = True
Me.TipoPessoa.Visible = True
Me.Nome.Visible = True
Me.DataNascimento.Visible = True
Me.EstadoCivil.Visible = True
Me.DocumentoID.Visible = True
Me.NúmeroDocumentoID.Visible = True
Me.NIF.Visible = True
Me.NISS.Visible = True
Me.NúmeroUtente.Visible = True
Me.Morada1.Visible = True
Me.CódigoPostal1.Visible = True
Me.Localidade1.Visible = True
Me.Morada2.Visible = True
Me.CódigoPostal2.Visible = True
Me.Localidade2.Visible = True
Me.Telefone1.Visible = True
Me.Telefone2.Visible = True
Me.Email1.Visible = True
Me.Email2.Visible = True
Me.IBAN.Visible = True
Me.Website.Visible = True
Me.Notas.Visible = True
Me.DiretórioPasta.Visible = True
Me.Nome.Visible = False
Me.DataNascimento.Visible = False
Me.EstadoCivil.Visible = False
Me.DocumentoID.Visible = False
Me.NúmeroDocumentoID.Visible = False
Me.NIF.Visible = False
Me.NISS.Visible = False
Me.NúmeroUtente.Visible = False
Me.Morada1.Visible = False
Me.CódigoPostal1.Visible = False
Me.Localidade1.Visible = False
Me.Morada2.Visible = False
Me.CódigoPostal2.Visible = False
Me.Localidade2.Visible = False
Else
Me.IDCliente.Visible = True
Me.ClienteDesde.Visible = True
Me.Ativo.Visible = True
Me.TipoPessoa.Visible = True
Me.Firma.Visible = True
Me.DataConstituição.Visible = True
Me.NIPC.Visible = True
Me.Sede1.Visible = True
Me.CódigoPostalSede1.Visible = True
Me.LocalidadeSede1.Visible = True
Me.Sede2.Visible = True
Me.CódigoPostalSede2 = True
Me.LocalidadeSede2 = True
Me.Telefone1.Visible = True
Me.Telefone2.Visible = True
Me.Email1.Visible = True
Me.Email2.Visible = True
Me.IBAN.Visible = True
Me.Website.Visible = True
Me.Notas.Visible = True
Me.DiretórioPasta.Visible = True
Me.Nome.Visible = False
Me.DataNascimento.Visible = False
Me.EstadoCivil.Visible = False
Me.DocumentoID.Visible = False
Me.NúmeroDocumentoID.Visible = False
Me.NIF.Visible = False
Me.NISS.Visible = False
Me.NúmeroUtente.Visible = False
Me.Morada1.Visible = False
Me.CódigoPostal1.Visible = False
Me.Localidade1.Visible = False
Me.Morada2.Visible = False
Me.CódigoPostal2.Visible = False
Me.Localidade2.Visible = False
End If
End Sub
This is the result on any value of the combo box:
Can anyone help me solve this riddle.