[Resolvido]Erro Funcao DMax

Boa Tarde !

Estou me deparando com um erro(Operador faltando)na funcao DMax,

o problema que funciona na consulta do access mas quando passo para o VBA acontece o problema, ja tentei alterando ao aspas simplas para duplas e tentei virgula por ponto e virgula.

Nz(Dmax('DateDiff('n',[Aco_Dt_Inicio],[Aco_Dt_Fim])','Tbl_Acompanhamento','[Man_ID] = " & [Forms]![Frm_Equip_Retidos].[txt_Man_ID] & " ' ) )as Maior_Evento,


Saudacoes!

Grande Avelino Obrigado pela resposta,


O Artigo realmente é muito bom e acho que conseguir evoluir um pouco

agora continua a dar o erro mas vejo que no erro ja traz o valor no Man_ID

Nz(Dmax(' DateDiff('n',[Aco_Dt_Inicio],[Aco_Dt_Fim])','Tbl_Acompanhamento','[Man_ID] = " & Me.txt_Man_ID & " ' ) )as Maior_Evento

O erro pode estar nas aspas ? Ja testei varias possibilidades.
Saudacoes.

Boas!

Subistitua a virgula (,) por ponto e virgula
Teste assim:

Nz(Dmax(' DateDiff('n';[Aco_Dt_Inicio];[Aco_Dt_Fim])';'Tbl_Manutencao_Acompanhamento';'[Man_ID] = " & Me.txt_Man_ID & " ' ) )as Maior_Evento

Depois ou assim:

Nz(Dmax(' DateDiff('n',[Aco_Dt_Inicio],[Aco_Dt_Fim])';'Tbl_Manutencao_Acompanhamento';'[Man_ID] = " & Me.txt_Man_ID & " ' ) )as Maior_Evento

Não amigo Lupercio, ele está no VBA. Neste caso usamos virgula

Rafael, escreva aqui a string inteira da sua SQL

Pelo que estou a ver existem varias aspas simples a mais na instrução, além de outros erros;

Supostamente o correto;

Nz(DMax(DateDiff("n", [Aco_Dt_Inicio], [Aco_Dt_Fim]), "Tbl_Manutencao_Acompanhamento", "[Man_ID]='" & Me.txt_Man_ID & "'"))

O que pode uar no DateDiff:

yyyy - Ano
q - Trimestre
m - Mês
y - Dia do Ano
d - Dia
w - Dia da semana
ww - Semana do ano
h - Hora
n - Minuto
s - Segundo

Olá, João

pedi ao Rafael para escrever a sintaxe completa, pois supeito que seja uma SQL. O uso dos apostrofes pode até estar correto.

Rafael, aguardamos a escrita completa


Outra coisa Rafael - abra a consulta no modo gráfico e peça para visualizar no modo SQL. Copie e cole o modo SQL da consulta para vermos como o Access montou a escrita. (esta é uma das melhores formas de se aprender).

Ta certo Avelino, foi falta de atenção, desculpe!

E bom dia á todos!

Obrigado a todos pela ajuda!
Sempre uma honra a ajuda desses grandes Mestre do Access
Desculpe pela demora mas somente agora pude responder.

JPaulo tentei também com o seu exemplo e persiste no mesmo erro (sempre que crio umca consulta testo primeiro no access antes de passar para o VBA e quase sempre tenho que tirar as Aspas duplas e colocar a simples).

Montei um exemplo simulando minha situação
Se alguém puder analisar agradeço.

https://dl.dropbox.com/u/19875180/Rafa_Exemplo.rar


Obrigado

Boa Tarde

O erro de fato nao acontece mas a funcao DMax nao esta funcionando corretamente


No Exemplo abaixo tentei tambem com a Sugestao do JPaulo e continua nao trazendo o maior valor (Minutos)
https://dl.dropbox.com/u/19875180/Rafa_Exemplo.rar

Saudacoes

Com a permissão do Avelino, penso que o problema está relacionado com o campo "Aco_Dt_Fim", que apesar de ter data hora escrito, está como texto na tabela.

Veja se está correto o funcionamento assim;

Nz(Dmax(DateDiff('n',[Aco_Dt_Inicio],CDate([Aco_Dt_Fim])),'Tbl_Manutencao_Acompanhamento',[Man_ID] = " & Val(Me.[txt_Man_ID]) & ")) as Maior_Evento

Pelas contas apresentadas, penso que está ok;

