[Resolvido]Erro em IF.

Prezados boa tarde.

Tenho um If que não está funcionando...

A condição é atualizar uma tabela olhando a última data que a mesma já foi atualizada para evitar duplicidade de dados.

Por exemplo na Tabela Data Base está a Data 19/10/2011 então a atualização para rodar tem de estar com data de 20/10/2011...

Ao fazer isto o IF retorna sempre com a mesma mensagem...Como se não estivesse funcionando...

Será que escrevi o Código incorreto???

Aguardo a ajuda dos Masters...
____________________________________________________________
'Capta variável (Última data de Atualização)
Dim Atualizacao As String
Atualizacao = DLookup("UltimaData", "UltimaAtualizacao")

'Condição para atualização
If Me.[Data Base] > "#" & Atualizacao & "#" Then

'Avisos MsAccess Desativados / Consultas atualização da base
DoCmd.SetWarnings False
DoCmd.OpenQuery "1 - Lp_Pendencias Total"
DoCmd.OpenQuery "1 - At_Pendencias FI"
DoCmd.OpenQuery "1 - At_Base FDO"
DoCmd.OpenQuery "1 - At_Pendencias INR"
DoCmd.OpenQuery "1 - At_Base INR"
DoCmd.OpenQuery "1 - At_Pendencias PF"
DoCmd.OpenQuery "1 - At_Base PF"
DoCmd.OpenQuery "1 - At_Pendencias PJ"
DoCmd.OpenQuery "1 - At_Base PJ"
DoCmd.OpenQuery "Atualiza DT Base Pendências Total"
DoCmd.OpenQuery "7 - AT_Qtde Cotistas por Gestor FI - A"
DoCmd.OpenQuery "7 - AT_Qtde Cotistas por Gestor INR - A"
DoCmd.OpenQuery "7 - AT_Qtde Cotistas por Gestor PJ - A"
DoCmd.OpenQuery "7 - AT_Qtde Cotistas por Gestor PF - A"
'Exporta Base Atualizada em planilha Excel
DoCmd.RunMacro "ExportarPendenciasEvolução"
'Fecha Formulário data base
DoCmd.Close acForm, "Data Base Relatórios10", acSaveYes
Else
MsgBox "Relatório já atualizado na data solicitada.", vbInformation, "Controle de Pendências"
End If
______________________________________________________


Muito Obrigado

Sagres.

Tente alterar a variável para Date:

Dim Atualizacao As Date

Prezado Criquio

Ainda retorna sempre a mensagem parametrizada no Else...

Independente da data que eu coloco...

Grato.

Sagres

Tente mudar o If:

If Me.[Data Base] > #" & Atualizacao & "#" Then

ou assim:

If Me.[Data Base] > " & Atualizacao Then

Teste assim;

If format(Me![Data Base],"mm/dd/yyyy") > format(Atualizacao,"mm/dd/yyyy") Then

Sucesso!

Criquio

A estruturação dos If's parecem estar todas corretas, porém não funcionam...

Será que o BD não está achando algum dado?

Aguardo retorno.

Muito Obrigado.

Sagres.

Prezado Avelino Sampaio,

Também não vai....

Será que o BD não está encontrando algum dado???

Aguardo retorno.

Muito Obrigado.

Sagres.

Aprenda a usar o ponto de interrupção para analisar os valores.

Assista esse meu vídeo e depois aplique a técnica no seu caso.

Vídeo-aula sobre filtragens

Se não conseguir, volte aqui.

Bom estudo!

Prezado Sampaio,

Muito boa a vídeo Aula...

Testei o Código e descobri o erro

"variable not yet created in this context" ou "Variável não criada no contexto"

Como proceder diante da situação.

Obrigado.

Sagres

E para que linha depura? Talvez esteja usando uma variável que não foi declarada.

Sagres,

pode ser exatamente o que o nosso amigo Valdino disse. Uma variável não declarada.

1) Coloque o ponto de interrupção na linha do atualizacao=Dlookup(...) e um outro na linha do IF.

2) Rode o código e quando parar sobre a linha do atualizacao=dlookup(...) , clique no F5 para continuar. Nos informe se deu erro após clicar no F5.

3) Vai parar sobre o IF

4) Abra a janela de verificação imediata (CTRL + G)

5) Escreva na janela:

? Atualizacao
Nos informe qual foi o valor encontrado
? me![data base]
Nos informe qual foi o valor encontrado

6) Click em F5 , para o código prosseguir. Nos diga se acusou erro.

No aguardo

Mestres Avelino Sampaio e Criquio.

Realizei o procedimento informado e pescebi que o campo data base devido a uma consulta chegava para o if em branco.

Corrigi este problema e tudo funcionou perfeitamente.

Muito obrigado, mas muito obrigado mesmo por estas ajudas tão valiosas para os principiantes como eu.

Sagres.

Só faltou o Resolvido. Bom trabalho