[5分]用平台生成主子窗体录入主子记录时，点保存提示：Sub Form_Load()在对应所需名称或序数的集合中，未找到项目

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

    Set cnn = CurrentProject.Connection

    cnn.BeginTrans: blnTransBegin = True

    strSQL = "SELECT * FROM [个险长期险业务登记表] WHERE [投保单号]=" & SQLText(Me![投保单号])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
    End If
    rst![交单登记日期] = Me![交单登记日期]
    rst![销售渠道代码] = Me![销售渠道代码]
    rst![投保单号] = Me![投保单号]
    rst![投保人] = Me![投保人]
    rst![被保人] = Me![被保人]
    rst![营销员代码] = Me![营销员代码]
    rst![备注] = Me![备注]
    rst![投保单状态] = Me![投保单状态]
    rst![登记操作员] = Me![登记操作员]
    rst![撤退单时间] = Me![撤退单时间]
    rst![撤退单操作员] = Me![撤退单操作员]
    rst.Update
    rst.Close

    strSQL = "SELECT * FROM [个险长期险业务登记明细表] WHERE [投保单号]=" & SQLText(Me![投保单号])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    Do Until rst.EOF
        rst.Delete
        rst.MoveNext
    Loop
    Set rstTmp = CurrentDb.OpenRecordset("TMP_个险长期险业务登记明细表")
    Do Until rstTmp.EOF
        rst.AddNew
        rst![投保单号] = Me![投保单号]
        rst![险种代码] = rstTmp![险种代码]
        rst![交费期间] = rstTmp![交费期间]
        rst![保费] = rstTmp![保费]
        rst![件数] = rstTmp![件数]
        rst![备注] = rstTmp![备注]
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close
    cnn.CommitTrans: blnTransBegin = False

    Form_frm个险长期险业务登记.RefreshDataList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

'    If Me.DataEntry Then
'        ClearControlValues Me
'        CurrentDb.Execute "DELETE FROM [TMP_个险长期险业务登记明细表]"
'        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

Private Sub btnCancel_Click()
    On Error Resume Next
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub