ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4864|回复: 10

在Access中只用VBA修改資料表中數據

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-7-6 13:40 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
各位大俠好

我想在 Access資料表中只用 vba  而不用 查詢 或 其它方式 修改資料 , 請高人指點 .

品號        生產地        出厂日期
A        上海        2010/2/5
B        北京        2010/5/8
C        南京        2010/6/6
D        北京        2010/7/5
E        深圳        2010/8/3
把生產地是北京的出厂日改成 2011/11/14 , 結果如下表所示 .

品號        生產地        出厂日期
A        上海        2010/2/5
B        北京        2011/11/14
C        南京        2010/6/6
D        北京        2011/11/14
E        深圳        2010/8/3

TA的精华主题

TA的得分主题

发表于 2010-7-6 22:17 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-7-7 15:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-7-8 21:28 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Sub ModifyTable()

SQL = "UPDATE 資料表 SET 資料表.出厂日期 = #11/14/2011#" _
& " WHERE (資料表.生產地)='北京';"


CurrentDb.Execute SQL
End Sub

TA的精华主题

TA的得分主题

发表于 2010-7-8 22:11 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-7-9 11:06 | 显示全部楼层
執行到 CurrentDb.Execute SQL 時就報錯呀

提示是
執行階段錯誤 3061
參數太少, 預期個數 1

謝謝

TA的精华主题

TA的得分主题

发表于 2010-7-10 17:27 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
估计是表名或字段名不相符。

sqldb1.rar

7.63 KB, 下载次数: 36

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-7-12 09:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
謝謝 zpy2

現在可以運行了,

但是這個程式還是運用了 查詢中的 SQL語句 .

是否可以通過一個循環語句從第一個到最后一個

用判斷語句來判斷 '生產地' 是 "北京" 來執行 .

謝謝

TA的精华主题

TA的得分主题

发表于 2010-7-18 00:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
用更新查询

TA的精华主题

TA的得分主题

发表于 2010-7-18 10:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
用 ado,或dao 的 recordset.对象的 edit, update 方法帮助里有的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-12 09:59 , Processed in 0.024829 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表