access执行update，没报错也没更新数据

DoCmd.SetWarnings (False)
Dim newji As String
newji = Nz(DLookup("积分", "会员卡表", "姓名='" & Me.姓名 & "'"), 0)
Dim update_sql As String
update_sql = "Update 会员卡表 Set 积分=" & newji * 1 - 所需积分 * 1 & " Where 姓名='" & Me.姓名 & "'"
DoCmd.RunSQL update_sql
MsgBox "兑换成功！"

望采纳！点击该回答右侧的“采纳”按钮即可采纳！！
1.检查确认所需积分的值是否正确，以及 update_sql 语句中的条件是否正确。

2.可以在执行 update 语句之前，先打印出 update_sql 字符串的内容，检查是否有语法错误。

3.也可以在执行 update 语句之后，使用 DLookup 函数查询积分是否已经更新，如果更新失败，可以通过查询错误信息来了解原因。