请帮忙看看 炉号查询窗体的 查询不了

zss427607

请各位老师帮忙改正。谢谢了

laiguiyou

你引用了一个不存在的窗体。全部明细子窗体 改为：全部明细查询子窗体

laiguiyou

If Not IsNull(Me.Combo21) Then
        '有输入
        strWhere = strWhere & "([炉号] like '*" & Me.Combo21 & "*') AND "
    End If

zss427607

还是不行呀？
可以帮忙改正吗？

qlm

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

先谢谢了   但是还是不行呀？  
各位老师   可不可以  把改好的附件上传呀?
谢谢了！！！！