Question

ACCESS数据库问题

Private Sub Command8_Click()
If 入库数量 > 0 Then
库存数量 = 库存数量 + 入库数量
入库单号 = ""
入库数量 = ""
入库日期 = ""
Combo28 = ""
Else:
MsgBox ("你输入的库存数量有误！")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
当不符合条件的时候不要保存数据怎么弄？？？

Answer 1

Private Sub Command8_Click()
on error goto Err_Command8_Click
If 入库数量 > 0 Then
库存数量 = 库存数量 + 入库数量
入库单号 = ""
入库数量 = ""
入库日期 = ""
Combo28 = ""

MsgBox ("你输入的库存数量有误！")
exit sub ''''''''''''''''''''''''

Else '这里去掉了冒号
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If

Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub

Answer 2

docmd那一行移动到else上面去
else后面怎么会有：的……

Answer 3

直接end if 即可

Answer 4

是不是数据库的数据无法更新啊，还是在提交时，超时呢，如果是无法更新，看下数据表有没有设置了主键，超时的话，就修改下超时限制