如何解决如何使用MS Access中的VBA用来自另一个表的数据更新单个记录的单个字段
在MS Access中,我有一个名为“产品”的表。它包含质量测试参数,以及“ Part_No”和“ Last_Test_Date”的字段。 “ Last_Test_Date”字段是最后一次测试特定产品的时间。
我还有另一个表(Trend001),可以使用来自液压测试机的实际测试数据以及正在测试的“零件编号”和当前的“时间标记”实时更新。
我想用“ Trend001”表中的“ Time_Stamp”更新正在测试的特定“零件号”的“ Last_Test_Date”。
这样,用户可以知道零件的上一次测试。
我在Stackoverflow上发现了这一点,但是我对将其应用于我的项目的语言了解不足。
Updating existing records and adding new records in table (MS Access VBA)
'''
Public Sub UpdateExistingRecords()
On Error GoTo ErrTrap
Dim rs As DAO.Recordset
Set rs = CurrentDb().OpenRecordset("SELECT * FROM tblTempData",dbOpenSnapshot)
Set rsCommon = CurrentDb().OpenRecordset("SELECT * FROM tblCommon",dbOpenDynaset)
Dim idx As Long
For idx = 1 To rs.RecordCount
If ExistsInCommon(rs![Item ID]) Then
If Not Update(rs) Then
MsgBox "Failed to update.",vbExclamation
GoTo Leave
End If
'''
解决方法
您不需要VBA进行更新,只需使用SQL更新即可。此SQL将更新Trend001表中存在的Products表中的所有零件。
UPDATE Products INNER JOIN Trend001 ON Products.Part_No = Trend001.Part_No
SET Products.Last_Test_Date = Trend001.Time_Stamp;
请-请记住在运行此更新之前备份数据库。打字错误可能会删除您的数据。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。