请版主跟各位大哥帮帮忙。急急急。。

zglsky

请版主跟各位大哥帮帮忙，在里在的filter为什么不行，
我是想做查询后的打印，真的不知道为什么不行,请不要改变模糊查询。

[此贴子已经被作者于2004-1-13 9:03:45编辑过]

zglsky

怎么这里没人答我的问题的，难道我的问题太无聊了

yahai

版主可能现在没空，而我这个新手又解决不了，再等等吧……

gnoy

filter使用不对请按F1。以下已经调试通过
Option Compare Database
Dim firstcriterion As Boolean
Dim str2 As String
Option Explicit

Private Sub 命令2_Click()
On Error GoTo Err_命令2_Click

    Dim stDocName As String

    stDocName = "表1"
    If 表1.Form.FilterOn Then
        DoCmd.OpenReport stDocName, acPreview, , 表1.Form.Filter
    Else
        DoCmd.OpenReport stDocName, acPreview
    End If

Exit_命令2_Click:
    Exit Sub

Err_命令2_Click:
    MsgBox Err.Description
    Resume Exit_命令2_Click
   


End Sub

Private Sub 命令29_Click()
firstcriterion = True
str2 = "" 'SELECT 表1.序号,表1.合同编号, 表1.对方名称, 表1.合同名称, 表1.合同标的, 表1.承办部门, 表1.存放地, 表1.签定日期 FROM 表1"


If Not IsNull(合同编号) Then
    str2 = str2 & "  合同编号 like '*" & 合同编号 & "*'"
    firstcriterion = False
End If

jump1:
If Not IsNull(对方名称) Then
     If firstcriterion Then
        str2 = str2 & " 对方名称 like '*" & 对方名称 & "*'"
        firstcriterion = False
     Else
        str2 = str2 & " and 对方名称 like '*" & 对方名称 & "*'"
     End If
   End If
If Not IsNull(合同名称) Then
   If firstcriterion Then
      str2 = str2 & " 合同名称 like '*" & 合同名称 & "*'"
      firstcriterion = False
   Else
      str2 = str2 & " and 合同名称 like '*" & 合同名称 & "*'"
   End If
End If
If Not IsNull(承办部门) Then
   If firstcriterion Then
      str2 = str2 & " 承办部门 like'*" & 承办部门 & "*'"
      firstcriterion = False
   Else
      str2 = str2 & " and 承办部门 like'*" & 承办部门 & "*'"
   End If
End If
If Not IsNull(存放地) Then
   If firstcriterion Then
      str2 = str2 & "  存放地 like'*" & 存放地 & "*'"
      firstcriterion = False
   Else
      str2 = str2 & " and 存放地 like'*" & 存放地 & "*'"
    End If
  End If
If Not IsNull(合同标的) Then
   If firstcriterion Then
      str2 = str2 & "  合同标的 like'*" & 合同标的 & "*'"
      firstcriterion = False
   Else
      str2 = str2 & " and 合同标的 like'*" & 合同标的 & "*'"
  End If
End If
If Not IsNull(签定日期) Then
   If firstcriterion Then
      str2 = str2 & "  签定日期 like'*" & 签定日期 & "*'"
      firstcriterion = False
   Else
      str2 = str2 & " and 签定日期 like'*" & 签定日期 & "*'"
    End If
  End If
jump2:
      
      [表1].Form.Filter = str2
      [表1].Form.FilterOn = True
      '[表1].Form.RecordSource = str2
End Sub

zglsky

等不了，那位大哥可以帮一下忙。谢谢

WTM1

晕！！楼上那位不是已经解决了吗？？

我也是这样认为得！
jump2:

表1.Form.Filter = str2
有误！

zglsky

先谢谢各位版主的指教。
想请教一下，不用WHERE对模糊查询会不会有什么影响？