Opdatering af flere sammenkædede underformularer

Hej
Jeg har en hovedformular, med 3 kommandoknapper, der hver åbner en sammenkædet underformular. Der skal flere kommandoknapper på senere..
Det virker faktisk fint, bortset fra en (irriterende) detalje.
De to sidst lavede underformularer, åbnes korrekt. Men hvis jeg scroller videre til et andet firma på hovedformularen, ændres de tilhørende oplysninger ikke på underforlmularen. (Men som sagt ÅBNES de korrekt).
Ved den første kommandoknap virker det fint(den blev lavet vha. guiden, det er den der hedder"skiftkæde")

Problemet (tror jeg) er at SUBén "FilterchildForm" er specifikt skrevet til underformularen "KontaktpersonTbl", og derfor ikke virker med kommandoknap 9 eller 23.

Er det noget med at bytte ud på "Private" SUBér eller hvad?

Eller kan man ændre i FilterChildForm+OpenChildForm fra "Forms![KontaktpersonTbl]" til "Forms![generisk-underformularnavn]" ?

Jeg vedlægger min kode her:
På forhånd mange tak
VH
Tore

Option Compare Database

Sub Form_Current()
On Error GoTo Form_Current_Err

    If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit

End Sub

Sub SkiftKæde_Click()
On Error GoTo SkiftKæde_Click_Err

    If ChildFormIsOpen() Then
        CloseChildForm
    Else
        OpenChildForm
        FilterChildForm
    End If

SkiftKæde_Click_Exit:
    Exit Sub

SkiftKæde_Click_Err:
    MsgBox Error$
    Resume SkiftKæde_Click_Exit

End Sub
Private Sub FilterChildForm()

    If Me.NewRecord Then
        Forms![KontaktpersonTbl].DataEntry = True
    Else
        Forms![KontaktpersonTbl].Filter = "[KundeId] = " & Me![KundeId]
        Forms![KontaktpersonTbl].FilterOn = True
    End If

End Sub
Private Sub OpenChildForm()

    DoCmd.OpenForm "KontaktpersonTbl"
    If Not Me![SkiftKæde] Then Me![SkiftKæde] = True

End Sub
Private Sub CloseChildForm()

    DoCmd.Close acForm, "KontaktpersonTbl"
    If Me![SkiftKæde] Then Me![SkiftKæde] = False

End Sub
Private Function ChildFormIsOpen()

    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "KontaktpersonTbl") And acObjStateOpen) <> False

End Function



Private Sub Kommandoknap9_Click()
On Error GoTo Err_Kommandoknap9_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Sub_Ordre"
   
    stLinkCriteria = "[KundeIdFk]=" & Me![KundeId]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Kommandoknap9_Click:
    Exit Sub

Err_Kommandoknap9_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap9_Click
   
End Sub
Private Sub Kommandoknap23_Click()
On Error GoTo Err_Kommandoknap23_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Sub_Udbud"
   
    stLinkCriteria = "[KundeIdFK]=" & Me![KundeId]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Kommandoknap23_Click:
    Exit Sub

Err_Kommandoknap23_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap23_Click
   
End Sub