Nhờ ACE giúp đỡ Form Update dữ liệu. (2 người xem)

[khamchihoa]

Qua diễn đàn mình tìm hiểu & nhặt code từ diễn đàn mình có làm được 2 file nhập dữ liệu & search. Nhưng vấn đề sau là: khi ta searh ra kết quả từ Listbox thì mình click vào để sửa hoặc update thêm dữ liệu vẫn là bị lỗi code này.
- Mong ACE trên diễn đàn giúp đỡ mình phần code VBA update dữ liệu còn lại & nếu được ACE xem qua full code VBA trong file Excel của mình tinh chỉnh lại cho hoàn thiện & đỡ rối hơn.
Chân thành cảm ơn ACE trên diễn đàn www.giaiphapexcel.com.

Code đang bị lỗi:

Private Sub cbCapNhat_Click()
Dim currRow As Long
    'Select Row On ListBoxKQ
    currRow = ListBoxKQ.List(ListBoxKQ.ListIndex, ListBoxKQ.ColumnCount)
    'Update ListBoxKQ
    With ListBoxKQ
        .List(ListBoxKQ.ListIndex, 0) = txbKhachHang.Text
        .List(ListBoxKQ.ListIndex, 2) = txbDienThoai.Text
        .List(ListBoxKQ.ListIndex, 6) = txbThongTinMay.Text
    End With
    'Update Sheet Customer
    Customer.Range("J" & currRow).Value = txbPrice.Text
    ActiveWorkbook.Save
    Call Wait
End Sub