[Resolvido]Transferindo uma SQL de consulta Access para uma SQL em VB

Aamigos tentei adaptar esta SQL que é de uma consulta Access para aplicá-la no meu SQL no VBA....
Mas está dando erro de compilação...

Observem que há campos que não são acoplados... Campos Data (Format....)
Se puderem me ajudar..fico-lhes grato


StrDetento = "Detentos.ID, [Nome] & Space(1) & [Sobrenome] AS Detento, Detentos.Nome, Detentos.Sobrenome, Detentos.Advogado," _
& "Detentos.Alcunha, Detentos.Sexo, Detentos.Crime, Detentos.Nível, Detentos.Cela, Detentos.RegimeAtual, Detentos.UnidadeRequisitante," _
& "Detentos.[Se Albergado, Regime], Detentos.[Prisão Civil], Detentos.[Data de Nascimento], Format([Data de Nascimento],"d") AS DiaRef," _
& "Format([Data de Nascimento],"mmmm") AS MesRef, MostraIdade([Data de Nascimento]) & " " & "Anos" AS Idade, Left([Idade],2) AS IdadeRef," _
& IIf([IdadeRef] Between 5 And 18,"5/18",IIf([IdadeRef] Between 18 And 30,"18/30",IIf([IdadeRef] Between 30 And 40,"30/40"," _
& "IIf([IdadeRef] Between 40 And 50,"40/50",IIf([IdadeRef] Between 50 And 60,"50/60",IIf([IdadeRef] Between 60 And 70,"60/70"," _
& "IIf([IdadeRef] Between 70 And 80,"70/80",IIf([IdadeRef] Between 90 And 100,"90/100")))))))) AS [Faixa Etaria], Detentos.[Telefone Comercial]," _
& "Detentos.[Telefone Residencial], Detentos.[Telefone Celular], Detentos.Anotações, Detentos.[Nome do Médico]," _
& "Detentos.[Telefone do Médico], Detentos.Medicamentos, Detentos.Alergias,Detentos.[Nome Contato Emergência] , Detentos.[Telefone 1 do Contato de Emergência]," _
& "Detentos.[Telefone 2 do Contato de Emergência] , Detentos.[Relação do Contato de Emergência], Detentos.[Nome Contato Emergência1]," _
& "Detentos.[Telefone 1 do Contato de Emergência1], Detentos.[Telefone 2 do Contato de Emergência1], Detentos.[Relação do Contato de Emergência1]," _
& "Detentos.Naturalidade, Detentos.Nacionalidade, Detentos.[Estado Civil], Detentos.[Nome do Pai], Detentos.Filhos, Detentos.[Se falecido]," _
& "Detentos.[Nome da Mãe], Detentos.[Se Falecida], Detentos.Endereço, Detentos.Cidade, Detentos.Complemento, Detentos.CodigoPostal, Detentos.País," _
& "Detentos.Estado, Detentos.[Trabalho- anterior a Prisão], Detentos.Telefone, Detentos.Profissão, Detentos.[Grau de Instrução], Detentos.Conjuge," _
& "Detentos.[RG/CPF], Detentos.Etnia, Detentos.[Tipo Físico], Detentos.[Peso Informado], Detentos.Cabelos, Detentos.Olhos, Detentos.Estatura," _
& "Detentos.[Sinais Particulares], Detentos.Tatuagens , Detentos.Cicatrizes, Detentos.[Data da Prisão], Detentos.[Data da Saída], Detentos.Origem," _
& "Detentos.Reicidente, Detentos.Infração, Detentos.[Processo Número], Detentos.Regime, Detentos.[Situação Penal], Detentos.[Pena Ano]," _
& "Detentos.[Pena Mês] , Detentos.Condicional, Detentos.[Término Pena], Detentos.Juizado, Detentos.Promotoria, Detentos.[Assitente Jurídico]," _
& "Detentos.Observações, Detentos.Vara, Detentos.[Processos em outras Comarcas], Detentos.[Situação do Processo Anterior], Detentos.RDD," _
& "Detentos.[Se RDD, Local e Período], Detentos.Alvará, Detentos.[Mês Alvará], Detentos.Transferido, Detentos.[Albergado Comparece]," _
& "Detentos.[Data da Inclusao na unidade], Detentos.EntradaNaUnidade From Detentos WHERE (((Detentos.RegimeAtual)="Fechado") AND ((Detentos.UnidadeRequisitante)="Mineiros"))";"

Vixe, precisarei de umas 5 horas só para ler tudo

aiaiaiai
rsrsrs

Amigão.. se me der uma dica ja posso ir ajeitando ela aqui....
um dos campos que estão dando problemas são os que tem valores assim:

Data de Nascimento],"d")

Me parece que tem umas variáveis aí no meio. Será que não funcionariam melhor se as tratasse fora do conjunto para depois anexá-la já com seus valores definidos?

Sim ..há variáveis..

MostraIdade([Data de Nascimento]) & " " & "Anos

é Esta ai... os demais campos fazen referencia a ela...

Estes sao os campos que usam esse paramentro de idade


Format([Data de Nascimento],"d") AS DiaRef,

Format([Data de Nascimento],"mmmm") AS MesRef,

MostraIdade([Data de Nascimento]) & " " & "Anos" AS Idade,

Left([Idade],2) AS IdadeRef, IIf([IdadeRef] Between 5 And 18,"5/18",IIf([IdadeRef] Between 18 And 30,"18/30",IIf([IdadeRef] Between 30 And 40,"30/40",IIf([IdadeRef] Between 40 And 50,"40/50",IIf([IdadeRef] Between 50 And 60,"50/60",IIf([IdadeRef] Between 60 And 70,"60/70",IIf([IdadeRef] Between 70 And 80,"70/80",IIf([IdadeRef] Between 90 And 100,"90/100")))))))) AS [Faixa Etaria]

Já tentou formatar direto na variável antes de aplicá-la ao conjunto?

Como seria isso.. poderia me dar um exemplo amigão??

Bem... veja a ideia que eu tive:

O que me diz de:
No BackEnd eu criar uma consulta com esses campos.... e no form ao inves de carregar as tabelas com essas variaveis...
Carregar a consulta do Back End....

Ja fiz isso uma vez e deu certo, agora pergunto... é viável técnicamente e robusto?????

Bem amigo, acredito que o mais viável é o que melhor funcionar, até porque existem diferenças entre cada caso, não? Vamos aos testes

Mas a informação que quero de voce é a seguinte...

Tenho tabelas no Back.. e so queria ter somente elas....
Sei que tem como fazer isso ai acima na sql, mas esta pordemais complicado...

Entao pergunto... se eu fizer essa consultsa no Back End e Usar o RecordSource para ler as mesmas ao inves da tabela...
a robusticidade do BD seria a mesma?

Resumiindo...iria funcionar igual, com a mesma agilidade, sem risco de perda de dados etc e tal???

Bem amigos coloquei a SQL para ler valores da tabela apenas... As variáveis que ali estao tratarei separadamente...

Grato