怎样实现批量更新access原始表中的数据

happypie2008

求助：
见附件，有J300,SGM308两个基本表的信息，PN(Part Number)为主关键字，如果更新WH_Address里面的PN,WH_Address,version(为版本日期），怎样才能实现J300,SGM308这两个表里面的version也更新？

谢谢

styhs

原帖由 happypie2008 于 2011-2-25 13:20 发表
求助：
见附件，有J300,SGM308两个基本表的信息，PN(Part Number)为主关键字，如果更新WH_Address里面的PN,WH_Address,version(为版本日期），怎样才能实现J300,SGM308这两个表里面的version也更新？
谢谢

J300表的PN字段应更改与WH_Address表一致，即为文本类型。
Sub UpdateVersion()
    With CurrentDb
        .Execute "UPDATE J300 AS A INNER JOIN WH_Address AS B ON A.PN = B.PN " _
            & "SET A.Version = B.Version"
        .Execute "UPDATE SGM308 AS A INNER JOIN WH_Address AS B ON A.PN = B.PN " _
            & "SET A.Version = B.Version"
    End With
End Sub

happypie2008

谢谢Styhs,
我是初学者，你能不能好事做到底，帮忙告知接下来这个语句去怎么实现？用宏还是直接添加到SQL语句当中去？谢谢帮忙！

zhao__feng

帮你把代码贴入了，在模块中

happypie2008

谢谢楼上这位朋友，
我把你更新的下了下来让后更改WH_Address里的版本，但是J300和SGM308里面的数据未发生变化，难道需要什么来启动或者需要插件支持？

happypie2008

根据4楼朋友提供的模块，我在窗体中启动模块，但是不知怎么运行老出现错误。需要大侠帮忙，具体例子见附件。谢谢！

roych

改成这个吧：
    With CurrentDb
        .Execute "UPDATE 仓库地址 LEFT JOIN J300 ON 仓库地址.[P/N] = J300.[P/N] SET J300.[Card Revision] = [仓库地址]![Card Revision];"   
        .Execute "UPDATE Tcar LEFT JOIN 仓库地址 ON Tcar.[P/N] = 仓库地址.[P/N] SET Tcar.[Card Revision] = [仓库地址]![Card Revision];"
    End With
没必要重新命名数据表。。。
想看更清楚的关系，请在QBE界面（查询面板）中，右键，选择sql视图，然后带双引号的字段粘贴进去（不含双引号）。

happypie2008

原帖由 roych 于 2011-3-7 20:50 发表
改成这个吧：
    With CurrentDb
        .Execute "UPDATE 仓库地址 LEFT JOIN J300 ON 仓库地址.[P/N] = J300.[P/N] SET J300.[Card Revision] = [仓库地址]![Card Revision];"   
        .Execute "UPDATE T ...

谢谢！我再试试。

happypie2008

如例子，我复制了一个报表，而且这个报表的来源表要更改，打算引用查询中的"IEupdate"报表中同样的字段，在哪可以改数据源？
希望好心的朋友帮忙！不胜感激。

happypie2008

上面的问题已解决，接下来还有一个问题求教：
见附件，怎样实现在窗体输入框中赋值，并把这个赋值在SQL查询语句里面用到（查询表IEupdate)?
谢谢！