Arkadaşlar sorunu çözdüm;
form current a aşağıdaki kod yazılıyor;

Private Sub Form_Current()

    If Me.Tür = "Gelir" Then

        [Hareketler_Alt_frm]!Borç.Visible = False

    Else

        [Hareketler_Alt_frm]!Borç.Visible = True

    End If

End Sub

şeklinde kod yazmak gerekiyor, alt formu belirtmek için [alt form adı]!AlanAdı.Visible=False veya True işte aradığım buydu.

Kusura bakmayın vaktinizi aldım, emeği geçen herkese teşekkür ederim.