Office中国论坛/Access中国论坛

标题: 新人求助我根据网上有一个Access2003开发仓库管理系统的教程一步步做但是有很多问题 [打印本页]

作者: 那一年，今年 时间: 2013-9-8 14:15
标题: 新人求助我根据网上有一个Access2003开发仓库管理系统的教程一步步做但是有很多问题
入库时代码如下

Private Sub cmdMod_Click()

Dim curdb As Database

Dim curRS As Recordset

Dim 库存信息Cnt As Integer

Set curdb = CurrentDb

Set curRS = curdb.OpenRecordset("select * from 库存信息 where 消耗材料号=' " & 消耗材料号.Value & "'")

If Not curRS.EOF Then

库存信息Cnt = curRS.Fields("现有库存")

库存信息Cnt = 库存信息Cnt + CInt(入库数量.Value)

curdb.Execute "update 库存信息 set 现有库存=" & 库存信息Cnt & ",总数=" & curRS.Fields("_总数").Value + CInt(入库数量.Value) & " where 消耗材料号='" & 消耗材料号.Value & "'"

Else

End If

curdb.Execute "insert into 操作信息(操作员,操作内容,操作时间) values ('管理员','消耗材料出库','" & CDate(入库时间.Value) & "')"

cmdAdd.Enabled = True

cmdAdd.SetFocus

cmdMod.Enabled = False

End Sub

此段代码在走到 If Not curRS.EOF Then之后不走

库存信息Cnt = curRS.Fields("现有库存")

库存信息Cnt = 库存信息Cnt + CInt(入库数量.Value)

这一段代码直接跳到后面的ELSE

不知道拿错了求大神帮助或者就是网上那片教程能跑的源码有提供的最好了新人给大家跪舔了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)