求助andymark及各位大虾

nw168

文件压缩后还有2.2M, 无法上传。我的邮件地址是： nw168@citiz.net, 能告知电子邮件吗？谢谢！

一点通

将无关联的东西全部删除,然后再用ACCESS自带的压缩功能压缩一下

nw168

根据 Andymark的建议, 把2个Recordset分开处理， 问题解决， 非常感谢！



还有一个小问题：

If Not (Rs_kc.EOF) Then
            number = Rs_kc!当前库存数量
            number = number + Me![数量]
            Rs_kc!当前库存数量 = number
            Set Rs_kc = Nothing
            Db_kc = "当前库存数量为: " & number
            MsgBox Db_kc


执行该段代码， MsgBox 反馈数字正确，可不对数据库进行数据更新。后增加update语句如下：

Update 仓库信息.当前库存数量 Set 仓库信息.当前库存数量 = number where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = " & Me![商品编号] & "

可总显示语句出错，请教！

andymark

try

Update 仓库信息.当前库存数量 Set 仓库信息.当前库存数量 = " & number & " where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = " & Me![商品编号] & "

nw168

显示编译错误：

缺少语句结束。

andymark

Update 仓库信息 Set 仓库信息.当前库存数量 = " & number & " where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = " & Me![商品编号] & "

nw168

Db_kc = "select * from 仓库信息 where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = '" & Me![商品编号] & "'"
        Set Rs_kc = New ADODB.Recordset
        Rs_kc.ActiveConnection = CurrentProject.Connection
        Rs_kc.CursorType = adOpenDynamic
        Rs_kc.LockType = adLockOptimistic
        Rs_kc.Open Db_kc
        If Not (Rs_kc.EOF) Then
            number = Rs_kc!当前库存数量
            number = number + Me![数量]
            Rs_kc!当前库存数量 = number
            'Rs_kc.Close
            'Set Db_kc = Nothing
            Db_kc = "当前库存数量为: " & number
            MsgBox Db_kc
            
            Update 仓库信息 Set 仓库信息.当前库存数量 = " & number & " where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = " & Me![商品编号] & "
            

            Exit Sub
        Else
            With Rs_kc
                .AddNew
                !仓库编号 = Me![仓库编号]
                !商品编号 = Me![商品编号]
                !当前库存数量 = Me![数量]
                .Update
            End With
            Exit Sub
            Me.Visible = False

还是不行，抱歉，麻烦再看看这段程序，主要是怎么更新当前库存数量。update语句好象不完整（显示缺少语句结束），不知道为什么。谢了

eyewitnes

把你的update语句用DEBUG.PRINT 打印出来,然后粘贴到一个新建的查询里面运行或者保存一下就知道哪里有问题了