là sao e không nhập dữ liệu ở ô số lượng vẫn lưu được ạ Private Sub

Thầy cho e hỏi là sao e không nhập dữ liệu ở ô số lượng vẫn lưu được ạ
Private Sub Cb_Save_Click()
'Tim dong cuoi
Dim dongcuoi As Long
dongcuoi = Sheet2.Range("A" & Rows.Count).End(xlUp).Row

If cb_tenhang.Value = 0 Or tb_soluong.Value = 0 Then
MsgBox "Chua nhap du so lieu so luong hoac ten hang"

Else
With Sheet2
.Range("A" & dongcuoi + 1).Value = cb_tenhang.Value
.Range("B" & dongcuoi + 1).Value = tb_DVT.Value
.Range("C" & dongcuoi + 1).Value = tb_soluong.Value
.Range("D" & dongcuoi + 1).Value = tb_dongia.Value
.Range("E" & dongcuoi + 1).Value = Me.tb_thanhtien.Value
MsgBox "luu du lieu thanh cong"
End With
End If
'Lam moi uf
Unload Me
uf_capnhatdulieu.Show

End Sub

1 câu trả lời

237 lượt xem

vỗ tay

Người dùng ẩn danh 16:06 - Jun 17, 2020

Bạn chú ý ở vị trí dòng lệnh này:
If cb_tenhang.Value = 0 Or tb_soluong.Value = 0 Then
MsgBox "Chua nhap du so lieu so luong hoac ten hang"
EXIT SUB
Else
có thêm lệnh Exit sub để dừng lệnh ngay tại thời điểm mệnh đề IF là đúng.
---
Bạn thiếu exit sub nên mệnh đề đúng chỉ hiện thị msgbox mà không dừng lại, vẫn làm tiếp.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

là sao e không nhập dữ liệu ở ô số lượng vẫn lưu được ạ Private Sub

Câu hỏi liên quan