Nhờ các bạn kiểm dùm code

[thanhtam348]

Tôi có lấy trên GPE code về chỉnh sửa để đưa vào Form update dử liệu, nhưng khi dùng thì bị lổi, AC và các bạn xem sửa dùm.

Private Sub ListBox1_Change()
[COLOR=red]Me.TextBox2.Value = Me.ListBox1.Column(6) [COLOR=black]hiện tại xảy ra lổi ở đây.[/COLOR]
[/COLOR]Me.TextBox3.Value = Me.ListBox1.Column(7)
Me.TextBox4.Value = Me.ListBox1.Column(8)
Me.TextBox5.Value = Me.ListBox1.Column(10)
Me.TextBox6.Value = Me.ListBox1.Column(11)
Me.TextBox7.Value = Me.ListBox1.Column(12)
End Sub

Private Sub CommandButton1_Click()
Dim dg
dg = Me.ListBox1.ListIndex + 1
Me.ListBox1.RowSource = ""
With Sheet11.Range("SuaDL")
.Cells(dg, 9) = Me.TextBox2.Text
.Cells(dg, 10) = Me.TextBox3.Text
.Cells(dg, 11) = Me.TextBox4.Text
.Cells(dg, 13) = Me.TextBox5.Text
.Cells(dg, 14) = Me.TextBox6.Text
.Cells(dg, 15) = Me.TextBox7.Text
End With
ResetColors
Unload Me
End Sub

 

[SA_DQ]

Hãy cho biết nội dung câu thông báo lỗi; Hay bạn xem lại 1 trong hai đối tượng đó có tồn tại hay không:

Me.TextBox2.Value & Me.ListBox1.Column(6)

Thân ái!

 

[thanhtam348]

Hãy cho biết nội dung câu thông báo lỗi; Hay bạn xem lại 1 trong hai đối tượng đó có tồn tại hay không:

Me.TextBox2.Value & Me.ListBox1.Column(6)

Thân ái!

Cám cơn chị HYen17 , khi gọi Form ra và chọn dữ liệu để sửa rồi bấm nút chọn để lưu lại thì nó hiện bảng báo lổi như hình dưới đây, sau đó Kích vào nút
Debug thì nó hiện lên nền dòng Me.TextBox2.Value & Me.ListBox1.Column(6)nầy màu vàng. có cách nào nhờ chị giúp dùm nha! - Cám ơn chị.

 

[ndu96081631]

Cám cơn chị HYen17 , khi gọi Form ra thì nó hiện bảng báo lổi như hình dưới đây, sau đó Kích vào
Debug thì nó hiện lên nền dòng Me.TextBox2.Value & Me.ListBox1.Column(6)nầy màu vàng. có cách nào nhờ chị giúp dùm nha! - Cám ơn chị.

Nếu không có file đính kèm chắc là bó tay quá bạn ơi (biết gì mà hướng dẫn)

 

[thanhtam348]

Xin gởi lên anh ndu và chị HYen file nhờ xem sửa dùm em.
Luôn đây em nói thêm; Trong Form em muốn tạo thêm 1 ComboBox để chọn mã KH, cho ListBox được thu gọn lại dễ nhìn và dễ tìm sản phẫm mình muốn sửa nhưng không có cách, nếu anh chị có thời gian xin làm dùm em đi!
Nói thật, em không biết tí gì về VBA, những code có trong file đều là rút tỉa từ các bài viết và giúp đở của các anh chị với các bạn trong GPE.
Thân mến.

 

[ndu96081631]

Xin gởi lên anh ndu và chị HYen file nhờ xem sửa dùm em.
Luôn đây em nói thêm; Trong Form em muốn tạo thêm 1 ComboBox để chọn mã KH, cho ListBox được thu gọn lại dễ nhìn và dễ tìm sản phẫm mình muốn sửa nhưng không có cách, nếu anh chị có thời gian xin làm dùm em đi!
Nói thật, em không biết tí gì về VBA, những code có trong file đều là rút tỉa từ các bài viết và giúp đở của các anh chị với các bạn trong GPE.
Thân mến.

Thay Private Sub ListBox1_Change() thành Private Sub ListBox1_Click() thử xem

 

[thanhtam348]

Cám ơn, theo anh em giải quyết được rồi! Còn việc muốn thêm một ComboBox để chọn mã KH có được không anh ndu?
Thân mến