Amigos.. ja fiz isso varias vezes.. mas confesso que não estou a conseguir com este sql..
Se puderem me ajudar...
'RecordSource
StrSQL = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nome da Mãe], Extra_Muros.[ID_ExtraMuros]," _
& "Extra_Muros.[ID_Detento], Extra_Muros.[DataExtraMuros]," _
& "Extra_Muros.[DataExtraMuros1], Extra_Muros.[HoraExtraMuros], Extra_Muros.[Escoltadopor]," _
& "Extra_Muros.[Finalidade], Extra_Muros.[Determinacao], Extra_Muros.[Itinerario]," _
& "Extra_Muros.[Itinerario1], Extra_Muros.[Itinerario2], Extra_Muros.[Autoridade], Format([DataExtraMuros],'m') AS MesNumero, " _
& "Format([DataExtraMuros],'mmmm') AS Mes, Format([DataExtraMuros],'yyyy') AS Ano," _
& "Extra_Muros.[AnotacoesExtraMuros] FROM Detentos LEFT JOIN Extra_Muros ON Detentos.[ID] = Extra_Muros.[ID_Detento] IN '" & StrPath & "'"
Grato
Se puderem me ajudar...
'RecordSource
StrSQL = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nome da Mãe], Extra_Muros.[ID_ExtraMuros]," _
& "Extra_Muros.[ID_Detento], Extra_Muros.[DataExtraMuros]," _
& "Extra_Muros.[DataExtraMuros1], Extra_Muros.[HoraExtraMuros], Extra_Muros.[Escoltadopor]," _
& "Extra_Muros.[Finalidade], Extra_Muros.[Determinacao], Extra_Muros.[Itinerario]," _
& "Extra_Muros.[Itinerario1], Extra_Muros.[Itinerario2], Extra_Muros.[Autoridade], Format([DataExtraMuros],'m') AS MesNumero, " _
& "Format([DataExtraMuros],'mmmm') AS Mes, Format([DataExtraMuros],'yyyy') AS Ano," _
& "Extra_Muros.[AnotacoesExtraMuros] FROM Detentos LEFT JOIN Extra_Muros ON Detentos.[ID] = Extra_Muros.[ID_Detento] IN '" & StrPath & "'"
Grato