假设子窗体的数据表源于一个叫做“计件表”的数据表，假设该表存在一个外键叫做“工单ID”,假设存在一个“工单表”，该表存在一个主键叫做“工单ID”,则：
if Dcount("*","计件表","工单ID=" & Dlookup("工单ID","工单表","单号='" & me.Parent.Controls("单号").value & "' and 工序='" & me.工序.value & "'"))=0 then
'处理语句
else
msgbox "该工序已存在！"
end if
为什么会出现“您取消了前次操作”的错误，我是放在失去焦点的地方的。
具体代码“
If DCount("*", "计件汇总报表明细", "工序=" & DLookup("工序", "计件汇总报表", "单号='" & Me.Parent.Controls("单号").Value & "' and 工序='" & Me.工序.Value & "'")) = 0 Then
'处理语句
Else
MsgBox "该工序已存在！"
End If
End Sub
没道理。
工序不可能即等于甲又等于乙吧。
此外字符型数据注意前后都需要单引号。
If DCount("*", "计件汇总报表明细", "单号='" & Me.Parent.Controls("单号").Value & "' and 工序='" & Me.工序.Value & "'")) = 0 Then
你好
现在出现重复不提示，不重复反而提示了。
Private Sub 工序_AfterUpdate()
If DCount("*", "计件汇总报表明细", "单号='" & Me.Parent.Controls("单号").Value & "' and 工序='" & Me.工序.Value & "'") = 0 Then '处理语句
MsgBox "该工序已存在！"
Else
Me.生产指标 = Me.工序.Column(1)
Me.完成总数 = Me.工序.Column(2)
Me.超产单价 = Me.工序.Column(3)
End If
End Sub
等于0 是不是存在呀，不等于0才是存在嘛。
If DCount("*", "计件汇总报表明细", "单号='" & Me.Parent.Controls("单号").Value & "' and 工序='" & Me.工序.Value & "'") <> 0 Then
msgbox "该工序已存在！"
me.工序.value=null
End If
Private Sub 工序_AfterUpdate()
If DCount("*", "计件汇总报表明细", "单号='" & Me.Parent.Controls("单号").Value & "' and 工序='" & Me.工序.Value & "'") = 1 Then '处理语句
MsgBox "该工序已存在！"
Else
Me.生产指标 = Me.工序.Column(1)
Me.完成总数 = Me.工序.Column(2)
Me.超产单价 = Me.工序.Column(3)
End If
End Sub
总记录：7篇 页次：1/1 9 1 :
