Sự kiện keydown & textbox user form (1 người xem)

[nguyenduy39]

tình hình là em đang làm file nhập liệu bằng scaner vào excel, làm user form với sự kiện key down thì textbox1 tự clear và đặt con trỏ về lại textbox1,
Tuy nhiên đã thử nhiều cách thì nó vẫn nhảy ra ngoài không vào textbox1 ban đầu được, nhờ cao nhân chỉ giáo giúp e,

 

[ongke0711]

Bạn có làm thử qui trình: scan -> dữ liệu hiển thị ở textbox1 -> nạp vào listbox -> xoá textbox1 khi listbox exit.

 

[nguyenduy39]

Bạn có làm thử qui trình: scan -> dữ liệu hiển thị ở textbox1 -> nạp vào listbox -> xoá textbox1 khi listbox exit.

dạ chưa, e đang theo flow scan->call module dò và record giá trị lên ws-> quay về textbox ,e chưa cứng VBA nên lablebox và listbox e chỉ để show data trong sheet dữ liệu dùng hàm fillter cần show thôi ạ

 

[ptm0412]

Bạn dùng sự kiện keydown cho control nào? Hay là keydown cho chính user form? Có thể dùng sự kiện khác hoặc cho control khác.
Bạn nên đưa file lên hoặc ít nhất là chép code lên đây: code "module dò và record giá trị lên ws-> quay về textbox"

 

[nguyenduy39]

Em gửi file em đang làm ạ.

 

[ptm0412]

Không dùng sự kiện KeyDown mà dùng sự kiện Exit

Private Sub txtScanUID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TimVaGhiDuLieu(Me.txtScanUID.Value)
    Me.txtScanUID.Text = ""
    Cancel = True
End Sub

 

[nguyenduy39]

Không dùng sự kiện KeyDown mà dùng sự kiện Exit

Private Sub txtScanUID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TimVaGhiDuLieu(Me.txtScanUID.Value)
    Me.txtScanUID.Text = ""
    Cancel = True
End Sub

Em test chạy được rồi, đa tạ đại ca đã hỗ trợ nhiệt tình, :b :b :b

 

[huuthang_bd]

Em test chạy được rồi, đa tạ đại ca đã hỗ trợ nhiệt tình, :b :b :b

Bạn cần thêm dòng sau vào đầu sự kiện nếu không sẽ không tương tác được với các controls khác.

If Me.txtScanUID.Text = "" Then Exit Sub