請高手看看，這個(gè)錯(cuò)誤提示是什么問題？

daviee · 發(fā)表于 2020-2-21 21:23:47

其它的保存功能都沒問題，就是這個(gè)窗口的保存會出如下提示：

點(diǎn)確定后，數(shù)據(jù)會保存，但是點(diǎn)關(guān)閉窗口時(shí)，又提示數(shù)據(jù)已修改，是否要保存，點(diǎn)保存，又出現(xiàn)上面這個(gè)錯(cuò)誤，一直這么循環(huán)。。。

其它窗口的保存沒有這個(gè)問題，重新把表設(shè)計(jì)過一次還是這個(gè)問題，重新生成這個(gè)窗口，還是這個(gè)問題；和其它OK的窗口保存代碼對比，也沒有什么區(qū)別，不知道問題出在哪？

'保存數(shù)據(jù)
Private Function mf_SaveData() As Boolean
On Error GoTo Err_Handler
Dim strSql As String
Dim cn As Object
Dim rs As Object

'【驗(yàn)證部分】
If Not gf_CheckRequired(Me) Then Exit Function       '必填項(xiàng)判斷
If Not gf_CheckLength(Me) Then Exit Function          '長度限制判斷

'【事務(wù)處理】
Set cn = CurrentProject.Connection
cn.BeginTrans          '開始事務(wù)

'【保存數(shù)據(jù)】
Dim strKeyValue As String
strSql = "Select * from [tbl_quotation] where [QUID]=" & Nz(Me![QUID], 0)
Set rs = gf_OpenRecordset(strSql, cn, 1, 3)
      If rs.RecordCount = 0 Then
         rs.AddNew
      End If
      rs("Qu_Id") = Me![Qu_ID]
      rs("Qu_CuId") = Me![Qu_CuID]
      rs("Qu_LkId") = Me![Qu_LkID]
      rs("Qu_PiId") = Me![Qu_PiID]
      rs("Qu_Qty") = Me![Qu_Qty]
      rs("Qu_Moq") = Me![Qu_MOQ]
      rs("Qu_Delivery") = Me![Qu_Delivery]
      rs("Qu_BeDate") = Me![Qu_BeDate]
      rs("Qu_EnDate") = Me![Qu_EnDate]
      rs("Qu_PrId") = Me![Qu_PrID]
      rs("Qu_EmId") = Me![Qu_EmID]
      rs("Qu_Date") = Me![Qu_Date]
      rs("Qu_Active") = Me![Qu_Active]
      rs.Update                                  '提交數(shù)據(jù)
      strKeyValue = rs("QUID")          'QUID為自動(dòng)編號字段
      Me![QUID] = strKeyValue          '主鍵值回填
      Me![QUID].Enabled = False       '主鍵不再允許修改
rs.Close

'【提交事務(wù)，返回結(jié)果】
cn.CommitTrans       '提交事務(wù)
gf_IsChange False    '設(shè)置狀態(tài)
mf_SaveData = True    '返回結(jié)果

'【處理權(quán)限】
Dim blnValue As Boolean
blnValue = gf_RightValue("frm__quotation_Main", "Edit", blnIsCreate:=False)
mf_EditRight blnValue '若沒有編輯權(quán)限，則只能新增保存一次，不能繼續(xù)編輯
Exit_Handler:
'【清理資源】
Set rs = Nothing
Set cn = Nothing
Exit Function
Err_Handler:
'【事務(wù)滾回，錯(cuò)誤處理】
gf_Msgbox "", errError:=Err
cn.RollbackTrans       '事務(wù)滾回
GoTo Exit_Handler    '跳到清理資源
End Function

'保存按鈕
Private Sub cmdSave_Click()
'【保存數(shù)據(jù)】
If mf_SaveData Then gf_Msgbox gf_GetLangValue("Save Successfully")
End Sub