Synkronisere to formularer

Hej igen

Jeg har en hovedformular med nogle kommandoknapper, der åbner andre formularer.
Jeg er interesseret i, at Form2 synkroniseres når der skiftes record i Form1.
Indtil videre virker det flot via noget kode, jeg har fundet, for en hovedformular og for EN Form2.
Imidlertid vil jeg gerne tilføje flere knapper med hver deres Form2. Alle skal de synkroniseres når der skiftes i Form1.

Jeg har på Form1 (FirmaFrm) to knapper der hver åbner hhv (Kontaktperson_subFrm og OpgaveFrm.  Det er kun den ene knap som virker, hvordan kan jeg ændre koden så flere forms kan styres?

Hertil er der en VBA kode der virker via

Private sub Form_current
Private sub PersonKnap
Samt et hjælpemodul. Jeg vedlægger koden, og håber på at høre, hvordan jeg kan ændre koden, så den også gælder for andre Form2

Jeg gætter på man kan tilpasse Private Sub Form_Current()  ???

Herunder koden i modulet:
Option Compare Database
Option Explicit

Function IsLoaded(ByVal strFormName As String) As Boolean


' Returns True if the specified form is open in Form view or Datasheet view.

    Const conObjStateClosed = 0
    Const conDesignView = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
   
End Function

* og resten af koden:
Private Sub Form_Current()
On Error GoTo Err_Form_Current

' Hvis Kontaktperson_subFrm form er åben, skal firmaets kontaktpersoner vises.

    Dim strDocName As String
    Dim strLinkCriteria As String

        strDocName = "Kontaktperson_subFrm"
        strLinkCriteria = "[FirmaFk] = Forms![FirmaFrm]![FirmaId]"
 
    If IsNull(Me![Firmanavn]) Then
        Exit Sub
    ElseIf IsLoaded("Kontaktperson_subFrm") Then
        DoCmd.OpenForm strDocName, , , strLinkCriteria
    End If

Exit_Form_Current:
    Exit Sub
   
Err_Form_Current:
    MsgBox Err.Description
    Resume Exit_Form_Current

End Sub







Private Sub PersonKnap_Click()
' This code created in part by Command Button Wizard.
On Error GoTo Err_PersonKnap_Click

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
    Dim strDocName As String, strLinkCriteria As String

    ' If Firmanavn control is blank, display a message.
    If IsNull(Me![Firmanavn]) Then
        strMsg = "Flyt dig til den virksomhedsnavn, hvis kontaktpersoner du ønsker at se, og klik så her igen"
        intStyle = vbOKOnly
        strTitle = "Vælg en virksomhed"
        MsgBox strMsg, intStyle, strTitle
        Me![Firmanavn].SetFocus
    Else
    ' Otherwise, open Kontaktperson_subFrm form, showing products for current supplier.
        strDocName = "Kontaktperson_subFrm"
        strLinkCriteria = "[FirmaFk] = Forms![FirmaFrm]![FirmaId]"
        DoCmd.OpenForm strDocName, , , strLinkCriteria
        DoCmd.MoveSize (1400 * 0.78), (1400 * 0.78)
    End If
   
Exit_PersonKnap_Click:
    Exit Sub
   
Err_PersonKnap_Click:
    MsgBox Err.Description
    Resume Exit_PersonKnap_Click
   
End Sub