用平台如何做多个子窗体

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere      As String
    Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Dim rstTmp        As Object 'DAO.Recordset
    Dim blnTransBegin As Boolean


    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub
    If Not CheckRequired(Me.sfrDetail) Then Exit Sub
    If Not CheckRequired(Me.sfrDetail_01) Then Exit Sub


'判断审核状态
    If DLookup("ShenHeZhuangTai", "TBL_SRF", "SRF_ID='" & Me![SRF_ID] & "'") = "已审核" Then
    MsgBox "已审核，禁止编辑！", vbCritical, "警告"
    Exit Sub
    End If


    Set cnn = CurrentProject.Connection


    cnn.BeginTrans: blnTransBegin = True


    strSQL = "SELECT * FROM [TBL_SRF] WHERE [SRF_ID]=" & SQLText(Me![SRF_ID])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
        rst![SRF_ID] = GetAutoNumber("SRF_ID")
    End If
    rst![JinDuZhuangTai] = Me![JinDuZhuangTai]
    rst![KeHuLeiBie] = Me![KeHuLeiBie]
    rst![Ver] = Me![Ver]
    rst![Project] = Me![Project]
    rst![Requestor] = Me![Requestor]
    rst![RiQi] = Me![RiQi]
    rst![Model] = Me![Model]
    rst![PartNo] = Me![PartNo]
    rst![Description] = Me![Description]
    rst![SampleType] = Me![SampleType]
    rst![Market] = Me![Market]
    rst![ShenHeZhuangTai] = Me![ShenHeZhuangTai]
    rst![XiuDingRen] = Forms!sysfrmMain!Nickname
    rst![XiuDingRiQi] = Now()
    rst.Update
    Me![SRF_ID] = rst![SRF_ID]
    rst.Close


    strSQL = "SELECT * FROM [TBL_SRF_YangBanXuQiu] WHERE [SRF_ID]=" & SQLText(Me![SRF_ID])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    Do Until rst.EOF
        rst.Delete
        rst.MoveNext
    Loop
    Set rstTmp = CurrentDb.OpenRecordset("TMP_TBL_SRF_YangBanXuQiu")
    Do Until rstTmp.EOF
        rst.AddNew
        rst![SRF_ID] = Me![SRF_ID]
        rst![JinDuZhuangTai] = rstTmp![JinDuZhuangTai]
        rst![Model] = rstTmp![Model]
        rst![GuiGe] = rstTmp![GuiGe]
        rst![YangBanLeiBie] = rstTmp![YangBanLeiBie]
        rst![QTY] = rstTmp![QTY]
        rst![DanWei] = rstTmp![DanWei]
        rst![XingMing] = rstTmp![XingMing]
        rst![BeiZhu] = rstTmp![BeiZhu]
        rst![ShenHeZhuangTai] = rstTmp![ShenHeZhuangTai]
        rst![XiuDingRen] = Forms!sysfrmMain!Nickname
        rst![XiuDingRiQi] = Now()
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close
    
    strSQL = "SELECT * FROM [TBL_SRF_WenJianBianHao_MingXi] WHERE [SRF_ID]=" & SQLText(Me![SRF_ID])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    Do Until rst.EOF
        rst.Delete
        rst.MoveNext
    Loop
    Set rstTmp = CurrentDb.OpenRecordset("TMP_TBL_SRF_WenJianBianHao_MingXi")
    Do Until rstTmp.EOF
        rst.AddNew
        rst![SRF_ID] = Me![SRF_ID]
        rst![WenJianBianHao] = rstTmp![WenJianBianHao]
        rst![BeiZhu] = rstTmp![BeiZhu]
        rst![ShenHeZhuangTai] = rstTmp![ShenHeZhuangTai]
        rst![XiuDingRen] = Forms!sysfrmMain!Nickname
        rst![XiuDingRiQi] = Now()
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close
    cnn.CommitTrans: blnTransBegin = False
    
'通过这一行代码的调用实现附件的保存
      Call Me.sfrAttachments.Form.SaveAttachmentData("附件", Me!SRF_ID, cnn)


    Form_frm_SRF.RefreshDataList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation


'    If Me.DataEntry Then
'        ClearControlValues Me
'        CurrentDb.Execute "DELETE FROM [TMP_TBL_SRF_YangBanXuQiu]"
'        Me.sfrDetail.Requery
'    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
'    End If


ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Set rstTmp = Nothing
    Exit Sub


ErrorHandler:
    If blnTransBegin Then
        cnn.RollbackTrans
        blnTransBegin = False
    End If
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub