利用Dcount函数控制按钮是否可用。

情况概述:
有学员问,在"订单号码"组合框更新后设置,使用"生成合同"按钮,但是因为订单号码有部分已经生成合同,导致生成合同有重复,问怎么解决这个问题？

如下图:

解决办法:
在订单编辑窗体加载时,禁止"生成合同"按钮使用,在"订单号码"组合框更新后,使用代码判断该订单号码是否已经生成合同号码,假如没有生成就使"生成合同"按钮可用,点击"生成合同"按钮生成合同。

Private Sub Form_Load()
'其余代码省略
btn生成合同.Enabled =false '禁用"生成合同"按钮
End Sub

Private Sub 订单号码_AfterUpdate()
'其余代码省略
if Dcount("*" ,tbl合同表,"订单号='" & me.订单号码 & "'")>0 then
msgbox "订单号码已经生成合同,不能重复生成"
Exit Sub
End if

btn生成合同.Enabled =true '使"生成合同"按钮可以使用

End Sub