我有一个MainForm Groups_Members ，其中有2个子表单作为DataSheets Groups 和 Members 。我试图根据 Groups 子表单中选定的行填充 Members 子表单。

我在子表单 Groups 中，此代码适用于表单 Members ，该表单根据选定的行重新填充记录源（更准确地，请单击id字段，这不是我真正想要的，但这是一个更具装饰性的问题）：

Private Sub ID_Click()
    Dim SQLsource As String
    
    SQLsource = "SELECT [tPerson].[ID],[tPerson].[Anrede],[tPerson].[TitelVorn],[tPerson].[Vorname],[tPerson].[Nachname],[tPerson_Funktion].[Funktion],[tPerson_tInstitution].[Wochenstunden],[tPerson_tInstitution].[tInstitution_ID] " & _
                "FROM (tPerson INNER JOIN tPerson_tInstitution ON [tPerson].[ID] =[tPerson_tInstitution].[tPerson_ID]) INNER JOIN tPerson_Funktion ON [tPerson].[ID] =[tPerson_Funktion].[tPerson_ID] " & _
                "Where [tPerson_tInstitution.tInstitution_ID] = " & CurrentRecord & " ;"
    
    If CurrentProject.AllForms("Members").IsLoaded = True Then
        Forms("Members").RecordSource = SQLsource        
    End If
End Sub

但是，使其适应于MainForm“ Groups_Members”中的Subform“ Members”仍然没有成功，我也无法弄清楚为什么。

此

Forms!["Praxen_und_Mitarbeiter"]!["Mitarbeiter"].Form.RecordSource = SQLsource

给我一​​个运行时错误2450，尽管该表单就在我面前，但找不到表单 Groups_Members 。

还有这个

Me.Parent!("Mitarbeiter").Forms.RecordSource = SQLsource

提示类型不匹配错误

我显然缺少了一些东西，希望有人指出我的错误。