Gõ vào Combobox thì lỗi.

[LuuAnh980]

Chào các anh chị!!!!!
Em có file này, code trong file là của anh @HieuCD làm cho, nay em mở Form, khi tới Cb_Job em gõ "3" thì báo lỗi "381".
Em muốn khi mình biết trước "Job" thì mình gõ thẳng vào Cb_Job luôn ạ. Nhưng khi gõ thẳng vào Cb_Job thì lỗi ạ.
Mong các anh chị xem giúp ạ.

 

[LuuAnh980]

Gõ số 3 vào Cb_Job thì lỗi "381"
và nhấn Debug thì lỗi code
Mong các anh chị giúp đỡ.

 

[HieuCD]

Chào các anh chị!!!!!
Em có file này, code trong file là của anh @HieuCD làm cho, nay em mở Form, khi tới Cb_Job em gõ "3" thì báo lỗi "381".
Em muốn khi mình biết trước "Job" thì mình gõ thẳng vào Cb_Job luôn ạ. Nhưng khi gõ thẳng vào Cb_Job thì lỗi ạ.
Mong các anh chị xem giúp ạ.

Code mình viết nhưng form thì lạ quá
Thêm dòng lệnh vào đầu sub

On Error Resume Next

Private Sub Cb_Job_Change()
  Dim DH$, arr(), dic As Object, i&, key$
 
  On Error Resume Next

 

[LuuAnh980]

Đó là 1 phần trong Form nhập liệu của em, anh Hiếu ạ.
Cám ơn anh Hiếu nhiều ạ.