菜鸟先飞 发表于：2008-12-03 11:53:06
If IsNull(DLookup("产品名称", "tblrk1", "产品编号='" & Me.代码 & "'" & "and 入库时间 = #" & Me.起始时间 & "#")) Then
起始时间一为空系统就报错 无法运行，怎么能让起始时间为空也不报错
Dim tf As Boolean
If IsNull(Me.起始时间) And IsNull(Me.入库时间) Then tf = IsNull(DLookup("产品名称", "tblrk1", "产品编号='" & Me.代码 & "'"))
If IsNull(Me.起始时间) And (Not IsNull(Me.入库时间)) Then tf = IsNull(DLookup("产品名称", "tblrk1", "产品编号='" & Me.代码 & "'" & "and 入库时间 = #" & Me.入库时间 & "#"))
If IsNull(Me.入库时间) And (Not IsNull(Me.起始时间)) Then tf = IsNull(DLookup("产品名称", "tblrk1", "产品编号='" & Me.代码 & "'" & "and 起始时间 = #" & Me.起始时间 & "#"))
If (Not IsNull(Me.入库时间)) And (Not IsNull(Me.起始时间)) Then tf = IsNull(DLookup("产品名称", "tblrk1", "产品编号='" & Me.代码 & "'" & "and 入库时间 = #" & Me.起始时间 & "#"))
If tf Then
总记录：1篇 页次：1/1 9 1 :
