Office中国论坛/Access中国论坛

标题: 大家帮我看下这个查询怎么转vb [打印本页]

作者: pascal331 时间: 2012-4-20 16:39
标题: 大家帮我看下这个查询怎么转vb

INSERT INTO qingzhangjilu ( 姓名, 编号, 日期, 凭证编号, 摘要, 应收金额, 收回金额, 清账日期 )
SELECT jiedai.姓名, jiedai.编号, jiedai.日期, jiedai.凭证编号, jiedai.摘要, jiedai.应收金额, jiedai.收回金额, InputBox("删除单据原因，不填则默认为：删除录入错误单据","删除单据原因","删除录入错误单据") AS 清账日期
FROM jiedai
WHERE (((jiedai.id)=[Forms]![wljlxg]![Text82]));

怎么改成

docmd.runssql "INSERT INTO ……"

作者: todaynew 时间: 2012-4-20 17:32
本帖最后由 todaynew 于 2012-4-20 17:33 编辑

dim strsql as string
strsql="INSERT INTO qingzhangjilu ( 姓名, 编号, 日期, 凭证编号, 摘要, 应收金额, 收回金额, 清账日期 ) "
strsql=strsql & " SELECT jiedai.姓名, jiedai.编号, jiedai.日期, jiedai.凭证编号, jiedai.摘要, jiedai.应收金额, jiedai.收回金额, InputBox("删除单据原因，不填则默认为：删除录入错误单据","删除单据原因","删除录入错误单据") AS 清账日期"
strsql=strsql & " FROM jiedai WHERE jiedai.id=" & [Forms]![wljlxg]![Text82]

docmd.runssql strsql

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