[Resolvido]Exibir e Ocultar

Boa tarde a todos,
Estou com um form continuo e com alguns campos como NCarga; NCarga2; NCarga3 e NCarga4, alem de outros. preciso que a medida que eu digite em cada campo o outro seja exibido e as demais colunas sejam realinhadas.

Código:

Private Sub NCarga_AfterUpdate()
If IsNull(Me!NCarga) Then
Me.NCarga2.Visible = False
Me.R_Carga2.Visible = False

Else
Me.NCarga2.Visible = True
Me.R_Carga2.Visible = True
End If
End Sub

Private Sub NCarga2_AfterUpdate()
If IsNull(Me!NCarga2) Then
Me.NCarga3.Visible = False
Me.R_Carga3.Visible = False

Else
Me.NCarga3.Visible = True
Me.R_Carga3.Visible = True
End If
End Sub

Private Sub NCarga3_AfterUpdate()
If IsNull(Me!NCarga3) Then
Me.NCarga4.Visible = False
Me.R_Carga4.Visible = False

Else
Me.NCarga4.Visible = True
Me.R_Carga4.Visible = True

End If
End Sub

Grato.

Boa noite Ricardo. Ao abri o formulário coloque essas NCargas invisíveis, ao digitar os campos ela exibi.

Código:

Private Sub NCarga_AfterUpdate()
If Not IsNull(Me.NCarga) Then
       Me.NCarga1.Visible = True
End If
End Sub


e assim em seguida com outros

Boa noite Crysostomo, funcionou porém quando eu fecho o form. as colunas mesmo com dados ficam ocultas, como posso resolver essa questão?

Grato meu caro.

Vlw pelo retorno

Private Sub NCarga_AfterUpdate()
If Not IsNull(Me.NCarga) Then
      Me.NCarga1.Visible = True
else
       Me.NCarga1.Visible = False
End If
End Sub