设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

平台自动生成模块报错2465

[复制链接]

点击这里给我发消息

1#
发表于 2016-11-29 14:01:48 | 显示全部楼层
1.你看看父子窗体 的链接字段是否用了这个
2.你搜索 代码 和窗体上有否用到了这个字段,但实际 表中没有这个字段
3。如果还不行,请加我们客户QQ:1918333016 或我QQ :18449932 ,远程看看

点击这里给我发消息

2#
发表于 2016-11-29 14:47:12 | 显示全部楼层
主要是你 以前用到客户ID,后来你又用 ID造成错误。
要重新用新的表重新生成一次窗体

where [客户ID]=" & "'" & Nz(Me![客户ID])

你现在表中没有 客户ID这个字段了,导致出错
  
    '【读取子表数据】
    Dim rsTmp As Object
    strSql = "Select * from [客户基本资料_产品资料] where [客户ID]=" & "'" & Nz(Me![客户ID]) & "'"
    Set rsTmp = gf_OpenRecordset("[TEMP_客户基本资料_产品资料]", cn, 1, 3)
    Set rs = gf_OpenRecordset(strSql, cn, 1, 1)
        Do While Not rs.EOF
            rsTmp.AddNew
            rsTmp("ID") = rs("ID")
            rsTmp("产品ID") = rs("产品ID")
            rsTmp("产品名称") = rs("产品名称")
            rsTmp("英文描述") = rs("英文描述")
            rsTmp("规格型号") = rs("规格型号")
            rsTmp("单价") = rs("单价")
            rsTmp("币种") = rs("币种")
            rsTmp("商品编码") = rs("商品编码")
            rsTmp("备注") = rs("备注")
            rsTmp("客户ID") = rs("客户ID")
            rsTmp.Update
            rs.MoveNext
        Loop
    rs.Close

点击这里给我发消息

3#
发表于 2016-11-29 14:49:13 | 显示全部楼层
写错,应该是你的 编辑窗体上 没有 Nz(Me![客户ID]) 这个。这个找不到
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-21 21:59 , Processed in 0.106064 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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