ERRO AO CRIAR ROTINA PARA VALIDADE DE SOFTWARE
Montei um form que valida a data atual com a data que eu estabeleci limite de uso do software, é uma rotina simples que só valida isso. Porém, ao gerar a versão executável do projeto, ele ocorre o erro da imagem. Segue também o código abaixo, alguém pode me esclarecer?
Option Explicit
Private Sub Form_Load()
txtDataAtual.Text = Format(Date, [Ô]dd/mm/yyyy[Ô])
End Sub
Private Sub cmdOk_Click()
If CDate(FormatDateTime(txtValidadeChave.Text, vbShortDate)) >= CDate(FormatDateTime(Date, vbShortDate)) Then
[ô]MsgBox [Ô]A chave do sistema está dentro da validade! Sistema será inicializado![Ô], vbCritical
Unload Me
Else
[ô]MsgBox [Ô]A chave de validade de sua versão de sofware expirou, entre em contato com o Administrador! O sistema será fechado![Ô], vbCritical
End
End If
End Sub
Option Explicit
Private Sub Form_Load()
txtDataAtual.Text = Format(Date, [Ô]dd/mm/yyyy[Ô])
End Sub
Private Sub cmdOk_Click()
If CDate(FormatDateTime(txtValidadeChave.Text, vbShortDate)) >= CDate(FormatDateTime(Date, vbShortDate)) Then
[ô]MsgBox [Ô]A chave do sistema está dentro da validade! Sistema será inicializado![Ô], vbCritical
Unload Me
Else
[ô]MsgBox [Ô]A chave de validade de sua versão de sofware expirou, entre em contato com o Administrador! O sistema será fechado![Ô], vbCritical
End
End If
End Sub
retira o Option Explicit.
Verifica os nomes dos TEXTBOX, pois está dizedo que não existe provavelmente está com outro nome!
Tópico encerrado , respostas não são mais permitidas