[已解决]帮忙看看我的一个窗体查询，问题在那

lzymbz

就是表和查询在一个窗体上
输入条件 按查询后

在下面出现查询到的数据

可以修改，删除等等

别的都做好了

就是查询不行

看了几个源码好像是我太笨了

都没试出了，每次改的错误都不一样

往哪个好心人给改改




[ 本帖最后由 lzymbz 于 2008-1-15 20:55 编辑 ]

tmtony

天啦,两个比我还晚的人, 一个3点多,一个5点多!!

lzymbz

谢谢啦
刚起床，过会试试
这里交流环境不错啊

lzymbz

我的交款单位没表
是随时打的
所以只有交款明细中有交款单位名称
我想在交款明细中查

现在这个

Private Sub 查询_Click()

    If Not IsNull(Me![查询条件]) Then
        strwhere = strwhere & "([交款单位] like '*" & Me![查询条件] & "*') and "
    End If

    If Len(strwhere) > 0 Then
        strwhere = Left(strwhere, Len(strwhere) - 5)
        Me.Filter = strwhere
        Me.FilterOn = True

        'Me.RecordSource = "select * from 收款明细 where '" & strwhere & "'"
    End If

Exit_查询_Click:
    Exit Sub

Err_查询_Click:
    MsgBox Err.Description
    Resume Exit_查询_Click
End Sub

好像还有问题

lzymbz

提示
    If Len(strwhere) > 0 Then
出错
我有源码您可以试试
顶楼有下载

初学
只能照猫画猫
照猫画虎就有可能错

lzymbz

知道了
把
If Len(strwhere) > 0 Then

改为

If Len(strwhere) > 0 Then

就好了
从别的源码看到的

不知有何区别