我的代码如下:
Private Sub AslMatieralCode_BeforeUpdate(Cancel As Integer)
On Error Resume Next
nData = Me.AslMatieralCode
luv = DCount("*", "code", "是否取消=false and 存货编码='" & nData & "'")
If luv = 0 Then
Cancel = true
DoCmd.OpenForm "mainCodeSel"
End If
End Sub
经测试,CANCEL=TRUE和CANCEL=1的效果是一样的。
另外,我的数据表是SQL SERVER的链接表。
谁能帮一下?