Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2014|回复: 9

[已解决]VBA字段更新日期代码有错误,请老师帮忙解决,谢谢

[复制链接]
发表于 2013-9-16 16:12 | 显示全部楼层 |阅读模式

在点击InventoryTemp的更新按钮后发生错误,我看了下应该是更新日期这个字段出错,小弟不知道错在哪里,请老师帮忙解决,谢谢

最佳答案
2013-9-16 16:45
修改sql语句为下面的.
问题关键是出在字段名写错导致不能更新
  1. Sql = "update Tbl_Inventory set 上月库存 ='" & arr(i, 10) & "',当月库存='" & arr(i, 11) & "',更新时间='" & Now & "' where Month= " & arr(i, 1) & " and [Hospital Code]='" & arr(i, 5) & "' and Product='" & arr(i, 4) & "'"
复制代码

New Folder (2).zip

49.24 KB, 下载次数: 22

发表于 2013-9-16 16:37 | 显示全部楼层
库库数字段是数值类型,不需要加'
回复

使用道具 举报

发表于 2013-9-16 16:38 | 显示全部楼层
回复

使用道具 举报

发表于 2013-9-16 16:45 | 显示全部楼层    本楼为最佳答案   
修改sql语句为下面的.
问题关键是出在字段名写错导致不能更新
  1. Sql = "update Tbl_Inventory set 上月库存 ='" & arr(i, 10) & "',当月库存='" & arr(i, 11) & "',更新时间='" & Now & "' where Month= " & arr(i, 1) & " and [Hospital Code]='" & arr(i, 5) & "' and Product='" & arr(i, 4) & "'"
复制代码

点评

牛啊,没注意到字段名称上。  发表于 2013-9-16 16:57
厉害 还会sql 语句 下个班带上我吧  发表于 2013-9-16 16:53
回复

使用道具 举报

发表于 2013-9-16 16:49 | 显示全部楼层
另外一个问题出在更新时间字段上,我还得试试。
回复

使用道具 举报

 楼主| 发表于 2013-9-16 17:12 | 显示全部楼层
本帖最后由 chengzhiting 于 2013-9-16 17:23 编辑
sliang28 发表于 2013-9-16 16:45
修改sql语句为下面的.
问题关键是出在字段名写错导致不能更新


多谢指点

回复

使用道具 举报

 楼主| 发表于 2013-9-16 17:12 | 显示全部楼层
hwc2ycy 发表于 2013-9-16 16:38

多谢。
回复

使用道具 举报

 楼主| 发表于 2013-9-17 14:40 | 显示全部楼层
sliang28 发表于 2013-9-16 16:45
修改sql语句为下面的.
问题关键是出在字段名写错导致不能更新

还想在问下如果想在上传和更新的时候在msgbox显示上传了多少条记录,更新了多少条记录,因该怎么写VBA代码呢?
回复

使用道具 举报

发表于 2013-9-17 15:28 | 显示全部楼层
chengzhiting 发表于 2013-9-17 14:40
还想在问下如果想在上传和更新的时候在msgbox显示上传了多少条记录,更新了多少条记录,因该怎么写VBA代码 ...

我第一刻想到的就是:
SELECT COUNT(*) FROM
上传和更新前统计一下多少条,结束后统计,前减去后就是你要的答案了.
你查一下上面sql的写法就好了.
回复

使用道具 举报

 楼主| 发表于 2013-9-17 15:42 | 显示全部楼层
sliang28 发表于 2013-9-17 15:28
我第一刻想到的就是:
SELECT COUNT(*) FROM
上传和更新前统计一下多少条,结束后统计,前减去后就是你要 ...

VBA初学有点搞不太明白,能否麻烦忙我写下呢?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-19 04:53 , Processed in 0.329638 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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