Amigos tenho uma SQL que funciona perfeitamente.. mas preciso adicionar um campo não acoplado com formatação por data.. tentei assim e não funcionou.. se puderem me ajude a resolver.. Fico grato por isto..
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela]," _
& "Detentos.[Data da Prisão],Detentos.[Se Albergado, Regime], [Regime], Detentos.[Anotações], Detentos.[Sexo]," _
& "Detentos.[Crime], Detentos.[Situação Penal], Faltas.[Mês], Faltas.[DataFalta], Faltas.[UnidadePrisional]," _
& "Faltas.[AnotacoesFalta], Format([DataFalta],"m") AS MesNumero, " _
& "FROM Detentos LEFT JOIN Faltas ON Detentos.[ID] = Faltas.[ID_Falta] IN '" & StrPath & "'" _
& "WHERE (Faltas.[DataFalta] Is Not Null) And UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarRegAlbergue & "';"
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela]," _
& "Detentos.[Data da Prisão],Detentos.[Se Albergado, Regime], [Regime], Detentos.[Anotações], Detentos.[Sexo]," _
& "Detentos.[Crime], Detentos.[Situação Penal], Faltas.[Mês], Faltas.[DataFalta], Faltas.[UnidadePrisional]," _
& "Faltas.[AnotacoesFalta], Format([DataFalta],"m") AS MesNumero, " _
& "FROM Detentos LEFT JOIN Faltas ON Detentos.[ID] = Faltas.[ID_Falta] IN '" & StrPath & "'" _
& "WHERE (Faltas.[DataFalta] Is Not Null) And UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarRegAlbergue & "';"