[Resolvido]Criar consulta via código

amigos, estou precisando criar um procedimento que gere uma consulta; até aí estou conseguindo; preciso de ajuda para que na consulta, uma data que na tabela está abreviada, passe a ser mostrada como data completa.
Tenho uma variável onde está: strSQL = "SELECT Format([Tb_Cadastro].[dataConc],""""dd"" de ""mmmm"" de ""yyyy"""") AS dataConc, ..." e depois a instrução para gerar a consulta: CreateQueryDef...
Se eu coloco da data simples ("SELECT [Tb_Cadastro].[dataConc]AS dataConc, ...") funciona perfeitamente; meu problema está na formatação.
Agradeço muitíssimo a ajuda.

Nelson

Coloque o código envolvido, fica mais fácil de analisarmos.

Dim Rst As DAO.Recordset
Dim strSQL As String
Dim Consulta As QueryDef


strSQL = "SELECT Tb_Cadastro.id AS fichaNum, CStr([Tb_Cadastro].[codesp]) AS codesp, CStr([Tb_Cadastro].[material]) AS material, Format([dataConc],"dd"" de ""mmmm"" de ""yyyy") AS conclusao, Tb_Cadastro.aluno AS nome, Format([dataNasc],"dd"" de ""mmmm"" de ""yyyy") AS nascimento, Tb_Cadastro.doc AS rg_rne, CStr([Tb_Cadastro].[nDoc]) AS rg_num, Tb_Cadastro.UF, Tb_Cadastro.obs
FROM Tb_Cadastro"

Set Consulta = CurrentDb.CreateQueryDef("Cons_Cadastro", strSQL)

Estou desenvolvendo no A97, pois meu aplicativo está em várias versões.

Nelson

"dd"" de ""mmmm"" de ""yyyy"

Está correto e funcionando perfeitamente aqui para mim e também uso o A2007.

Esperimente usar:

docmd.OpenQuery strSQL

Abraços

para mim, continua o erro. Aparece a seguinte mensagem "Era esperado: fim da instrução" e depois fica marca o 'de' ; creio que é devido à vírgula depois do campo [dataConc] - no SELECT a vírgula "separa" campo, certo? (Format([dataConc],"dd"" ...)

desculpe, creio que não fui muito claro:
depois do erro fica marcado o 'dd'(Format([dataConc],"dd""...);
no select a vírgula separa campos, correto?
estou usando o access 97 e não o 2007.

Nelson

Boa Tarde!

Tem como mudar na propriedade da consulta
Formato

Claro , você está certo, bobeada minha.

Como está dentro de uma string, ou seja, entre aspas, deverá colocar essa parte com aspas simples assim:

'dd' de ''mmmm' de ''yyyy'

Talvez não funcione, experimente, então teremos que "bolar" uma outra maneira de fazer isso funcionar.

Teste e retorne

Nelson

Veja se pode ser dessa maneira

Coloque a instrução SQL em uma consulta e salve-a, digamos com o nome de MinhaConsulta

No VBA chame a consulta assim:

DoCmd.OpenQuery "MinhaConsulta"

O problema na sql para rodar no vba está nas aspas da função format e não na virgula dessa função.
Para você entender:
= Formato(campox;"000") com ponto e virgula usado na consulta
= Format(campox,"000") com somente a virgula, usando no VBA.

Aguardo...

Norberto

Concordo contigo.

Mesmo assim, estou verificando aqui como fazer funcionar essa sql no vba.

Se conseguir, irá ver o código como é de "arrepiar".

Abraços

Nelson

Ai está o teu código:

Código:



Dim qdf As QueryDef
'Após executar pela primeira vez, retire a aspa simples da linha abaixo.
'CurrentDb.QueryDefs.Delete ("qryTemp")

Set qdf = DBEngine(0)(0).CreateQueryDef("qryTemp"SELECT Tb_Cadastro.id AS fichaNum, CStr([Tb_Cadastro].[codesp]) AS codesp, CStr([Tb_Cadastro].[material]) AS material, Format([dataConc]," & Chr(34) & "dd" & Chr(34) & Chr(34) & " de " & Chr(34) & Chr(34) & "mmmm" & Chr(34) & Chr(34) & " de " & Chr(34) & Chr(34) & "yyyy" & Chr(34) & ") AS conclusao, Tb_Cadastro.aluno AS nome, Format([dataNasc],"& Chr(34) & "dd" & Chr(34) & Chr(34) & " de " & Chr(34) & Chr(34) & "mmmm" & Chr(34) & Chr(34) & " de " & Chr(34) & Chr(34) & "yyyy" & Chr(34) & ") AS nascimento, Tb_Cadastro.doc AS rg_rne, CStr([Tb_Cadastro].[nDoc]) AS rg_num, Tb_Cadastro.UF, Tb_Cadastro.obs
FROM Tb_Cadastro;")

qdf.Close
 
DoCmd.OpenQuery "qryTemp", acViewNormal, acReadOnly



Tenha atenção para a linhas em verde do código (ficará verde no Access)

Observe o que tive que fazer no format.

Sinto pela "linguiça" que ficou o código na página.

Abraços

Balem, funcionou. Muitíssimo agradecido e que Deus lhe abençõe e a todos que tentaram me ajudar.

Valeu pelo retorno.

Boa sorte!

Grato