|
主要是你 以前用到客户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
|
|