RE: On key press và on Exit trên cùng 1 combobox xuất hiện đồng thời
ongke0711 > 17-02-16, 09:58 PM
Bạn chỉnh lại một chút.
-----------------
Private Sub Chucvu_Exit(Cancel As Integer)
If Not IsNull(Chucvu) Then Exit Sub
If MsgBox("Vui long nhap chuc vu nhan vien", vbYesNo + vbInformation, "Thong bao") = vbYes Then
HotenNV.SetFocus
Chucvu.SetFocus
End If
End Sub