Tại sao .setfocus của tôi bị bỏ qua?

Question

Tôi có biểu mẫu Truy cập với hộp văn bản có nghĩa là cho phép nhập nhiều lần số, nhấn enter và cho phép tập lệnh thực hiện. Đối với tốc độ, trường sẽ giữ tiêu điểm sau khi hoàn thành DoStuff().

Tuy nhiên, trong khi tôi chắc chắn rằng DoStuff() được chạy, tiêu điểm luôn chuyển đến trường tiếp theo trong thứ tự tab. Nó giống như Me.MyFld.SetFocus đang bị bỏ qua.

Làm cách nào để giữ tiêu điểm trên trường này sau khi hoàn thành 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

Nếu bạn nhìn vào the order of events for a keypress that would change focus, bạn có thể thấy rằng nó luôn sau mô hình này:

KeyDown → BeforeUpdate → AfterUpdate → Exit → LostFocus 

Bạn có thể tái thiết lập sự tập trung bất cứ nơi nào trong đó và nó vẫn sẽ tiếp tục theo mô hình. Vì vậy, chúng ta cần phải nói nó dừng lại theo mô hình. Thay thế Me.MyFld.SetFocus của bạn bằng DoCmd.CancelEvent và nó sẽ khắc phục được sự cố của bạn. Về cơ bản, điều này chỉ đá bạn ra khỏi mô hình trên, vì vậy các sự kiện Exit và LostFocus không bao giờ ...

Answer 2

Giải pháp thay thế sẽ chuyển trọng tâm sang điều khiển khác và sau đó quay lại điều khiển đầu tiên. Như thế này:

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