设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1080|回复: 4
打印 上一主题 下一主题

[查询] 查询时总是会弹出一个参数输入框,怎么去掉?

[复制链接]
跳转到指定楼层
1#
发表于 2008-2-19 15:24:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我自己做了一个查询输入界面,有大概10个查询条件项,要求任何一个项都可以有值,也可以没有值。
如果都没有值,就列出所有记录。如果有值,则按多条件来查询。
其中查询部分的判断条件如下:

Private Function slfStartFilter()   'test
    Dim cnt As Integer  
    cnt = 0
   
    If Me.机种名 <> "" Then
        srhKey = "[机种名] like '" & Me.机种名 & "'"
        cnt = cnt + 1
    End If
   
    If Me.机种No <> "" Then
        If cnt > 0 Then srhKey = srhKey & " and "
        srhKey = srhKey & "[机种No] like '" & Me.机种No & "'"
        cnt = cnt + 1
    End If
   
    If Me.YXJ_No <> "" Then
        If cnt > 0 Then srhKey = srhKey & " and "
        srhKey = srhKey & "[YXJ_No] like '" & Me.YXJ_No & "'"
        cnt = cnt + 1
    End If
   
    If Me.配置123 <> "" Then
        If cnt > 0 Then srhKey = srhKey & " and "
        srhKey = srhKey & "[配置123] like '" & Me.配置123 & "'"
        cnt = cnt + 1
    End If
   
   
    DoCmd.OpenForm "F_配给清单"
End Function
---------------------------------
以上 机种名,机种No,YXJ_No,配置123 是数据库中的字段,也是查询项中的控件名,问题在于当YXJ_No和配置123有值时的查询,就会弹出一个参数输入框,其他的不会,请问怎么回事?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-2-19 16:03:03 | 只看该作者
在线等,请帮忙

点击这里给我发消息

3#
发表于 2008-2-19 16:08:28 | 只看该作者
看得有点眼花,你不如发个例子上来
4#
 楼主| 发表于 2008-2-19 16:53:29 | 只看该作者
我找到问题了,是因为涉及到2个不同的数据库,有些字段是数据库a的,有些是b的
5#
 楼主| 发表于 2008-2-19 17:32:02 | 只看该作者
已经搞定,是我的字段名写错了,呵呵!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 14:51 , Processed in 0.095175 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表