Office中国论坛/Access中国论坛

标题: [已解决]帮忙看看我的一个窗体查询，问题在那 [打印本页]

作者: lzymbz 时间: 2008-1-15 03:31
标题: [已解决]帮忙看看我的一个窗体查询，问题在那
就是表和查询在一个窗体上
输入条件按查询后

在下面出现查询到的数据

可以修改，删除等等

别的都做好了

就是查询不行

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

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

往哪个好心人给改改

[attach]27910[/attach]

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

作者: tmtony 时间: 2008-1-15 09:16
天啦,两个比我还晚的人, 一个3点多,一个5点多!!

作者: lzymbz 时间: 2008-1-15 14:27
谢谢啦
刚起床，过会试试
这里交流环境不错啊

作者: lzymbz 时间: 2008-1-15 15:07
我的交款单位没表
是随时打的
所以只有交款明细中有交款单位名称
我想在交款明细中查

现在这个

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 时间: 2008-1-15 15:10
提示
If Len(strwhere) > 0 Then
出错
我有源码您可以试试
顶楼有下载

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

作者: lzymbz 时间: 2008-1-15 15:20
知道了
把
If Len(strwhere) > 0 Then

改为

If Len(strwhere) > 0 Then

就好了
从别的源码看到的

不知有何区别

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