Hoàn thiện nút cmdSua của Bảng điền mã vụ việc (1 người xem)

[minhcong.tckt]

Em gửi các bác file đính kèm
Các bác sang sheet "CPCT" chuột phải là có bảng để chọn mã,
Em đang thêm 1 nút "sửa" nhằm sửa lại nội dung của thông tin hiện lên trên listbox thông qua 3 textbox bên dưới mà bị lỗi, mong các bác hoàn thiện nút sửa này giúp em ạ

 

[giaiphap]

Em gửi các bác file đính kèm
Các bác sang sheet "CPCT" chuột phải là có bảng để chọn mã,
Em đang thêm 1 nút "sửa" nhằm sửa lại nội dung của thông tin hiện lên trên listbox thông qua 3 textbox bên dưới mà bị lỗi, mong các bác hoàn thiện nút sửa này giúp em ạ

Không biết có đúng ý bạn không nửa, sửa đại thôi nghe, nếu sai thì chỉnh sửa tiếp.

 

[minhcong.tckt]

Không biết có đúng ý bạn không nửa, sửa đại thôi nghe, nếu sai thì chỉnh sửa tiếp.

Đúng 1 nửa rùi bác, em thử sửa thì mới sửa được "vật tư" còn option "công trình" thì không có tác dụng, vậy sửa code CmdSua như thế nào ạ

 

[giaiphap]

Đúng 1 nửa rùi bác, em thử sửa thì mới sửa được "vật tư" còn option "công trình" thì không có tác dụng, vậy sửa code CmdSua như thế nào ạ

Vậy một nửa còn lại bây giờ thế nào rồi.

 

[minhcong.tckt]

Vậy một nửa còn lại bây giờ thế nào rồi.

Đúng ý em rùi ah, cảm ơn bác nhiều

 

[minhcong.tckt]

Vậy một nửa còn lại bây giờ thế nào rồi.

Giờ em muốn thêm "cảnh báo cho nút sửa chứng từ"
MsgBox " Ban co chac chan sua chung tu khong ?" nếu chọn là yes thi tiep tục sửa còn chọn No thì thoát khỏi nút sửa
thì thêm code như thế nào ạ?

 

[giaiphap]

Giờ em muốn thêm "cảnh báo cho nút sửa chứng từ"
MsgBox " Ban co chac chan sua chung tu khong ?" nếu chọn là yes thi tiep tục sửa còn chọn No thì thoát khỏi nút sửa
thì thêm code như thế nào ạ?

Bạn thêm đoạn code sau:

If MsgBox(" Ban co chac chan sua chung tu khong ?" & Chr(13) & "Yes de sua, No de huy bo", vbYesNo, "Thong bao!") = vbNo Then Exit Sub

vào sau dòng

Private Sub cmdSua_Click()