请问这三条语句在VBA中应如保写

nisg

UPDATE (造价明细 INNER JOIN 样品 ON 造价明细.款号 = 样品.款号) INNER JOIN 造价汇总表 ON 样品.款号 = 造价汇总表.款号 SET 样品.总造价 = 造价汇总表![金额 之 Sum];



UPDATE 造价明细 SET 造价明细.单价 = b12([金额]/[数量]);

SELECT DISTINCTROW 造价明细.款号, Sum(造价明细.金额) AS [金额 之 Sum] INTO 造价汇总表

FROM 造价明细

GROUP BY 造价明细.款号;

LucasLynn

UPDATE指令和SELECT INTO均不需要返回数据集，因此用CurrentProject.Connection.Execute（ADO方法）或者CurrentDB.Execute（DAO方法）均可直接执行。如何写，在Access帮助的Jet SQL部分，SELECT INTO语句和UPDATE语句帮助中均有示例。

nisg

版主老兄试了不行，能不能帮一下忙[em02]

LucasLynn

以下是引用nisg在2005-9-28 16:59:00的发言：

版主老兄试了不行，能不能帮一下忙[em02]

不行你也描述一下怎么个不行，最好把出错信息截屏下来。就一句不行，莫非我是神仙，能猜到你为什么不行？

nisg

语句错误

nisg

UPDATE 造价明细 SET 造价明细.单价 = b12([金额]/[数量]);可以了，其他两条。。。。。

nisg

第一条是这样写的，但在有链接表时，其他表会出错Private Sub Command0_Click()

Dim dbs As Database

    Dim qdf As QueryDef

    Set dbs = OpenDatabase("C:\Documents and Settings\nzy1\桌面\1.mdb")

dbs.Execute "Update 造价明细 " _

& "Set 造价明细.单价 = ([金额]/[数量]) "

dbs.Close

End Sub

LucasLynn

你先放到查询的SQL视图中去测试一下语法是否正确。