设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 163|回复: 2

请高手看看,这个错误提示是什么问题?

[复制链接]

点击这里给我发消息

发表于 2020-2-21 21:23:47 | 显示全部楼层 |阅读模式
其它的保存功能都没问题,就是这个窗口的保存会出如下提示:
1.png

点确定后,数据会保存,但是点关闭窗口时,又提示数据已修改,是否要保存,点保存,又出现上面这个错误,一直这么循环。。。

其它窗口的保存没有这个问题,重新把表设计过一次还是这个问题,重新生成这个窗口,还是这个问题;和其它OK的窗口保存代码对比,也没有什么区别,不知道问题出在哪?

'保存数据
Private Function mf_SaveData() As Boolean
On Error GoTo Err_Handler
    Dim strSql As String
    Dim cn As Object
    Dim rs As Object

    '【验证部分】
    If Not gf_CheckRequired(Me) Then Exit Function         '必填项判断
    If Not gf_CheckLength(Me) Then Exit Function           '长度限制判断

    '【事务处理】
    Set cn = CurrentProject.Connection
    cn.BeginTrans           '开始事务

    '【保存数据】
    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                                    '提交数据
        strKeyValue = rs("QUID")             'QUID为自动编号字段
        Me![QUID] = strKeyValue             '主键值回填
        Me![QUID].Enabled = False          '主键不再允许修改
    rs.Close


    '【提交事务,返回结果】
    cn.CommitTrans          '提交事务
    gf_IsChange False       '设置状态
    mf_SaveData = True      '返回结果

    '【处理权限】
    Dim blnValue As Boolean
    blnValue = gf_RightValue("frm__quotation_Main", "Edit", blnIsCreate:=False)
    mf_EditRight blnValue   '若没有编辑权限,则只能新增保存一次,不能继续编辑
Exit_Handler:
    '【清理资源】
    Set rs = Nothing
    Set cn = Nothing
    Exit Function
Err_Handler:
    '【事务滚回,错误处理】
    gf_Msgbox "", errError:=Err
    cn.RollbackTrans        '事务滚回
    GoTo Exit_Handler       '跳到清理资源
End Function


'保存按钮
Private Sub cmdSave_Click()
    '【保存数据】
    If mf_SaveData Then gf_Msgbox gf_GetLangValue("Save Successfully")
End Sub


点击这里给我发消息

发表于 2020-2-25 16:21:04 | 显示全部楼层
把一些错误提示屏蔽了。 能看到具体的错误的

点击这里给我发消息

发表于 2020-5-7 09:07:57 | 显示全部楼层
学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /5 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2020-8-6 01:05 , Processed in 0.089951 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表