Nhờ các bác xem giúp lỗi chi cập nhật dữ liệu lần thứ 2.
Khi mở form danh sách khách hàng, chọn xem tất cả khách hàng, sau đó chọn 1 khách hàng xem thử, rồi muốn thay đổi thông tin khách hàng đó và bấm cập nhật, bấm 1 lần thì được nhưng cập nhật lần thứ 2 là bị lỗi chỗ chữ màu đỏ. Nhờ các bác xem giúp. file đính kèm
Khi mở form danh sách khách hàng, chọn xem tất cả khách hàng, sau đó chọn 1 khách hàng xem thử, rồi muốn thay đổi thông tin khách hàng đó và bấm cập nhật, bấm 1 lần thì được nhưng cập nhật lần thứ 2 là bị lỗi chỗ chữ màu đỏ. Nhờ các bác xem giúp. file đính kèm
Private Sub cmdSuaDuLieu_Click()Dim j As Integer, Cont
With UserForm1
If .txtHovaten = "" Or .txtTencongty = "" Then Exit Sub
For j = 1 To 12
Cont = Choose(j, .txtSoTT.Text, .txtMaSo.Text, .txtHovaten.Text, .txtTencongty.Text, .txtNhucau.Text, .txtTennguoinhan.Text, .txtDiaChiXH.Text, .txtDienThoai.Text, .txtEmail.Text, .txtSkype.Text, .txtFacebook.Text, .txtGHICHU.Text)
Worksheets("nguonttkh").Cells(sRow, j) = Cont
Next j
End With
sRow = 0
MsgBox "CAP NHAT XONG"
End Sub