設為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 1501|回復: 3
打印 上一主題 下一主題

為什么查詢器隱藏后無法輸入

[復制鏈接]
跳轉到指定樓層
1#
發(fā)表于 2021-4-3 20:54:03 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
我用平臺生成窗體,發(fā)現(xiàn)查詢器一經隱藏,再次顯示時就無法輸入。而平臺示例的“測試窗體”沒有這個問題。請問我應該如何解決?
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱

點擊這里給我發(fā)消息

2#
發(fā)表于 2021-4-5 08:59:26 | 只看該作者
是指哪個查詢器,可否截個圖 看看?
3#
 樓主| 發(fā)表于 2021-4-5 11:52:23 | 只看該作者

這個窗體是用平臺生成的,用最后一個功能鍵將查詢器隱藏后,再顯示查詢器時就無法輸入

本帖最后由 chali1001 于 2021-4-5 12:02 編輯

e:\64E72.jpg

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
4#
 樓主| 發(fā)表于 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
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2025-7-17 05:16 , Processed in 0.101190 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表