设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1653|回复: 4
打印 上一主题 下一主题

Check whether the 'lblschange' exists是什么错误?

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2019-3-12 13:27:09 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
平台生成的窗体,在进入编辑时,总跳出这个错误,不知道是什么问题?


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

5#
 楼主| 发表于 2019-3-13 09:05:32 | 只看该作者
Forms![frmSysMain]![sfmSubForm].Form![sfmSubForm]   这句搞定了

点击这里给我发消息

4#
 楼主| 发表于 2019-3-12 15:32:54 | 只看该作者

'保存按钮
Private Sub cmdSave_Click()
    On Error GoTo ErrorHandler
    Dim strSql As String
    Dim cn As Object
    Dim rs As Object

    '【事务处理】
    Set cn = CurrentProject.Connection
    cn.BeginTrans           '开始事务
   
    '【保存数据】
    strSql = "Select * from [Tbl_BuyPOTmp]"
    Set rs = gf_OpenRecordset(strSql, cn, 1, 3)
    If rs.EOF = False Then
        Dim strMessage As String: strMessage = gf_GetLangValue("Are you sure to Save?")
        If Not gf_Msgbox(strMessage, vbExclamation + vbOKCancel) = vbOK Then Exit Sub
   
        DoCmd.RunSQL "INSERT INTO Tbl_BuyPO (Bu_ID, Bu_IDFT, Bu_PrID, Bu_Pdid, Bu_PiID, Bu_Qty, Bu_Stock, Bu_Date, Bu_NeedDate, Bu_LkID, Bu_EmID," & _
        " Bu_EmAudit, Bu_Audit, Bu_Audate, Bu_Seid, Bu_Memo, Bu_InFinish, Bu_Active ) SELECT Tbl_BuyPOTmp.Bu_ID, Tbl_BuyPOTmp.Bu_IDFT," & _
        " Tbl_BuyPOTmp.Bu_PrID, Tbl_BuyPOTmp.Bu_Pdid, Tbl_BuyPOTmp.Bu_PiID, Tbl_BuyPOTmp.Bu_Qty, Tbl_BuyPOTmp.Bu_Stock, Tbl_BuyPOTmp.Bu_Date, Tbl_BuyPOTmp.Bu_NeedDate," & _
        " Tbl_BuyPOTmp.Bu_LkID, Tbl_BuyPOTmp.Bu_EmID, Tbl_BuyPOTmp.Bu_EmAudit, Tbl_BuyPOTmp.Bu_Audit, Tbl_BuyPOTmp.Bu_Audate, Tbl_BuyPOTmp.Bu_Seid, Tbl_BuyPOTmp.Bu_Memo," & _
        " Tbl_BuyPOTmp.Bu_InFinish, Tbl_BuyPOTmp.Bu_Active FROM Tbl_BuyPOTmp;"
        
        DoCmd.RunSQL "delete Tbl_BuyPoTmp.* from Tbl_BuyPoTmp"
        
        gf_RequerySubForm Forms![frm__BuyPO_Main]![sfmSubForm]   这句好象不起作用
        gf_Msgbox gf_GetLangValue("Save Successfully")
        DoCmd.Close acForm, Me.Name, acSaveNo
    Else
        gf_Msgbox "没有采购记录需要保存!"
    End If
   
ExitHere:
    Set rs = Nothing
    Set cn = Nothing
    Exit Sub
ErrorHandler:
    Resume ExitHere
   
End Sub

点击这里给我发消息

3#
 楼主| 发表于 2019-3-12 15:24:34 | 只看该作者
表中没有这个字段,数据源是直接用的表,不是查询,没用到这字段。。。

另一个很急的问题,就是跳出窗体新增数据输入后,在保存关闭该窗体时,用什么语句来刷新父窗体中子窗体数据表的数据?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

2#
发表于 2019-3-12 14:21:34 | 只看该作者
你看看 你的表 中有否用到这个字段, 或数据源是否查询,查询是否有用到 这个参数之类
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 11:46 , Processed in 0.083756 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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