hondatron > 15-04-12, 02:48 PM
Public Function DK() As Boolean
If (TxtA <= 0 Or TxtB > 100) Or (TxtB <= 0 Or TxtB > 100) Or (TxtC <= 0 Or TxtC > 100) Then
MsgBox "Mot trong cac gia tri chi nam trong khoang 0-100", vbApplicationModal
TxtA = 0: TxtB = 0: TxtC = 0
Dk = False
Else
Dk = True
End If
End Function
Private Sub CmbTH_Click()
If DK() = False Then
Exit Sub
End if
.........