vba的写法

钟传铸　发表于：2013-04-09 00:07:13 　

复制

有两张表：1.发料单明细历史

2.商品信息编号

我要解决的问题：当“商品信息编号”的商品编码更改后，必须相应调整“发料单明细历史“商品编码。

我写了一段VBA代码，执行后提示。

请各位行家里手给看看，我的代码应该如何写点击下载此附件，万分感谢您的支持！

Top

叶海峰发表于：2013-04-09 09:10:04

是不是就写一个update查询就可以了呢?

UPDATE 发料单明细历史 INNER JOIN 商品信息编号 ON (发料单明细历史.商品名称 = 商品信息编号.商品名称) AND (发料单明细历史.规格型号 = 商品信息编号.规格型号) SET 发料单明细历史.商品编号 = [商品信息编号]![商品编号];

Top

钟传铸发表于：2013-04-09 15:48:25

我是想用“商品信息编号”的“商品编号”去更新“发料单明细历史”中的“商品编号”。但是有一个条件：两个表的发料单明细历史.规格型号 = 商品信息编号.规格型号 and 发料单明细历史.商品名称 = 商品信息编号.商品名称。

Top

钟传铸发表于：2013-04-09 16:01:47

i您给我写的是SQL,如果要写成VBA呢。

Top

叶海峰发表于：2013-04-09 16:19:10

currentdb.execute "UPDATE 发料单明细历史 INNER JOIN 商品信息编号 ON (发料单明细历史.商品名称 = 商品信息编号.商品名称) AND (发料单明细历史.规格型号 = 商品信息编号.规格型号) SET 发料单明细历史.商品编号 = [商品信息编号]![商品编号];"

Top

钟传铸发表于：2013-04-10 14:59:53

您好，currentdb.execute "UPDATE......，放在哪里执行，是放在命令按钮下？

Top

叶海峰发表于：2013-04-10 15:14:37

你哪里需要就放哪里啊，一般是按钮吧。

Top

钟传铸发表于：2013-04-11 22:56:37

Private Sub Command0_Click()

CurrentDb.Execute "UPDATE 发料单明细历史 INNER ...

...

End Sub

您好，是这样用吗？谢谢您的指教。

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

vba的写法