[求助]代码运行错误!拜托一下大家了!

文双雪

--------------------------------------------

Option Compare Database

Private Sub cmdAdd_Click() '添加记录 On Error GoTo Err_cmdAdd_Click 'DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acNewRec cmdMod.Enabled = True cmdMod.SetFocus cmdAdd.Enabled = False Exit_cmdAdd_Click: Exit Sub

Err_cmdAdd_Click: MsgBox Err.Description Resume Exit_cmdAdd_Click End Sub

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 库存表 where 产品编号 ='" & 产品编号.Value & "'") If Not curRS.EOF Then deviceCnt = curRS.Fields("库存量") deviceCnt = deviceCnt + CInt(进库数量.Value) curdb.Execute "update 库存表 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 ------------------------------

感觉

关键字为空。或添加数据，或修改索引

文双雪

要怎么修改呢?小妹我很菜的,TOT

文双雪

拜托各们大哥了!

wan_shan

在表的设计视图中找找看：把关键字（前有一个钥匙图案）和索引（如果设置了“有”）字段里的空值加进数据，或者把它们的关键字和索引属性去掉！