Private Sub M_Query()
strSQL = ""
If IsNull(Me.Text1) Then
strSQL = "format(检查时间,'yymmdd') LIKE '*'"
Else
strSQL = "format(检查时间,'yymmdd') = '" & Format(Me.Text1, "yymmdd") & "'"
End If
If IsNull(Me.Text2) Then
strSQL = strSQL & "检查地点 LIKE '*'"
Else
strSQL = strSQL + "AND 检查地点 LIKE '" & Me.Text2 & "*'"
End If
If IsNull(Me.Text3) Then
strSQL = "经营者姓名 LIKE '*'"
Else
strSQL = strSQL + "AND 经营者姓名 LIKE '*" & Me.Text3 & "*'"
End If
If bolSubVisible = False Then
Me.frmCaseInfomation.SourceObject = "frmCaseInfomation"
bolSubVisible = True
End If
If strSQL = "" Then
strSQL = "SELECT * FROM CaseDetail"
Else
strSQL = "SELECT * FROM CaseDetail WHERE " & strSQL
End If
Me.frmCaseInfomation.Form.RecordSource = strSQL
End Sub作者: Grant 时间: 2009-2-25 17:49
可以的话,上传一下附件作者: tz-chf 时间: 2009-2-25 17:50
所用事件不对吧作者: rcylbx 时间: 2009-2-25 18:56
在VBA中表示NULL值,我习惯用NZ(me.text)="",试试这种方法.作者: swc21 时间: 2009-2-25 20:32
是Text1_Change事件.在Text1_Change事件中所有的TEXT都是NULL;
但在Button_Click事件中的TEXT值却是准确的,即无值才是NULL
这是为什么呢?作者: Henry D. Sy 时间: 2009-2-25 20:41
try
me.text1.text作者: swc21 时间: 2009-2-25 21:08