Office中国论坛/Access中国论坛

标题: [求助]窗体查询de 问题？？谢谢// [打印本页]

作者: onlyfish 时间: 2005-8-27 21:11
标题: [求助]窗体查询de 问题？？谢谢//
以下是子窗体应用窗体查询，那改什么字符串让主窗体应用窗体查询啊？？谢了??/

Private Sub subquery_Click()

On Error GoTo Err_subquery_Click

Dim strWhere As String

strWhere = ""

If Not IsNull(Me.BLNO) Then



      strWhere = strWhere & "([BLNO] like '*" & Me.BLNO & "*') AND "

End If



   If Not IsNull(Me.VENDOR) Then



      strWhere = strWhere & "([VENDOR] like '*" & Me.VENDOR & "*') AND "

End If





If Len(strWhere) > 0 Then



      strWhere = Left(strWhere, Len(strWhere) - 5)

End If

Debug.Print strWhere

Me.EXTRA_CHARGE_LIST_subform.Form.Filter = strWhere

Me.EXTRA_CHARGE_LIST_subform.Form.FilterOn = True

Exit_subquery_Click:

Exit Sub

Err_subquery_Click:

MsgBox Err.Description

Resume Exit_subquery_Click

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)