Dlaczego mój .setfocus jest ignorowany?

Question

Mam formularz dostępu z polem tekstowym, który ma na celu umożliwienie wielokrotnego wpisywania numeru, wciskania klawisza Enter i zezwalania skryptowi na wykonywanie czynności. Aby uzyskać prędkość, pole powinno zachować ostrość po wykonaniu DoStuff().

Jednakże, chociaż jestem pewien, że uruchamiany jest DoStuff(), fokus zawsze przechodzi do następnego pola w kolejności tabulacji. To tak, jakby ignorowano Me.MyFld.SetFocus.

Jak zachować koncentrację na tym polu po DoStuff()?

Private Sub MyFld_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
     DoStuff 
     Me.MyFld.SetFocus 
    End If 
End Sub 

Answer 1

Jeśli spojrzeć na the order of events for a keypress that would change focus, można zobaczyć, że zawsze zachowuje ten wzór:

KeyDown → BeforeUpdate → AfterUpdate → Exit → LostFocus 

Możesz ponownie ustawić ostrość w dowolnym miejscu tam i będzie nadal zachować następujący wzór. Musimy więc powiedzieć, żeby przestała podążać za wzorcem. Zamień swój Me.MyFld.SetFocus na DoCmd.CancelEvent i powinno to naprawić twój problem. Zasadniczo, to po prostu wykopuje cię z powyższego schematu, więc zdarzenia Exit i LostFocus nigdy nie wystrzeliwują ...

Answer 2

Obejście powoduje przeniesienie fokusu do innej kontrolki, a następnie z powrotem do pierwszego elementu sterującego. Tak:

Private Sub MyFld_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
     DoStuff 
     Me.anotherControl.SetFocus 
     Me.MyFld.SetFocus 
    End If 
End Sub