关于用窗体通过VBA命令修改选定记录的指定字段值的问题

陈赞　发表于：2019-08-27 21:23:33 　

复制

各位老师好

本人现在做了个小的系统，现在又碰到了一些问题，烦请各位老师指教

图1 是窗体设计视图，各模块的字段名如图所示

运行界面图2

图3 点击选择认证按钮后的运行结果

图4 VBA 编辑器代码

运行后出现如图3所示的结果，这个字段值[发票号码]数据值为空，弹出输入提示框，应当是勾选发票项的发票号码，请问如何解决这个问题，望各位老师赐教。谢谢

用过以下表达式，都无效果

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 = '& rst!发票号码 &' "

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 = SQLTEXT(rst!发票号码) "

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where '发票号码 =' & SQLTEXT( rst!发票号码) "

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where '发票号码 =' & SQLTEXT( rst![发票号码]) "

Top

xlb 发表于：2019-08-27 22:30:21

现在都是网上勾选，你这个系统有什么用？

Top

陈赞发表于：2019-08-28 08:37:49

这个是自己公司内部记录收到的发票，用来给财务用的，可以统计手头收到的有多少张，和税务系统无关的

Top

西出阳关无故人发表于：2019-08-28 11:28:31

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 ='" & SQLTEXT( rst!发票号码) "'"

Top

陈赞发表于：2019-08-28 12:06:45

还是提示错误哦

Top

xlb 发表于：2019-08-28 12:29:31

附件发上来

Top

西出阳关无故人发表于：2019-08-28 14:11:35

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 ='" & SQLTEXT( rst!发票号码) & "'"

Top

陈赞发表于：2019-08-28 20:55:01

点击下载此附件

这个是程序文件。

DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 ='" & SQLTEXT( rst!发票号码) & "'" 这个还是不行

Top

xlb 发表于：2019-08-28 22:14:38

1.do while not rst.eof 2.DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 ='" & rst!发票号码)& "'" 两处修改

Top

xlb 发表于：2019-08-28 22:16:14

1.do while not rst.eof 2.DoCmd.RunSQL "Update 进项票 SET 发票状态 = '已认证' Where 发票号码 ='" & rst!发票号码 & "'" 两处修改

Top

陈赞发表于：2019-08-29 10:09:48

已经解决，感谢 XLB提供帮助！谢谢！

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

关于用窗体通过VBA命令修改选定记录的指定字段值的问题