当前位置: 代码迷 >> Access >> 大家帮小弟我看下,为什么老报错
  详细解决方案

大家帮小弟我看下,为什么老报错

热度:186   发布时间:2016-05-06 02:28:27.0
大家帮我看下,为什么老报错
Private Sub cmdMod_Click()
  Dim curdb As Database
  Dim curRS As Recordset
  Dim deviceCnt As Integer
  Set curdb = CurrentDb
  Set curRS = curdb.OpenRecordset("select * from kc where 元器件号='" & 元器件号.Value & "'")
  If Not curRS.EOF Then
  deviceCnt = curRS.Fields("库存量")
  deviceCnt = deviceCnt + CInt(进库数量.Value)
  curdb.Execute "update kc set 库存量=" & deviceCnt & _
  " where 产品号='" & 产品号.Value & "'"
  Else
  With curRS
  .AddNew
  .Fields("元器件号") = 元器件号.Value
  .Fields("库存量") = CInt(进库数量.Value)
  .Fields("存放地点") = "第一教室"
  .Update
  End With
  End If
  cmdAdd.Enabled = True
  cmdAdd.SetFocus
  cmdMod.Enabled = False
End Sub
为什么老报 用户定义类型未定义呢?谢谢大家了

------解决方案--------------------
在窗体设计中->工具->引用
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Tue Jul 25 00:42:02 CST 2017
  • 最近登录:Tue Jul 25 00:42:02 CST 2017
  • 最近登录:Tue Jul 25 00:42:02 CST 2017
  • 最近登录:Tue Jul 25 00:42:02 CST 2017
  • 最近登录:Tue Jul 25 00:42:02 CST 2017