按回车键搜索值文本框答案

【问题标题】：Press enter to search values text box按回车键搜索值文本框
【发布时间】：2015-06-04 19:13:18
【问题描述】：

我知道这个问题之前已经回答过，但我无法按照说明进行操作。

This 答案似乎很到位，但我根本不知道如何在任何设置中设置默认按钮。我只是在属性菜单或“查看代码”区域中看不到此选项。

我也找不到一个很好的例子来说明如何在任何代码中实现这一点，感谢任何帮助。

我尝试将以下代码添加到搜索文本框的 Enter 事件中：

Me.Toggle47.DefaultValue = True

现在当我按下回车键时，按钮被按下，但没有应用过滤器。

这可能与我在宏生成器中制作按钮有关吗？如果我进入设计视图并突出显示搜索按钮，我可以在属性表中看到 On Click 命令是一个嵌入式宏，具体来说，

ApplyFilter Where Condition = [Name] Like "*" & [Forms]![2-Add/Edit Chemical]![txtNameSearch] & "*"

我使用宏生成器而不是在“查看代码”区域中执行此操作是否存在问题？我不确定为什么会这样，但我又是 MSA 的新手。谢谢。

【问题讨论】：

你能给我们一张你的属性窗口上“其他”标签的屏幕截图吗？
您所指的答案是命令按钮，它具有.Default 属性，与您尝试使用的切换按钮的.DefaultValue 属性不同。我认为切换按钮没有.Default 属性供您像这样使用。
如果切换到命令按钮可以解决这个问题，我肯定会试一试。我研究了切换与命令，并没有看到太大的区别。这种差异似乎很大。

标签： ms-access

【解决方案1】：

您可以将表单的KeyPress 事件设置为监听被按下的回车键（回车键是 KeyAscii 编号 13）。

Private Sub Form_KeyPress(KeyAscii As Integer)

    If _
        KeyAscii = 13 _
    Then

        Me.Filter = "Name Like '*" & Me.txtNameSearch & "*'"
        Me.FilterOn = True

    Else

        ' code you want to run when something other than Enter key is pressed
        ' (probably leave this blank)

    End If

End Sub

我认为您还需要将表单的 Key Preview 事件设置为“是”才能使其正常工作（位于表单事件列表的底部）

【讨论】：

谢谢，这是有道理的，不幸的是我一直依赖宏生成器。您能否指出正确的方向以获得与单击“宏生成器”>>应用过滤器>>条件：[Name] Like "*" & [Forms]![2-Add/Edit Chemical]![txtNameSearch] & "*"类似的结果。我只是不太确定何时应该在 Then 函数之后。
您可以张贴您的表单的屏幕截图吗？将过滤器应用于什么是表单或子表单或其他什么？
刚刚在上面发布了一个屏幕。表单视图是“拆分表单”。过滤器正在应用于列出所有项目的查询。
@user3564760 我想说马特霍尔的答案将是你所需要的。我一直在寻找在宏中访问 Keyascii 的方法，但似乎不可能。
感谢 Matt，我已输入您的代码并将密钥预览更改为“是”，效果很好！

【解决方案2】：

我添加这个答案是因为我发现了多种解决方案，它们的工作方式都略有不同。

Matt Halls 的回答效果很好，是我目前正在使用的。
另一个有效的解决方案是将我的搜索切换按钮转换为搜索命令按钮。显然，命令按钮具有Default 的附加属性值，如果设置为Yes，将在按下 Enter 键时触发。这个解决方案似乎和马特的解决方案一样。
较早的一个效果很好的解决方案是从“搜索”按钮复制触发器，并将其放置在On Lost Focus 事件中。这与额外的（可能的）好处相得益彰，在按下 Enter 后，再次完全突出显示文本框文本。

我经常看到这个问题出现，希望对其他人来说很简单。

【讨论】：