新人求助 我根据网上有一个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)

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

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

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