[Resolvido]Erro ao setar campo em tabela.

Prezados boa tarde.

Tenho um BD onde preciso comparar dois campos antes de rodar uma consulta, porém a expressão abaixo dá erro de tempo de execução.

Data = Queries![UltimaAtualização]![UltimaData].Value

Qual erro estou cometendo???

Obrigado.

Felipe Sagres

Bem vindo ao fórum:

Como voce não esclareceu onde quer os eventos, tente assim:

If CampoParaCoraração1 = CampoComparação2 Then
Instrução desejada
Else
Instrução desejada
End If

Caso não seja o que quer, tente ser mais claro.

Quero apenas setar um campo de uma tabela.

O comendo está correto?

Continuo sem compreender...
Mas tente execultar a consulta ao clicar de um botão, mas o código que passei a voce, deverá fazer a validação...
Mais ou menos assim:

Envento clique do botão:
If CampoParaCoraração1 = CampoComparação2 Then
Execulta a consulta
Else
Instrução desejada
End If

Prezado,

Já tenho este comando, porém, acontece erro de tempo de execução 424, objeto requerido ao executar a linha abaixo:
Data = Queries![UltimaAtualização]![UltimaData].Value)



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


Data = Queries![UltimaAtualização]![UltimaData].Value

If Me.[Data Base].Value > Data Then
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
MsgBox "Relatório já atualizado na data solicitada.", vbInformation, "Controle de Pendências"
End If

End Sub
____________________________________________________________________________________________


Aguardo seu retorno.

Muito Obrigado.

Felipe

Diga-nos o nome da consulta que quer execultar, e qual condição voce quer usar para execultar a consulta. Assim seria mais fácil compreender o que dessejas. Caso queira, disponibilize o banco de dados para nossa análize, seria muito bom. Outra coisa que observei é que parece que há espaço entre os nomes dos seus objetos, isso é desaconselhavel. Tente não por espaço nem caracterres especiaies. E sempre que ocorre erro, é bom usar o depurar/compilar p/ ver onde o erro está ocorrendo e assim facilitar a correção.

A lógica que estou usando é simples, mas não sei a complexidade da sua situação, pelo o que voce descreve me parece simples, mas não sei que validação voce quer fazer...
No aguardo!

Prezado Marcelo,

No if que estou utilizando uma das comparações é exatamente o campo de uma consulta.

Exemplo: Se campo1 >= Campo2 execute, caso contrário não.

Porém estou apenas com erro na formula abaixo, onde preciso que Data seja o campo "última data" da consulta "UltimaAtualização"

Data = Queries![UltimaAtualização]![UltimaData].Value

Obrigado.

Poderia disponibilizar o banco?

Infelizmente estou na rede da empresa e não consigo postar o BD.

Peço apenas que me diga se a expressão abaixo está correta.

A data tem de ser o valor do campo UltimaData da consulta UltimaAtualização. (Conforme Abaixo)

Data = Queries![UltimaAtualização].[UltimaData].Value

Muito Obrigado.

Nesse caso, eu execultaria a consulta sileciosamente, daí atribuia o valor a uma strig... Acho que seu procedimento está errado, mas estou muito sem tempo... Ajudaria se postasse o banco, assim eu tentaria algo p/ você...

Obrigado Marcelo.

Alguem poderia me ajudar com os questionamentos acima???

Agradecerei muito a colaboração.

O Marcelo pediu-lhe para colocar o banco disponível, ele sabe o que faz e está a tentar ajudar. Não espere milagres de ninguém.

Vou aguardar 24 horas para que coloque aqui o banco, depois encerro o tópico. Obrigado

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.