Sub Form_Current()  bu subun içine   Dim ParentDocName As String ve  ParentDocName = Me.Parent.Name bunu eklemişsiniz lakin neden eklediniz.

Yani kod çalışınca bunlarla hiç işi olmuyor.
Kodu alttaki gibi kısalttım

AltForm adlarınıda değiştirdim AltKtgr2 gibi.

Sub Form_Current()



    On Error GoTo hata

    Me.Parent![AltKtgr2].Requery

    Exit Sub

hata:

    MsgBox Err.Description



End Sub