设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

为什么查询器隐藏后无法输入

[复制链接]
跳转到指定楼层
1#
发表于 2021-4-3 20:54:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我用平台生成窗体,发现查询器一经隐藏,再次显示时就无法输入。而平台示例的“测试窗体”没有这个问题。请问我应该如何解决?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2021-4-5 08:59:26 | 只看该作者
是指哪个查询器,可否截个图 看看?
3#
 楼主| 发表于 2021-4-5 11:52:23 | 只看该作者

这个窗体是用平台生成的,用最后一个功能键将查询器隐藏后,再显示查询器时就无法输入

本帖最后由 chali1001 于 2021-4-5 12:02 编辑

e:\64E72.jpg

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2021-4-5 12:44:52 | 只看该作者
我将代码改成如下所示,查询器可以正常工作了,但我不知道为什么平台示例的测试窗体没有这个问题。请指教!

'查询器显示切换按钮
Private Sub cmdShowFilter_Click()
    On Error Resume Next
    Application.Echo False
    With Me.sfmQuery
'        .Visible = Not .Visible '可见切换
        If Me.cmdShowFilter.Caption = "↓" Then
'        If .Visible Then
            Me.cmdShowFilter.Caption = "↑"
'            .Top = .Top + QHeight
            .Height = 830
        Else
            Me.cmdShowFilter.Caption = "↓"
'            Me.Section(1).Height = Me.Section(1).Height - 820
'            .Top = .Top - .height
            .Height = 0
        End If
        
        Me.Section(1).Height = Me.Section(1).Height - 830
    End With

'    Call Form_Resize            '刷新窗体
    Application.Echo True
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 09:30 , Processed in 0.082375 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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