Here's a variation on your idea. Make the textbox so big (and invisible) that moving the mouse off the combobox will always trigger it's mousemove event.
Attachment 28697Attachment 28698
Code:
Option Compare Database
Option Explicit
Dim Working As Long
Private Sub cboBrand_AfterUpdate()
Me.Filter = "[Brand] = '" & cboBrand & "'"
Me.FilterOn = True
End Sub
Private Sub cboBrand_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cboBrand.SetFocus
cboBrand.Dropdown
Working = 1
End Sub
Private Sub cmdBig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Working = 1 Then
cmdBig.SetFocus
SendKeys "{ESC}"
Phone.SetFocus
Working = 0
End If
End Sub