这个VBA语句与ACC有什么问题？

sunsoncheng

下面是在用的一个程式中抽出的部分语句，发现其有时出现问题！若更详细的资料请查看，下面地址中7楼的附件！ http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=171177&replyID=&skin=0 在上述附件中的加工钻孔流程表模块中的加工流程表过程中出现了以下的语句： Set rs = Nothing strSQL = "Select * from 加流程表 " rs.Open strSQL, CNN, 3, 4, 1 rs.addNew rs("输入日期") = Now: rs("班组") = "加工": rs("页码") = .Cells(2, 20) '流程表页码 rs("机台") = .Cells(19, 8): rs("下工序") = .Cells(20, 8) rs("备注") = .Cells(21, 8): rs("班次") = .Cells(22, 8) rs("生产人员") = .Cells(23, 8): rs("生产日期") = .Cells(24, 8) rs("单号") = B: rs("序号") = C rs("数量") = IIf(Val(Trim(.Cells(i, 8))) = 0, 0, .Cells(i, 8)) '因为可能的转单问题,将空的也作0来处理! rs.UpdateBatch '上面一段的作用是在网络形式下将相关的生产资料记录到一个叫做《加流程表》的数据库表中，因都是第一次记录所以用ADDNEW，现在用批量更新的模式对吗？ Set rs = Nothing '总数据记录修改 '之前该表已是在入数时记入! strSQL = "Update 数据记录 Set 加数量 = iif(IsNull(加数量) ," & .Cells(i, 8) & ",加数量+" & .Cells(i, 8) & ") " & _ "where 单号 Like '" & B & "' and 序号 LIKE '" & C & "'" rs.Open strSQL, CNN, 3, 4, 1 '上面的作用是将流程表中的分散的数据集中到一个叫做《数据记录》中，因同一个单号序号的可能要分为多次生产，只在存在时才会修改。 现在的问题是：rs.addNew 到 rs.UpdateBatch一段确实已记录到数据库了! 但下面一段Update 数据记录 Set 加数量。。。。却不能记录，不知原因在那！，更难以明白的是不是所有的时候都这样！有时而已！但又找不出规律！ 因为我没用on error 之类的语句！出现类型不配合问题的话一定会出错！但现在没有！要真有类型问题时第一个也不能记录的！，设置的类型是一样的 再有一个怪问题：我现在上网的这台机用同样的程序将数据记录到数据库中时会被告诉其它机独占打开了！本机重启也出现同样的结果 而用网上邻居的方式打开该数据库时，却完全正常！

zhengjialon

strSQL = "Update 数据记录 Set 加数量 = iif(IsNull(加数量) ," & .Cells(i, 8) & ",加数量+" & .Cells(i, 8) & ") " & _
"where 单号 Like '" & B & "' and 序号 LIKE '" & C & "'"
rs.Open strSQL, CNN, 3, 4, 1
改成一句:

docmd.runsql "Update 数据记录 Set 加数量 = iif(IsNull(加数量) ," & .Cells(i, 8) & ",加数量+" & .Cells(i, 8) & ") " & _
"where 单号 Like '" & B & "' and 序号 LIKE '" & C & "'"
试试

sunsoncheng

先谢过版主

 这个是没有定义哦 docmd，是不是串错？：）

[此贴子已经被作者于2006-6-21 12:54:43编辑过]

sunsoncheng

因为我现在的语句是部分时间不行（未找到规律），所以版主的语句也要测试一段地时间才能证明是否有作用！

这种修改的语句是如何知道它是否已执行？也就是说，只用一个语句，首先确定，是否存在要修改的记录，再就是存在，如何才知道数据已被修改？

就如现在的情况，这张表本来就有汇总的功能，要没有这张表在后在的查询中将出现大串的语句！

这张表是中介的作用！不会让人查出来，不是偶然的因素，还不知道出了问题，所以要能有上面的及时自我检查功能就好多了！

zhengjialon

docmd.RunSQL 没有定义?你是在ACCESS中运行的吗?