【Access + SQL + VBA】更新查询同一字段多条件更新

最新推荐文章于 2024-12-03 14:38:29 发布

Allan_lam

最新推荐文章于 2024-12-03 14:38:29 发布

阅读量2.8k

点赞数 3

分类专栏： access VBA 文章标签： access vba sql

本文链接：https://blog.csdn.net/Allan_lam/article/details/125330132

版权

VBA 同时被 2 个专栏收录

6 篇文章

订阅专栏

access

5 篇文章

订阅专栏

该段代码展示了一个使用VBA的SQL更新语句，用于修改tbl_发票收发表中的发票内容。根据不同的内容，将其替换为预定义的统一术语，如将'物业'、'物管'等替换为'管理费租金'，'水果'替换为'下午茶'等，确保数据标准化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim strSQL As String
strSQL = "Update tbl_发票收发 " & _
“SET 发票内容 = switch” & _
“(发票内容 Like ‘物业’, ‘管理费租金’ ,” & _
“发票内容 Like ‘物管’, ‘管理费租金’ ,” & _
“发票内容 Like ‘管理费’, ‘管理费租金’ ,” & _
“发票内容 Like ‘租金’, ‘管理费租金’ ,” & _
“发票内容 Like ‘水果’, ‘下午茶’ ,” & _
“发票内容 Like ‘农夫山泉’, ‘饮品’ ,” & _
“发票内容 Like ‘软饮料’, ‘饮品’ ,” & _
“发票内容 Like ‘顺丰’, ‘快递’ ,” & _
“发票内容 Like ‘电信服务’, ‘电信服务’ ,” & _
“发票内容 Like ‘的士’, ‘计程车’ ,” & _
“发票内容 Like ‘出租车’, ‘计程车’ ,” & _
“发票内容 Like ‘机场’, ‘机票’ ,” & _
“发票内容 Like ‘检测’, ‘检测’ ,” & _
“true, 发票内容)” '此段十分紧要，若果没有就会其他没有定义的都全部当null