按enter键搜索值文本框

Question

我知道这个问题之前已经得到了回答，但是我无法遵循指示。

This答案似乎有点，但我无法弄清楚如何在任何设置中设置默认按钮。我只是在属性菜单或“查看代码”区域中看不到此选项。

我无法在任何代码中找到如何实现此功能的良好示例，感谢任何帮助。

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

Me.Toggle47.DefaultValue = True

现在当我按下回车按钮时，按下了按钮，但未应用过滤器。

这是否与我在Macro Builder中创建按钮的事实有关？如果我进入设计视图并突出显示搜索按钮，我可以在属性表中看到On Click命令是嵌入式宏，具体来说，

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

使用Macro Builder而不是“view code”区域，这是一个问题吗？我不知道为什么会这样，但我又是MSA的新手。感谢。

Answer 1

您可以将表单的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 事件设置为侦听按下的回车键（Enter键为KeyAscii number 13）。

Key Preview

我认为您还需要将表单的// open example.com and get button1 exampleWindow = window.open("http://example.com", "_blank"); button1 = exampleWindow.document.getElementById('button1'); // clicking on button 1 opens example.com/unknownUrl button1.click(); //and now wait 1000ms until page might be loaded setTimeout(function() { buttonOnUnknownPage = exampleWindow.document.getElementById('buttonOnUnknownPage'); buttonOnUnknownPage.click() }, 1000); 事件设置为是以使其正常工作（位于表单事件列表的底部）

Answer 2

我正在添加这个答案，因为我找到了多种解决方案，这些解决方案的工作方式略有不同。

• Matt Halls的回答完美无缺，是我目前使用的。

• 另一个有效的解决方案是将我的搜索切换按钮转换为搜索命令按钮。显然，命令按钮的属性值为Default，如果设置为Yes，则会在按下Enter键时触发。这个解决方案似乎与Matt的解决方案一样。

• 早期的解决方案非常有效，即使从“搜索”按钮复制触发器，也将其置于On Lost Focus事件中。在按Enter键后，再次突出显示文本框文本，这可以很好地补充（可能）的好处。

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