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 "兑换成功!"
access执行update,没报错也没更新数据
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- heart_6662 2022-12-28 18:52关注
望采纳!点击该回答右侧的“采纳”按钮即可采纳!!
1.检查确认所需积分的值是否正确,以及 update_sql 语句中的条件是否正确。2.可以在执行 update 语句之前,先打印出 update_sql 字符串的内容,检查是否有语法错误。
3.也可以在执行 update 语句之后,使用 DLookup 函数查询积分是否已经更新,如果更新失败,可以通过查询错误信息来了解原因。
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥50 三种调度算法报错 有实例
- ¥15 关于#python#的问题,请各位专家解答!
- ¥200 询问:python实现大地主题正反算的程序设计,有偿
- ¥15 smptlib使用465端口发送邮件失败
- ¥200 总是报错,能帮助用python实现程序实现高斯正反算吗?有偿
- ¥15 对于squad数据集的基于bert模型的微调
- ¥15 为什么我运行这个网络会出现以下报错?CRNN神经网络
- ¥20 steam下载游戏占用内存
- ¥15 CST保存项目时失败
- ¥20 java在应用程序里获取不到扬声器设备