Arkadaşlar Merhaba,
Bir çözüm önerisi de ben sunmak istiyorum. Formunuzun Current Olayına aşağıdaki kodu yerleştiriniz. Formda gezinti yaptığınızda boş alanlar gizlenecek, dolu alanlar gösterilecektir. Yeni kayda geçildiğinde tüm alanlar gösterilecektir. Ayrıca textbox'ların Exit olayına da kod eklememiz gerekmektedir. Aşağıdaki gibi.

Private Sub Form_Current()

Dim ctl As Control

If Me.Form.NewRecord Then

For Each ctl In Me

ctl.Visible = True

Next

End If

If Not Me.Form.NewRecord Then

For Each ctl In Me

    If TypeOf ctl Is TextBox Then

        If ctl = "" Or IsNull(ctl) Then

            ctl.Visible = False

            Else

            ctl.Visible = True

        End If

    End If

Next

End If

End Sub

Private Sub ad_Exit(Cancel As Integer)

If IsNull(Me.ad) Then

Me.soyad.SetFocus

Me.ad.Visible = False

Else

Me.soyad.SetFocus

Me.ad.Visible = True

End If

End Sub