Desculpe a Demora no retorno

JPaulo infelizmente nao funcionou continua trazendo o mesmo resultado.

se digitar um Man_ID 834 por exemplo, existe dois registro com esse Man_ID um AG.RECURSO e outro AG.MATERIAL

O Evento AG.RECURSO comecou 06/02/2013 12:22 ate 07/02/2013 11:11 (1369 Minutos)
O Evento AG.MATERIAL comecou 05/02/2013 12:22 ate 06/02/2013 12:22 (1440 Minutos)


ou seja a coluna do Maior_Evento deveria ser todas 1440 o que indica que o maior evento onde Man_ID = 834

Novo Link
https://dl.dropbox.com/u/19875180/Rafa_Exemplo_OLD_I.rar

Saudacoes

Pelo que entendi então você expressou-se mal, não tem erro, apenas mostra os dois registros e deveria mostrar apenas o maior, certo ?

Correto JPaulo!

Desculpe por me expressao errado mas é justamente isso que preciso pegar somente o maior valor onde Man_ID for igual ao informado(834 no exemplo)


Saudacoes !

Tentei fazer algumas ateracoes para ver se funcionaria

ja que no inicio da query eu ja uso o datediff para pegar os minutos
( DateDiff('n',[Data_Inicio],[Aco_Dt_Fim]) AS Minutos,)

tentei entao pegar o maior valor desse minuto que seria a mesma coisa que estou tentando fazer mas continua trazendo o mesmo todos os registro sendo que preciso apenas do maior
veja a consulta..

SELECT Format(Tbl_Manutencao_Acompanhamento.Aco_Dt_Inicio,'dd/mm/yy hh:mm') AS Data_Inicio, " _
& " DateDiff('n',[Data_Inicio],[Aco_Dt_Fim]) AS Minutos," _
& " Format(Int([Minutos]/60),'00') & ':' & Format([Minutos]-(Int([Minutos]/60)*60),'00') as Tempo," _
& " Tbl_Manutencao_Acompanhamento.Eve_Nome AS Evento, " _
& " Tbl_Manutencao_Acompanhamento.Man_ID AS Man_ID, Tbl_Manutencao_Acompanhamento.Aco_ID, " _
& " Nz(Dmax([Minutos],'Tbl_Manutencao_Acompanhamento',[Man_ID] = " & Val(Me.[txt_Man_ID]) & ")) as Maior_Evento" _
& " FROM Tbl_Manutencao_Acompanhamento WHERE (((Tbl_Manutencao_Acompanhamento.Man_ID)= " & Me.[txt_Man_ID] & ")) ORDER BY Tbl_Manutencao_Acompanhamento.Aco_ID DESC; "


https://dl.dropbox.com/u/19875180/Rafa_Exemplo_OLD.rar

Saudacoes.

Você consegue esse resultado com SELECT TOP 1


strSelect = "SELECT TOP 1 Val(DateDiff('n',[Aco_Dt_Inicio],CDate([Aco_Dt_Fim]))) AS Minutos," _
& " Format(Int([Minutos]/60),'00') & ':' & Format([Minutos]-(Int([Minutos]/60)*60),'00') as Tempo," _
& " Tbl_Manutencao_Acompanhamento.Eve_Nome AS Evento, " _
& " Tbl_Manutencao_Acompanhamento.Man_ID AS Man_ID " _
& " FROM Tbl_Manutencao_Acompanhamento " _
& " WHERE (((Tbl_Manutencao_Acompanhamento.Man_ID) IN (" & Me.[txt_Man_ID] & "))) ORDER BY Tbl_Manutencao_Acompanhamento.Aco_ID ASC; "

Set Me!LBox_Acompanhamento2.Recordset = Db.OpenRecordset(strSelect)
Me!LBox_Acompanhamento2.ColumnCount = 4
Me!LBox_Acompanhamento2.ColumnWidths = "2.3cm;2cm;3.2cm;2.0cm"

Obrigado JPaulo Pela resposta!

eu havia testado dessa forma com o Select top
Mas eu precisaria mostrar todos os registro referente ao Man_ID em questao e na coluna maior_evento seria o Maior Numero de "Minutos"


Essa coluna Maior_evento do Listbox na verdade irei usar para outra finalidade mas preciso que a coluna seje sempre o maior Impacto.

Obrigado !

Veja se serve assim;

Excelente!


Muito Obrigado!

Obrigado pelo retorno Rafael, fico feliz.