用平台开发的主子窗体，保存时报错提示明细数据不能为空，求破解！

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler


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


    Dim cnn: Set cnn = GetADOConnection()


    cnn.BeginTrans
    Dim blnTransBegin As Boolean: blnTransBegin = True


    Dim strSQL: strSQL = "SELECT * FROM [qulityincard] WHERE [ID]=" & Nz(Me![ID], 0)
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
    rst![code] = Me![code]
    rst![setuser] = Me![setuser]
    rst![customer] = Me![customer]
    rst![setdate] = Me![setdate]
    rst![scddh] = Me![scddh]
    rst.Update
    rst.Close


    cnn.Execute "DELETE FROM [qulityincard_b] WHERE [ID]=" & Nz(Me![ID], 0)
    strSQL = "SELECT * FROM [qulityincard_b] WHERE [ID]=" & Nz(Me![ID], 0)
    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_qulityincard_b")
   Do Until rstTmp.EOF
        rst.AddNew
        UpdateRecord rstTmp, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
     rst![product] = Me![product]
     rst![code] = Me![code]
     rst![complaintnum] = Me![complaintnum]
     rst![price] = Me![price]
     rst![money] = Me![money]
     rst![piece] = Me![piece]
     rst![size] = Me![size]
       rst.Update
      rstTmp.MoveNext
     Loop
    rst.Close
    rstTmp.Close
   
   cnn.CommitTrans
   blnTransBegin = False


  RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation
    If Me.DataEntry Then
      Me.InitData
    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