[Resolvido]Mudando o formato da Data na minha consulta

Bom dia galera.

Estou criando uma consulta para alimentar meu formulário, a consulta está correta ela gera normal, o problema é que ela inverte o formato da data para mm/dd/aaaa, sendo que preciso que ele gere a consulta como dd/mm/aaaa conforme passei no meu código.

Veja Abaixo o meu código.

Private Sub Form_Open(Cancel As Integer)
Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Set dbs = CurrentDb
Dim Dia As Date

DoCmd.Maximize

Me.txtProd.Caption = Processo_Global_Prod & " - " & Processo_Global_Nome


On Error Resume Next
' Deleta querys antigas se existir
With CurrentDb

DoCmd.DeleteObject acQuery, "Ano_" & ID_Global
DoCmd.DeleteObject acQuery, "Mes1_" & ID_Global
DoCmd.DeleteObject acQuery, "Mes2_" & ID_Global
DoCmd.DeleteObject acQuery, "CargaRecla" & ID_Global

End With

On Error GoTo 0

'Seta usuário atual
Call Set_Global_ID
Me.lblUser_Produc.Caption = ID_Global

'Seta data atual
Me.C_Ano.Value = Year(Now())
Me.C_Mes.Value = Month(Now())
Me.C_Dia.Value = Day(Now())

'Carregar dados nos campos

DataGeral = DateValue(Me.C_Dia.Value & "/" & Me.C_Mes.Value & "/" & Me.C_Ano.Value)

'Cria Consulta
Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)=" & Processo_Global & ") AND ((Last(T001_Recla_Q.T001_Data))=#" & DataGeral & "#));"

Set qdf1 = dbs.CreateQueryDef("CargaRecla" & ID_Global, Query_carrega_Recla)

Set rst1 = dbs.OpenRecordset("CargaRecla" & ID_Global)
End Sub

Se alguem puder me ajudar eu agradeço

'Carregar dados nos campos

DataGeral = DateValue(Me.C_Dia.Value & "/" & Me.C_Mes.Value & "/" & Me.C_Ano.Value)
DataGeral = Format(DataGeral, "dd-mm-yyyy")

'Cria Consulta
Query_carrega_Recla = "" _
bla bla bla

Só não entendo porque necessita de tanta disto,

'Seta data atual
Me.C_Ano.Value = Year(Now())
Me.C_Mes.Value = Month(Now())
Me.C_Dia.Value = Day(Now())

'Carregar dados nos campos

DataGeral = DateValue(Me.C_Dia.Value & "/" & Me.C_Mes.Value & "/" & Me.C_Ano.Value)

............................................
o simples funfa bem melhor;

'Seta data atual
DataGeral = Format(Date, "dd/mm/yyyy")

Opa JPaulo....Valeu a ajuda.

Esse seta data atual é porque tenho 3 caixas de combinaçao e eles recebem a data atual, caso o cara queria modificar o dia de cadastro.
'Seta data atual
Me.C_Ano.Value = Year(Now())
Me.C_Mes.Value = Month(Now())
Me.C_Dia.Value = Day(Now())

Mesmo assim modifiquei conforme voce me recomendou, só que mesmo assim a consulta continua sendo criada como mm/dd/aaaa.
Ja tentei tanta coisa que nem sei mais o que fazer.

Agradeço a ajuda novamente!

Ok, necessita dessas variaveis;

E já tentou formatar aqui, mantendo o que lhe passei ?

AND ((Last(format(T001_Recla_Q.T001_Data,"dd/mm/yyyy")))=#" & DataGeral & "#));"

JPaulo, nao havia feito essa mudança na minha query ainda!

Modifiquei conforme indicou e o erro é o seguinte.
Erro de Compilação "Era Espera:Fim da instrução".

Minha Query está da seguinte forma:
Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)=" & Processo_Global & ") AND ((Last(format(T001_Recla_Q.T001_Data,"dd/MM/yyyy")))=#" & DataGeral & "#));"


já conferi ";" e ")" e acredito que esteja correto.
Obrigado pela Ajuda!

Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)="" & Processo_Global & "") AND ((Last(Format(T001_Recla_Q.T001_Data,""dd/mm/yyyy"")))=#"" & DataGeral & ""#));"""

JPaulo agradeço muito a ajuda mesmo!

Cada hora dá um erro diferente, veja o erro agora.
Erro em tempo de execução'3142':"Caracteres encontrados após o final da instruçao SQL".

Tentei dessa forma, nao deu erro, mas a consulta continua mm/dd/aaaa
Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)=" & Processo_Global & ") AND ((Last(Format(T001_Recla_Q.T001_Data,""dd/mm/yyyy"")))=#" & DataGeral & "#));"
Valeu

Teste;


Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)="" & Processo_Global & "") AND ((Last(Format(T001_Recla_Q.T001_Data,""dd/mm/yyyy"")))=#" & Format(DataGeral, "dd/mm/yyyy") & "#))"

Hahahahah Achei o Tópico, mudaram de tema!!

Testei conforme me repassou e deu o seguinte erro.
Erro em tempo de execução'3464':"Tipo de dados imcompátivel na expressão Critério".

Nao entendi!

Eu não estou a testar, então é muito dificil ajudá-lo assim.

Se o amigo quiser anexar aqui uma pequena parte do seu banco, para eu testar é o melhor.

Olá JPaulo. Segue um arquivo reduzido, com a minha tabela, meu formulario e a consulta!
O formulario é F_Cadastro.

Desde já agradeço a ajuda.
Abraaaço

Feito, é só testar;

Query_carrega_Recla = "" _
& " SELECT T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " FROM T001_Recla_Q" _
& " GROUP BY T001_Recla_Q.T001_ID_Pentagono, T001_Recla_Q.T001_Quantidade, T001_Recla_Q.T001_Acum, T001_Recla_Q.T001_Max, T001_Recla_Q.T001_Comentario" _
& " HAVING (((T001_Recla_Q.T001_ID_Pentagono)=" & Processo_Global & ") AND ((Last(T001_Recla_Q.T001_Data))=#" & Format(DataGeral, "mm-dd-yyyy") & "#));"

OPa JPaulo, voce é Bom!! Obrigado pela ajuda!
Eu só quero entender o porque na busca ele inverte mes e dia, sendo que tinha definido como dd/mm/aaaa??

Obrigado mesmo!

Finalizado tópico...

É a data americana que vem por defeito no VBA, formata-se ao contrario e o Access engole...