Private Sub CmdTD_Click() '<=| Tên Macro Cần Thêm Lệnh'
Dim Msg As String '* *'
If IsNumeric(Me!cbTL.Text) Then
If CInt(Me!cbTL.Text) = Cells(Dg + 1, "J").Value Then
Me!tbDiem.Value = Me!tbDiem.Value + 4
Msg = "Tiép & Chúc May!" '* *'
Else
Me!tbDiem.Value = Me!tbDiem.Value - 3
Msg = "Chính Xác Là: " & Cells(Dg + 1, "J").Value '* *'
End If
Else
If Me!cbTL.Text = Cells(Dg + 1, "J").Value Then
Me!tbDiem.Value = Me!tbDiem.Value + 4
Msg = "Tiép & Chúc May!" '* *'
Else
Me!tbDiem.Value = Me!tbDiem.Value - 3
Msg = "Chính Xác Là: " & Cells(Dg + 1, "J").Value '* *'
End If
End If
MsgBox Msg, , "GPE.COM" '*'
CmdBD_Click
End Sub