Code Bẫy Lỗi Bị Lỗi

[khamha]

Chào Các Bạn,Mình Đang Tập Làm Cái User Form Để Nhập Dữ Liệu Nhưng Không Biết Cái Code Bẫy Lỗi Khi Không Nhập Dữ Liệu Đầy Đủ Nó Bị
Lỗi Ở Chỗ Nào,Nếu Xoá Nó Đi Thì Form Hoạt Động Bình Thường,Mình Đưa Lên Nhờ Các Bạn Xem Và Sửa Giúp Mình Với Hoặc Các Bạn Có Cái
Code Khác Thì Cho Mình Xin.
Cảm Ơn Các Bạn
Code:

'Phan Kiem tra
ch1 = "TextLThi;TextLVThi;TextLKCa;TextLPCTua;TextLTTam;TextBTho;TextXu;TextTJu;LHPy;LHDuon;PSMop;KNTLKit;HCMop;LNMACon;PPACon;NTy;BKhuan;NDuon;MMau;KXau;PPhuan;MKPhom;XXay;TSut;STem;OTTho;TNThang;TNiem03;BLCan03;TNTBACon;PMCACon;PMUUn;LHUUn;LNhot"
ch = "TextLThi;TextLVThi;TextLKCa;TextLPCTua;TextLTTam;TextBTho;TextXu;TextTJu;LHPy;LHDuon;PSMop;KNTLKit;HCMop;LNMACon;PPACon;NTy;BKhuan;NDuon;MMau;KXau;PPhuan;MKPhom;XXay;TSut;STem;OTTho;TNThang;TNiem03;BLCan03;TNTBACon;PMCACon;PMUUn;LHUUn;LNhot"
tb = Split(ch1, ";")
For Each ctr In Me.Controls
If InStr(1, ch, ctr.LThi) > 0 And ctr = "" Then
MsgBox tb(ctr.Tag - 1), , "QUAN LY HOC SINH"
ctr.SetFocus
Exit Sub
End If
Next
If Not IsNumeric(Me.TextLThi) Then
MsgBox "LecThi", , "QUAN LY HOC SINH"
Me.TextLVThi.SetFocus
Exit Sub
End If

 

[sealand]

Bạn không có File nên dò dò không biết có trúng không?

1/Bạn sửa:

Dim i
  ch1 = "TextLThi;TextLVThi;TextLKCa;TextLPCTua;TextLTTam; TextBTho;TextXu;TextTJu;LHPy;LHDuon;PSMop;KNTLKit; HCMop;LNMACon;PPACon;NTy;BKhuan;NDuon;MMau;KXau;PP huan;MKPhom;XXay;TSut;STem;OTTho;TNThang;TNiem03;B LCan03;TNTBACon;PMCACon;PMUUn;LHUUn;LNhot"
tb = Split(ch1, ";")
  for i=0 to ubound(tb)-1
  if Me.Controls(tb(i))=”” then
  MsgBox “ Kiem tra: “ & tb(i), , "QUAN LY HOC SINH"
Me.Controls(tb(i)).SetFocus
Exit Sub
End If
Next
If Not IsNumeric(Me.TextLThi) Then
MsgBox "LecThi", , "QUAN LY HOC SINH"
Me.TextLVThi.SetFocus
Exit Sub
End If