Office中国论坛/Access中国论坛

标题: 为什么查询器隐藏后无法输入 [打印本页]

作者: chali1001 时间: 2021-4-3 20:54
标题: 为什么查询器隐藏后无法输入
我用平台生成窗体，发现查询器一经隐藏，再次显示时就无法输入。而平台示例的“测试窗体”没有这个问题。请问我应该如何解决？

作者: tmtony 时间: 2021-4-5 08:59
是指哪个查询器，可否截个图看看？

作者: chali1001 时间: 2021-4-5 11:52
标题: 这个窗体是用平台生成的，用最后一个功能键将查询器隐藏后，再显示查询器时就无法输入
本帖最后由 chali1001 于 2021-4-5 12:02 编辑

e:\64E72.jpg

作者: chali1001 时间: 2021-4-5 12:44
我将代码改成如下所示，查询器可以正常工作了，但我不知道为什么平台示例的测试窗体没有这个问题。请指教！

'查询器显示切换按钮
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

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