在没有鼠标的情况下一遍又一遍地使用 MS-Access 组合框

Posted 2023-05-07

【中文标题】在没有鼠标的情况下一遍又一遍地使用 MS-Access 组合框

【英文标题】：Use MS-Access Combobox over and over without mouse

【发布时间】：2014-09-21 20:03:31

【问题描述】：

我正在使用组合框将文本附加到未绑定的文本框中。我单击下拉箭头并开始输入（自动扩展，这是组合框的真正原因/用例）或单击选择。我可能想再做 2 到 3 次。我宁愿不必再次单击下拉菜单。我只想开始打字。这里的最后两行不是为我做的：

Private Sub cmboTag1_AfterUpdate()
    Me.txtTags.Value = Me.txtTags.Value & " " & Me.cmboTag1.Value
    Me.cmboTag1.SetFocus
    Me.cmboTag1.Dropdown
End Sub

有办法吗？

【参考方案1】：

如果你对SendKeys 没有强烈的反感（有些人有），那么这似乎对我有用：

Option Compare Database
Option Explicit

Dim cmboUpdated As Boolean

Private Sub cmboTag1_AfterUpdate()
    cmboUpdated = True
    Me.txtTags.Value = Me.txtTags.Value & " " & Me.cmboTag1.Value
End Sub

Private Sub cmboTag1_GotFocus()
    cmboUpdated = False
    SendKeys "%DOWN"
End Sub

Private Sub cmboTag1_LostFocus()
    If cmboUpdated Then
        SendKeys "+TAB"
    End If
End Sub

【讨论】：

很长时间我不得不查找键绑定：% 是 ALT，+ 是 SHIFT，^ 是 CTRL，等等...我见过的 SendKeys 的第一次体面使用。

请注意，sendkeys 在某些 Windows 版本中可能不起作用。