求助andymark及各位大虾

nw168

编制程序如下, 运行结果都显示正常, 可查询"入库记录"和"仓库信息"两个数据库, 并没有更新数据, 求教问题在哪里, 非常感谢!

Private Sub 商品入库_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "Select * from 商品 where 商品编号 = '" & Me.商品编号 & "'"
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
    If Not (rst.EOF) Then
        '添加入库记录
        sql = "select * from 入库记录"
        'rst.Close
        Set rst = Nothing
        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenKeyset
        rst.LockType = adLockBatchOptimistic
        rst.Open sql
            With rst
            .AddNew
            !编号 = Me![编号]
            !仓库编号 = Me![仓库编号]
            !入库日期 = Me![入库日期]
            !经手人 = Me![经手人]
            !商品编号 = Me![商品编号]
            !数量 = Me![数量]
            !采购价格 = Me![采购价格]
            !供应商编号 = Me![供应商编号]
            !备注 = Me![备注]
            End With
        rst.Close
        Set rst = Nothing
        '添加或者修改库存信息
        sql = "select * from 仓库信息 where 仓库编号 = " & Me![仓库编号] & " And 商品编号 = '" & Me![商品编号] & "'"
        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic
        rst.Open sql
        If Not (rst.EOF) Then
            number = rst!当前库存数量
            number = number + Me![数量]
            rst!当前库存数量 = number
            rst.Close
            Set rst = Nothing
            sql = "当前库存数量为: " & number
            MsgBox sql
            Exit Sub
        Else
            With rst
                .AddNew
                !仓库编号 = Me![仓库编号]
                !商品编号 = Me![商品编号]
                !当前库存数量 = Me![数量]
            End With
            Exit Sub
            Me.Visible = False
        End If
    Else
        rst.Close
        Set rst = Nothing
        MsgBox "系统中没有该商品的信息, 请先添加商品详细信息"
        Exit Sub
        Me.Visible = False
    End If
End Sub

红尘如烟

最好把具体文件发上来，光看代码我头晕

Grant

忘记更新了update

nw168

在

With rst
            .AddNew
            !编号 = Me![编号]
            !仓库编号 = Me![仓库编号]
            !入库日期 = Me![入库日期]
            !经手人 = Me![经手人]
            !商品编号 = Me![商品编号]
            !数量 = Me![数量]
            !采购价格 = Me![采购价格]
            !供应商编号 = Me![供应商编号]
            !备注 = Me![备注]
            End With
后加了 .Update, 还是不行。 在调试状态下， 看到With模块这里显示“对象变量或With块变量未设置”

不知是什么问题？

wuaza

把Set rst = Nothing改成rst.Close

nw168

也不行, 郁闷!

Grant

            .AddNew
            !编号 = Me![编号]
            !仓库编号 = Me![仓库编号]
            !入库日期 = Me![入库日期]
            !经手人 = Me![经手人]
            !商品编号 = Me![商品编号]
            !数量 = Me![数量]
            !采购价格 = Me![采购价格]
            !供应商编号 = Me![供应商编号]
            !备注 = Me![备注]

            .update           

而End With应该在其后,不然..可以rst.update

andymark

update放在end with 前面,另建议用2个Recordset分开处理

nw168

感谢两位兄弟的帮助, 试了一下,还是不行。想把程序发给两位帮忙看一下，可以吗？

Grant

精简压缩后发到论坛就可以了~