Office中国论坛/Access中国论坛

标题: 平台自动生成模块报错2465 [打印本页]

作者: joelongma 时间: 2016-11-29 13:37
标题: 平台自动生成模块报错2465
用系统的平台生成模块，就是在明细设置项目上出现这个问题，链接主字段和子字段，也很正常，为何就没有查到呢

作者: tmtony 时间: 2016-11-29 14:01
1.你看看父子窗体的链接字段是否用了这个
2.你搜索代码和窗体上有否用到了这个字段，但实际表中没有这个字段
3。如果还不行，请加我们客户QQ：1918333016 或我QQ ：18449932 ，远程看看

作者: joelongma 时间: 2016-11-29 14:17
我传一份平台创建文件到你的QQ邮箱里吧，密码是系统默认的

作者: tmtony 时间: 2016-11-29 14:47
主要是你以前用到客户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

作者: tmtony 时间: 2016-11-29 14:49
写错，应该是你的编辑窗体上没有 Nz(Me![客户ID]) 这个。这个找不到

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)