更新包含按钮的行

Question

我的表单如下：

当我选择将状态字段更改为“已拒绝”的按钮时，它会更改单击的内容，而不是按钮所在的行之前的内容。

在运行代码之前，是否有一种方法可以通过选中的按钮强制将重点放在该记录上？

这是按钮后面的代码：

DoCmd.GoToRecord acActiveDataObject
AID = Me.Auto_ID
DoCmd.SetWarnings False
Set Mydb = CurrentDb
strSQL = "UPDATE Dev_Proc_ResinToolSpec SET Dev_Proc_ResinToolSpec.Approval = -1 WHERE ResinSpec_AID = " & AID & ";"
Mydb.Execute strSQL, dbSeeChanges
Me.Recalc 
DoCmd.SetWarnings True

我尝试将GoToRecord更改为使用acPrevious，但这引发了该错误

  

您无法转到指定的记录