[Resolvido]Pegar dados de uma consulta e aplicá-lo como condição de um IF.

Prezados boa tarde.

Tenho um BD onde vou rodar uma consulta de atualização de alguns dados em uma TBL, porém para que estes dados não fiquem duplicados vriei um IF para verificar a data da última atualização e só permitir a atualização se a data de atualização for menor que a data solicitada para a nova atualização. (Abaixo Código)


Private Sub Command5_Click()
On Error GoTo 0
SetWarnings = False

Atualizacao = Query!UltimaAtualizacao.UltimaData

If Me.[Data Base].Value > Atualizacao.Value Then
DoCmd.GoToRecord , , acNewRec
DoCmd.RunMacro "5 - Relatório Risk Acceptance - A"
Else
MsgBox "Relatório já atualizado na data solicitada.", vbInformation, "Controle de Pendências"
End If

End Sub


O problema ocorre na linha 4 do código. O VBA não entende que ele tem de selecionar o Resgistro UltimaData da Consulta UltimaAtualização...


Peço a ajuda dos Expert's....

Muito Obrigado.

Felipe Sagres

Boa noite, Sagres
Dê-nos detalhes da tabela, dos dados a actualizar e da condição de actualização.

Prezado Alexandre,

Tenho uma Tabela (Pendências Total GESTOR)que é atualizada por consulta atualização com dados oriundos de outras tabelas (COTISTAS FI / COTISTAS INR / COTISTAS PJ / COTISTAS PF).

Para não duplicar a atualização dos dados das tabelas(COTISTAS FI / COTISTAS INR / COTISTAS PJ / COTISTAS PF)na tabela (Pendências Total GESTOR) preciso criar um mecanismo que identifique os registros que já estão na tabela (Pendências Total GESTOR).

Para isto tentei criar um IF comparando a data da última inclusão na tabela para verificar se os dados já foram ou não incluidos.

Tentei Criar um IF para fazer esta função:



Private Sub Command5_Click() 'Comando ao Clicar
On Error GoTo 0 'Trata Erro
SetWarnings = False 'Sem avisos de Atualização
Dim Atualizacao As String 'Tentei criar uma variável (Atualização)

Atualizacao = Query!UltimaAtualizacao.UltimaData 'Onde a Variável seja o campo UltimaData da da Consulta UltimaAtualização.
'If Me.[Data Base].Value > Atualizacao.Value Then 'Efetua a comparação de Datas para ver a ultima atualização.
'DoCmd.OpenQuery "LP_Data Base Relatórios" 'Se verdadeiro executa os procedimentos abaixo
'DoCmd.Close acForm, "Data Base Relatórios10", acSaveYes
'DoCmd.GoToRecord , , acNewRec
'DoCmd.RunMacro "1 - Atualiza Pendências Total - A"
'DoCmd.RunMacro "5 - Relatório Risk Acceptance - A"
'DoCmd.RunMacro "7 - At_Pendências por Cliente Total - A"
'DoCmd.RunMacro "ExportarPendenciasEvolução"
'Else 'Se falso executa a mensagem abaixo
'MsgBox "Relatório já atualizado na data solicitada.", vbInformation, "Controle de Pendências"
'End If

End Sub



O problema é que não consigo fazer o banco de dados buscar o dado na consulta com o código destacado em vermelho acima.

Não consigo ver o que está incorreto.

Agradeço a valiosa ajuda.

Felipe Sagres

Novamente, Sagres

Julguei que me facultaria o código da consulta.
No entanto, em vez de:
Atualizacao = Query!UltimaAtualizacao.UltimaData 'Onde a Variável seja o campo UltimaData da da Consulta UltimaAtualização.
utilize:
Atualizacao = DLookup("UltimaData","UltimaAtualizacao")
Cumprimentos,

Alexandre Muito Obrigado...

Deu certo, o BD está setando corretamente o dado solicitado.

Para comparar este campo com outro do formulário estou utilizando o código abaixo, porém o mesmo apresenta erro. Novamente acho que estou utilizando o código incorreto, poderia me fornecer mais esta ajuda?

If Me.[Data Base].Value > [Atualizacao].Value Then

Obrigado

Felipe Sagres.

Sagres,

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

Concluido.

Obrigado.

Esqueceram o resolvido. Bom trabalho