|
请各位老师看看这个错误提示,是什么原因?点击命令进行追加就提示
下面是代码:
Dim SQLText As String
SQLText = "INSERT INTO [tblAppraisalDetail] (产品编号,产品名称,数量,客户要求交货日期,评审后交货日期)"
SQLText = SQLText + "SELECT Forms![FrmCustomerOrder]![frmsubCSOrder].Form![产品编号]AS 产品编号,Forms![FrmCustomerOrder]![frmsubCSOrder].Form!产品名称 AS 产品名称,Forms![FrmCustomerOrder]![frmsubCSOrder].Form!订单数量 AS 数量,Forms![FrmCustomerOrder]![frmsubCSOrder].Form!客户要求交货日期 AS 客户要求交货日期,Forms![FrmCustomerOrder]![frmsubCSOrder].Form!公司承诺交货日期 as 评审后交货日期,WHERE ((([tblAppraisalDetail].[客户订单编号])=Forms![FrmCustomerOrder]![客户订单编号]));"
DoCmd.RunSQL SQLText |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|