[Resolvido]Visível pela data

Boa tarde Amigos,

Preciso de ajuda, rsrsrsrs.

Onde esta o erro: ao abrir da Uso do Null invalido, gostaria de abrir sem a data na tabela pois seria a primeira abertura do sistema. Depura na linha em azul.

Att,

Dim dt As Date
dt = Me.Data_liberada

If Date > dt Then
Me.Rótuloaviso.Visible = True
Me.Importardata.Visible = True
MsgBox "Este programa expirou!!!" & Chr(13) & Chr(13) & "Contate o Desenvolvedor do sistema" & Chr(13) & Chr(13) & "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Atenção"

Else
Me.Rótuloaviso.Visible = False
Me.Importardata.Visible = False
End If

Boas anderson... Variáveis não aceitam valores nulos... no seu caso o campo a que se refere não está preenchido, gerando erro no carregamento da variável.

para isto não ocorrer podes tratar com a função NZ
A função em nz substitui o valor caso o objeto tenha um valor nulo

Ex:
Dim teste as String
Teste = Nz(Me.SeuCampo,"Campo em Branco")

Caso Seu campo seja nulo >>>> Teste = Campo em Branco

Podes colocar númerais tambem.


Dim dt As Date
dt = Nx(Me.Data_liberada,"")


Cumprimentos.

PILOTO boa tarde, fiz a alteração conforme linha em verde, só que ainda da tipos incompatíveis.

Dim dt As Date
dt = Nz(Me.Data_liberada, "")

If Date > dt Then
Me.Rótuloaviso.Visible = True
Me.Importardata.Visible = True
MsgBox "Este programa expirou!!!" & Chr(13) & Chr(13) & "Contate o Desenvolvedor do sistema" & Chr(13) & Chr(13) & "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Atenção"

Else
Me.Rótuloaviso.Visible = False
Me.Importardata.Visible = False
End If

Tente ao invés de ."" colocar ,0 ou ,Empty

Ou mesmo desvie o carregamento
If Me.CampoData <> "" or IsNull(Me.CampoData) = False Then
dt = Me.CampoData
End If

Bom dia Piloto,

O que significa "Empty"???, o erro sumiu só que o aviso "msgbox" aparece duas vezes.

Obrigado.

Empty = Vazio <> Nulo <> Branco

Verifique com pontos de interrupcao o porque da msgox repetida.
\
Cumprimentos.

Tudo certo e obrigado pela aula, a mensagem estava se repetindo pois o Emputy manda executar o código de Null, mais já resolvi ou melhor resolvemos né!!!

Muito obrigado meu amigo.

Não se esqueça de clicar no joinha da mensagem que o auxiliou!!

O Fórum agradece o Retorno.