访问对象 424

Question

我正在运行设置一个表达式来遍历记录集，并使用每个记录中的字符串运行第二个 table 上的更新查询。基于 LIKE 匹配，它更新字段以创建关系。我遇到 CurrentDb.Execute.

所需的运行时错误“424”对象问题

表格：交易（主要 table 更新） TransactionType（类型或类别的关系 table） TransSet（字符串列表和要设置的交易类型）

Private Sub Toggle1_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset   
Set db = CurrentDb Set rst = db.OpenRecordset("TransSet")   
Do Until rst.EOF

CurrentDb.Execute ("UPDATE Transactions SET Transactions.TransactionType =" & (TransSet.TransTypeSet) & " WHERE ((Transactions.TransactionText1) Like * " &   (TransSet.TransIdent) & "*))")


rst.MoveNext Loop   
rst.Close Set rst = Nothing

End Sub

Answer 1

引用记录集对象，而不是 table 或查询记录集所基于的对象。文本类型字段参数需要撇号分隔符。

CurrentDb.Execute ("UPDATE Transactions SET TransactionType ='" & rst!TransTypeSet & "'" & _  
" WHERE TransactionText1 Like '*" & rst!TransIdent & "*'")

Answer 2

谢谢 - 我也意识到了我的错误并修复了代码。我还更改了 table 名称，以免与保留字混淆。

Private Sub Toggle1_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("Select * FROM TransSet")

Do Until rst.EOF


CurrentDb.Execute ("UPDATE Trans SET trans.TransactionType =" & (rst!TransTypeSet) & " WHERE ((Trans.TransactionText1) Like '*" & (rst!TransIdent) & "*');")

' MsgBox ("UPDATE Trans SET trans.TransactionType =" & (rst!TransTypeSet) &     " WHERE ((Trans.TransactionText1) Like '*" & (rst!TransIdent) & "*');")


   rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub

访问对象 424

Access object 424

ms-access

vba

ms-access-2016