Caros colegas,
Estou com um probleminha e não vejo onde está o erro. O que acontece é o seguinte, toda vez que acesso um determinado registro no bd, ele confere se a data limite é maior que a data do dia. Se não for ele passa e se for maior ele acusa que o registro está vencido e tem que ser renovado.
Acontece que até a data limite 31/12/05 estava tudo funcionando bem, e ao acessar no dia 27/12/05 um registro que venceria dia 01/01/06, ele acusou que estava vencido, SENDO QUE NÃO ESTAVA. Verifiquei todo o código e não encontrei nenhum erro. Com a mudança do ano, ele inverteu, agora não acusa vencimento para os que venceram antes de 31/12/05.
O código é este aqui:
If format(txtdatadodia, "dd/mm/yy") > format(registroBD("Datavencimento"), "dd/mm/yy") then
Msgbox "Este cliente venceu dia xxx(do BD).",vbcritical,"Renove o cadastro"
xxxxxx
xxxxxx
else
Ele passa pra frente
end if
Quem puder me ajudar eu agradeço.
Ate mais galera
