[Resolvido]campos visíveis e ocultos

Boa noite pessoal tenho um campo em um formulário que quando selecionado não ele oculte alguns campos e quando a condição tiver
sim ele apareça até ai tudo bem consegui colocar as formulas mais não o que eu to fazendo de errado por que ao sair do formulário
ele aparece os campos novamente, gostaria que ao cadastra sempre que eu abrisse ele ficasse oculto como pedi ou visível como pedi no campo.

Private Sub Alvara_individual_AfterUpdate()
If Me.Alvara_individual.Value = "NÃO" Then
Me.Razao1.Visible = False
Me.Razao2.Visible = False
Me.Razao3.Visible = False
Me.Razao4.Visible = False
Me.Fantasia1.Visible = False
Me.Fantasia2.Visible = False
Me.Fantasia3.Visible = False
Me.Fantasia4.Visible = False
Me.CpfCnpj1.Visible = False
Me.CpfCnpj2.Visible = False
Me.CpfCnpj3.Visible = False
Me.CpfCnpj4.Visible = False
Me.Ocupacao1.Visible = False
Me.Ocupacao2.Visible = False
Me.Ocupacao3.Visible = False
Me.Ocupacao4.Visible = False
Me.Area1.Visible = False
Me.Area2.Visible = False
Me.Area3.Visible = False
Me.Area4.Visible = False
Me.RtCadastro.Visible = False

Else
Me.Razao1.Visible = True
Me.Razao2.Visible = True
Me.Razao3.Visible = True
Me.Razao4.Visible = True
Me.Fantasia1.Visible = True
Me.Fantasia2.Visible = True
Me.Fantasia3.Visible = True
Me.Fantasia4.Visible = True
Me.CpfCnpj1.Visible = True
Me.CpfCnpj2.Visible = True
Me.CpfCnpj3.Visible = True
Me.CpfCnpj4.Visible = True
Me.Ocupacao1.Visible = True
Me.Ocupacao2.Visible = True
Me.Ocupacao3.Visible = True
Me.Ocupacao4.Visible = True
Me.Area1.Visible = True
Me.Area2.Visible = True
Me.Area3.Visible = True
Me.Area4.Visible = True
Me.RtCadastro.Visible = False
End If
End Sub

Bom dia,

Então no evento Ao Abrir do formulário, atribua um valor ao campo (sim ou não, você escolhe) e logo abaixo, chame o after_update do campo:

Código:

Alvara_individual = "NÃO"
Call Alvara_individual_AfterUpdate

Abraço.

obrigado

Se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer