TRẦN THỊ LINH

6 thảo luận

0 vỗ tay

176 lượt xem

Private Sub tb_ngay_nhap_AfterUpdate() If tb_ngay_nhapValue = "" Then MsgBox "nhap

Private Sub tb_ngay_nhap_AfterUpdate()

If tb_ngay_nhap.Value = "" Then

MsgBox "nhap ngay thang"

Exit Sub

Else

tb_ngay_nhap = Format(tb_ngay_nhap, "dd/mm/yyyy")

End If

End Sub

đoạn code này sao khi không nhập ngày tháng mà vẫn không hiện msgbox và cũng không bao lỗi thầy

6 câu trả lời

176 lượt xem

vỗ tay

TRẦN THỊ LINH 14:09 - Sep 20, 2021

vì chỉ quy định tb_ngay_nhap không được để trống, còn nhập bất kỳ nội dung nào vẫn được => có thể vẫn gặp lỗi khi nhập text vào ô ngày nhập này.

Bạn có thể thêm phần kiểm tra kiểu dữ liệu nhập trong ô có phải là ngày tháng hay không:

If ISDATE(tb_ngay_nhap) = False Then
...
Else   'isdate = true
...
End if

cách kiểm tra bằng hàm ISDATE sẽ tối ưu hơn là chỉ xét ô trống hay không

vỗ tay

TRẦN THỊ LINH 14:09 - Sep 21, 2021

'DINH DANG NGAY THÁNG

Private Sub tb_ngay_nhap_AfterUpdate()

If tb_ngay_nhap.Value = "" Or IsDate(tb_ngay_nhap) = False Then

MsgBox "nhap lai ngay thang"

Exit Sub

Else

tb_ngay_nhap = Format(tb_ngay_nhap, "dd/mm/yyyy")

End If

End Sub

sao câu lệnh nay chỉ hiện msgbox khi mình đánh vào textbox không phải ngày tháng, còn để trống thì không hiện msgbox mà vẫn nhảy qua ô textbox khác

cảm ơn thầy

vỗ tay

TRẦN THỊ LINH 14:09 - Sep 21, 2021

Chào bạn bạn kiểm tra câu lệnh này xem có trả ra đúng không nhé

If tb_ngay_nhap.Value = " "

Bạn dubug kiểm tra nhé.

vỗ tay

TRẦN THỊ LINH 12:09 - Sep 22, 2021

không báo debug thầy, có cách nào attach file để thầy xem giúp

vỗ tay

TRẦN THỊ LINH 12:09 - Sep 22, 2021

'dua ten hang vao o ten hang

Private Sub cbb_ma_hang_Change()

Dim dongcuoi_tenhang As Long

Dim dongdau_tenhang As Long

dongdau_tenhang = 5

dongcuoi_tenhang = Sheets("danh_muc_nl").Range("B" & Rows.Count).End(xlUp).Row

Dim i As Long

'tim_ten_hang.Value = Me.cbb_ma_hang.Value

For i = dongdau_tenhang To dongcuoi_tenhang

If Sheets("danh_muc_nl").Range("B" & i).Value = Me.cbb_ma_hang.Value Then

Me.tb_ten_hang.Value = Sheets("danh_muc_nl").Range("C" & i).Value

End If

Next i

End Sub

Private Sub cmb_dong_Click()

Unload Me

End Sub

Private Sub cmb_luu_Click()

Sheets("danh_muc_nl").Range("E1").ClearContents

Dim dongcuoi_tenhang As Long

Dim dongdau_tenhang As Long

dongdau_tenhang = 5

dongcuoi_tenhang = Sheets("danh_muc_nl").Range("B" & Rows.Count).End(xlUp).Row

Dim a As Long

For a = dongdau_tenhang To dongcuoi_tenhang

If cbb_ma_hang.Value = Sheets("danh_muc_nl").Range("B" & a).Value Then

Sheets("danh_muc_nl").Range("E1").Value = cbb_ma_hang.Value

End If

Next a

If Sheets("danh_muc_nl").Range("E1").Value = "" Then

MsgBox "nhap lai ma nguyen lieu"

Exit Sub

End If

Dim dongcuoi_luu_dulieu As Long

dongcuoi_luu_dulieu = Sheets("nhap_nl").Range("B" & Rows.Count).End(xlUp).Row

If Me.tb_ngay_nhap.Value = "" Then

MsgBox "nhap lai ngay thang"

Exit Sub

ElseIf Me.tb_so_chung_tu.Value = "" Then

MsgBox "nhap so chung tu"

Exit Sub

ElseIf Me.tb_phieu_can_ACV.Value = "" Then

MsgBox "nhap phieu can ACV"

Exit Sub

ElseIf Me.tb_phieu_can_NCC.Value = "" Then

MsgBox "nhap phieu can NNC"

Exit Sub

ElseIf Me.tb_thuc_nhap.Value = "" Then

MsgBox "nhap so luong thuc nhap"

Exit Sub

ElseIf Me.cbb_don_vi_tinh.Value = "" Then

MsgBox "nhap don vi tinh"

Exit Sub

ElseIf Me.tb_so_cont.Value = "" Then

MsgBox "nhap so cont"

Exit Sub

ElseIf Me.tb_so_xe.Value = "" Then

MsgBox "nhap so xe"

Exit Sub

ElseIf Me.cbb_ma_hang.Value = "" Then

MsgBox "nhap lai ma hang"

Exit Sub

Else

With Sheets("nhap_nl")

.Range("A" & dongcuoi_luu_dulieu + 1).Value = CDate(Me.tb_ngay_nhap.Value)

.Range("B" & dongcuoi_luu_dulieu + 1).Value = CLng(Me.tb_so_chung_tu.Value)

.Range("C" & dongcuoi_luu_dulieu + 1).Value = Me.cbb_ma_hang.Value

.Range("D" & dongcuoi_luu_dulieu + 1).Value = Me.tb_ten_hang.Value

.Range("E" & dongcuoi_luu_dulieu + 1).Value = CLng(Me.tb_phieu_can_ACV.Value)

.Range("F" & dongcuoi_luu_dulieu + 1).Value = CLng(Me.tb_phieu_can_NCC.Value)

.Range("G" & dongcuoi_luu_dulieu + 1).Value = CLng(Me.tb_thuc_nhap.Value)

.Range("H" & dongcuoi_luu_dulieu + 1).Value = Me.cbb_don_vi_tinh.Value

.Range("I" & dongcuoi_luu_dulieu + 1).Value = Me.tb_so_cont.Value

.Range("J" & dongcuoi_luu_dulieu + 1).Value = Me.tb_so_xe.Value

.Range("K" & dongcuoi_luu_dulieu + 1).Value = Me.tb_dien_giai.Value

.Range("L" & dongcuoi_luu_dulieu + 1).Value = Me.tb_ten_ncc.Value

End With

End If

'Dim dongcuoi_tenhang As Long

'Dim dongdau_tenhang As Long

'dongdau_tenhang = 5

' dongcuoi_tenhang = Sheets("danh_muc_nl").Range("B" & Rows.Count).End(xlUp).Row

'Dim i As Long

'tim_ten_hang.Value = Me.cbb_ma_hang.Value

' For i = dongdau_tenhang To dongcuoi_tenhang

' If Sheets("danh_muc_nl").Range("B" & i).Value = Me.cbb_ma_hang.Value Then

'Sheets("nhap_nl").Range("C" & dongcuoi_luu_dulieu + 1).Value = Me.cbb_ma_hang.Value

'Else

'MsgBox "nhap lai ma hang"

' Exit Sub

'End If

'Next i

Unload Me

uf_nhap_nl.Show

End Sub

'DINH DANG NGAY THÁNG

Private Sub tb_ngay_nhap_AfterUpdate()

If tb_ngay_nhap.Value = "" Then 'Or IsDate(tb_ngay_nhap) = False Then

MsgBox "nhap lai ngay thang"

Exit Sub

Else

tb_ngay_nhap = Format(tb_ngay_nhap, "dd/mm/yyyy")

End If

End Sub

'KƯ TU SO TRONG SO CHUNG TU

Private Sub tb_so_chung_tu__KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii

Case Is < vbKey0, Is > vbKey9

KeyAscii = 0

Beep

End Select

End Sub

Private Sub tb_phieu_can_ACV_Change()

tb_phieu_can_ACV = Format(tb_phieu_can_ACV, "#,##0")

End Sub

Private Sub tb_phieu_can_NCC_Change()

tb_phieu_can_NCC = Format(tb_phieu_can_NCC, "#,##0")

End Sub

Private Sub tb_ten_ncc_Change()

Me.tb_ten_ncc = StrConv(tb_ten_ncc, vbProperCase)

End Sub

Private Sub tb_thuc_nhap_Change()

tb_thuc_nhap = Format(tb_thuc_nhap, "#,##0")

End Sub

Private Sub UserForm_Initialize()

'DUA DANH MUC TEN HANG VAO CBB_TEN HANG

Dim dongcuoi_tenhang As Long

Dim dongdau_tenhang As Long

dongdau_tenhang = 5

dongcuoi_tenhang = Sheets("danh_muc_nl").Range("B" & Rows.Count).End(xlUp).Row

Dim chon_tenhang As Object

'For Each chon_tenhang In Sheets("danh_muc_nl").Range("list_nl")

For Each chon_tenhang In Sheets("danh_muc_nl").Range("B" & dongdau_tenhang & ":B" & dongcuoi_tenhang)

Me.cbb_ma_hang.AddItem chon_tenhang

'Sheets("danh_muc_nl").Range("D1").Value = chon_tenhang.Row

' Dim i As Long

'i = Sheets("danh_muc_nl").Range("D1").Value

'Me.tb_ten_hang.Value = Sheets("danh_muc_nl").Range("C" & i).Value

'DUA DON VI VAO

Dim dongdau_donvi As Long

dongdau_donvi = 2

Dim dongcuoi_donvi As Long

dongcuoi_donvi = Sheets("donvi_tinh").Range("A" & Rows.Count).End(xlUp).Row

Dim chonten_donvi As Object

For Each chonten_donvi In Sheets("donvi_tinh").Range("A" & dongdau_donvi & ":A" & dongcuoi_donvi)

Me.cbb_don_vi_tinh.AddItem chonten_donvi

End Sub

vỗ tay

TRẦN THỊ LINH 14:09 - Sep 22, 2021

Bạn có thể chia sẻ file theo cách sau đây nhé:

1. upload file của bạn vào google drive (theo gmail của bạn)

2. lấy link chia sẻ, đặt link ở chế độ public

3. gửi link vào phần thảo luận trong khóa học

vỗ tay

Câu hỏi liên quan

Xem tất cả

Top

© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông

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

Private Sub tb_ngay_nhap_AfterUpdate() If tb_ngay_nhapValue = "" Then MsgBox "nhap

Câu hỏi liên quan