求高手帮忙看看问题出在哪里

烈日 · 发表于 2009-10-15 18:35

从论坛高人哪里套用EXCEL输入至ACC代码，但运行起来就是不行，提示“十进制计算错误”是什么原因，求高人给讲解一下，小弟感激不尽，谢谢了

工具库房.rar (26.45 KB, 下载次数: 14)

烈日 · 发表于 2009-10-16 17:26

自己顶，求高人指点，希望能逐句讲解，谢谢

zez · 发表于 2009-10-16 19:01

你的代码调试部通（数据类型不匹配），
你可以试试将
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\工具库.mdb" '相同文件夹下
sq1 = "select * from 工具库"
rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
这三行提到FOR之前，相应将
cnn.Close
Set cnn = Nothing
放到NEXT I之后。看能否快一点

鱼求雨 · 发表于 2009-10-16 19:04

修改了一下,能在偶的机上运行保存成功,但偶也没仔细看你的这个东西的做什么用滴,不过,与其这么费周折,不如在一个软件中搞，不知你为何要舍近求远呢？

修改后的工具库房.rar (26.82 KB, 下载次数: 9)

烈日 · 发表于 2009-10-16 19:40

非常感谢雨兄，工作中数据量比教大，（不是工具库，但意思差不多）半年下来有2万多行，已到了必须用数据做存储和调用的地步了，再说数据量太大迟早也需要多人共同输入，用EXCEL显然是不能胜任，ACC必须要用

兄台修改后可以输入，只是字段日期总是会输入带公式的所有内容，又如何解决好，谢谢

烈日 · 发表于 2009-10-16 20:00

另，时间显示不对，输入10月16日，保存至ACC最后变成1905年7月1日？！
其他带货币字段都出现空行业被输入数据库的现象，还求大哥指点，谢谢

烈日 · 发表于 2009-10-19 17:20

输入后有空行，想添加删除语句，该怎么写
我在Next i后面写入 temp = "delete * from Barcode工具库 where 往来单位="""
DoCmd.RunSQL (temp)，不行

我又写入delete * from Barcode工具库 where 往来单位=""，还是不行，到底DELETE语句该怎么写，实现判断字段往来单位为空则删除整行，求高手指点，谢谢

xinjiana · 发表于 2009-10-20 08:15

temp = "delete * from Barcode工具库 where 往来单位=''"

等于号后面应该是单引号，上附件吧

烈日 · 发表于 2009-10-21 12:16

楼上的附件就在四楼，现在的缺点是输入后有多余空行，想添加删除空行的代码，请帮忙看看，或者有其他办法来解决问题，谢谢

烈日 · 发表于 2009-10-26 20:47

那，如果是判断第一列等于1的就删除阵列该如何写，求高手指点

		自动登录	找回密码
密码			免费注册

[求助] 求高手帮忙看看问题出在哪里