Pow galera Olha eu aqui outra vez...
Preciso de uma moralzinha...
podem me dizer pq ta dando um erro nesse código:
Private Sub Form_Load()
If Day(Date) = 7 Then
MsgBox "lincença expirando daqui a uma semana", vbInformation, "Aviso!!"
If Day(Date) = 8 Then
MsgBox "lincença expirando daqui 6 dias", vbInformation, "Aviso!!"
If Day(Date) = 9 Then
MsgBox "lincença expirando daqui a 5 dias", vbInformation, "Aviso!!"
If Day(Date) = 10 Then
MsgBox "lincença expirando daqui a 4 dias", vbInformation, "Aviso!!"
If Day(Date) = 11 Then
MsgBox "lincença expirando daqui a 3 dias", vbInformation, "Aviso!!"
If Day(Date) = 12 Then
MsgBox "lincença expirando daqui a 2 dias", vbInformation, "Aviso!!"
If Day(Date) = 13 Then
MsgBox "lincença expirando daqui a 2 dias", vbInformation, "Aviso!!"
Exit Sub
End If
If Day(Date) = 14 Then
MsgBox "Sua Licença Expirou", vbInformation, "Aviso!!"
frmDigiteSenha.Show
If frmDigiteSenha.txtSenha = 210489 Then
Exit Sub
End Sub
ERRO:Copiler error:
Block If without End if
Me ajudem...
