Dim ParentDocName As String
On Error Resume Next
ParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![FRM_UF02].Requery
Me.Parent![FRM_UF03].Requery
End If
Form_Current_Exit:
Exit Sub

Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit

rem Anmerkung: 

rem Name Unterformular1: FRM_UF00
rem Name Unterformular 2: FRM_UF02 (Verknüpfung mit UF_00)
rem Name Unterformular 3: FRM_UF03 (Verknüpft mit UF_00)
rem VBA-Code im FRM_UF00 (Beim Anzeigen des Formulars)