关于借书窗体出现故障码424

张华　发表于：2018-11-23 11:00:58 　

复制

点击下载此附件

关于借书窗体出现故障码的情况，在借书前追加两个条件，第一，当可借数量为 0情况下，判断不能借出，这个可实现，

问题在第二个，当可借数量在大于或等于1情况下，实现不了借出，出现424故障码？

请各位老师指导第二个问题的解决方法，谢谢！

Top

leoyoung 发表于：2018-11-23 14:51:31

.....

'判断“图书借阅”数据表是否为空

If Rs.RecordCount < 1 Then

.......

Rs修改为rst即可。

Top

张华发表于：2018-11-23 16:22:54

改了rst后，在可借数量为 0情况下，仍可借出？希望更改rst后，同样能在可借数量为 0条件下，可实现判断不能借出

Top

leoyoung 发表于：2018-11-23 17:57:49

If Me![图书信息子窗体]![可借数量] < 1 Then
'弹出提示输入操作人员的错误信息窗口
MsgBox "您选择的：“" & Me![图书信息子窗体]![书名] & "”,目前库存不足，恕不能借阅，请改天再借！", _
vbCritical, "图书库存不足"

.....

粗体部分修改为下列语句试试：

DLookup("可借数量", "图书信息", "科内编号='" & Me!科内编号 & "'") < 1

Top

张华发表于：2018-11-26 08:46:53

还是不行，现在就变回原样，当可借数量为1时，仍出现故障码

If DLookup("可借数量", "图书信息", "科内编号='" & Me!科内编号 & "'") < 1 Then

'弹出提示输入操作人员的错误信息窗口
MsgBox "您选择的：“" & Me![图书信息子窗体]![书名] & "”,目前库存不足，恕不能借阅，请改天再借！", _
vbCritical, "图书库存不足"
Exit Sub
End If
'判断“图书借阅”数据表是否为空
If Rs.RecordCount < 1 Then
'如果为空，则表示选中图书肯定未被借过，把Cunzai值设为False
Cunzai = False
Else

Top

张华发表于：2018-11-26 11:16:51

可以了，感谢老师指导，非常感谢！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

关于借书窗体出现故障码424