Office中国论坛/Access中国论坛

标题: 请帮忙看看炉号查询窗体的查询不了 [打印本页]

作者: zss427607 时间: 2008-4-11 07:49
标题: 请帮忙看看炉号查询窗体的查询不了
请各位老师帮忙改正。谢谢了

作者: laiguiyou 时间: 2008-4-11 08:08
你引用了一个不存在的窗体。全部明细子窗体改为：全部明细查询子窗体

作者: laiguiyou 时间: 2008-4-11 08:15
If Not IsNull(Me.Combo21) Then
'有输入
strWhere = strWhere & "([炉号] like '*" & Me.Combo21 & "*') AND "
End If

作者: zss427607 时间: 2008-4-13 13:21
还是不行呀？
可以帮忙改正吗？

作者: qlm 时间: 2008-4-13 15:29
Private Sub 命令18_Click()
On Error GoTo Err_命令18_Click

Dim strWhere As String  '定义条件字符串

'判断【炉号查询】条件是否有输入的值
If Not IsNull(Me.炉号查询) Then
      '有输入
      strWhere = "炉号 like  " & "*" & Combo21 & "*"


End If

If Len(strWhere) > 0 Then
      '有输入条件
      strWhere = "'" & Left(strWhere, Len(strWhere) - 5) & "'"
End If

'让子窗体应用窗体查询

Me.全部明细查询子窗体.Form.Filter = strWhere
Me.全部明细查询子窗体.Form.FilterOn = True
'Me.Refresh
'Me.Requery

Exit_命令18_Click:
Exit Sub

Err_命令18_Click:
MsgBox err.Description
Resume Exit_命令18_Click
End Sub

作者: zss427607 时间: 2008-4-13 21:13
先谢谢了但是还是不行呀？
各位老师可不可以把改好的附件上传呀?
谢谢了！！！！

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