StrSQL = StrSQL & " FROM SKandidatstatus RIGHT JOIN ((SHoldIdeksternt RIGHT JOIN (sholdideksternt RIGHT JOIN (skandidater LEFT JOIN Sbrugerdata ON [skandidater].kandidatid = [sbrugerdata].kandidatid)" StrSQL = StrSQL & " ON [sholdideksternt].eksternid = [skandidater].eksternid) LEFT JOIN skandidatinterview ON [skandidater].kandidatid = [skandidatinterview].kandidatid) ON [skandidatstatus].statusid = [skandidater].status"
StrSQL = StrSQL & " GROUP BY [Skandidater].KandidatId, [Skandidater].Navn, [skandidater].adresse, [skandidater].adresse2, [skandidater].Pby, [Skandidater].Cpr, [Skandidater].ØkoId, [Skandidater].Målgruppe, [SHoldIdeksternt].Beskrivelse, [sbrugerdata].brugernavn, [sbrugerdata].password, " StrSQL = StrSQL & " [Skandidater].Idriftfra, [Skandidater].Dagpengestart, [Skandidater].Ledigheduger, [Skandidater].Konsulent, [skandidater].afdeling, Format([næstemødedato],'dd/mm/yyyy')," StrSQL = StrSQL & " [skandidatstatus]!beskrivelse, [skandidater].Status, [skandidater].internid, IIf(IsNull([20Tblanket]),'Nej',IIf(([20Tblanket]=False),'Nej','Ja'))" StrSQL = StrSQL & " HAVING ((NOT ([skandidater].Kandidatid) Is Null)) AND ([skandidater].konsulent>='" & request.form("frakonsulent") & "' AND [skandidater].konsulent<='" & Request.form("tilkonsulent") & "')" StrSQL = StrSQL & " AND ([skandidater].afdeling>='" & Request.form("fraafdeling") & "' AND [skandidater].afdeling<='" & request.form("tilafdeling") & "')" StrSQL = StrSQL & " AND ([skandidater].status>=" & fstatus & " AND [skandidater].status<=" & tstatus & ")" StrSQL = StrSQL & " AND ([skandidater].internid>=" & fihold & " AND [skandidater].internid<=" & tihold & ")"
StrSQL = StrSQL & " ORDER BY [skandidatstatus]!beskrivelse"
Tak for indsatsen Netro! Hér er løsningen, uden at jeg kan fortælle præcis, hvad jeg gjorde - jo jeg startede forfra - og lavede denne gang SQL sætningen i access indbyggede querybuilder først!
Set rs2 = Server.CreateObject("ADODB.Recordset") Set FSO = Createobject("scripting.filesystemobject") Set act = Fso.CreateTextfile(server.mappath(Fname),true)
StrSQL = StrSQL & " FROM [SKandidatstatus] RIGHT JOIN ((([SHoldIdeksternt] LEFT JOIN [Skandidater] ON [SHoldIdeksternt].EksternId = [Skandidater].EksternId)" StrSQL = StrSQL & " LEFT JOIN [Sbrugerdata] ON [skandidater].kandidatid = [sbrugerdata].kandidatid)" StrSQL = StrSQL & " LEFT JOIN [SKandidatinterview] ON [Skandidater].KandidatId = [SKandidatinterview].KandidatId) ON [SKandidatstatus].StatusId = [Skandidater].Status"
StrSQL = StrSQL & " GROUP BY [Skandidater].KandidatId, [Skandidater].Navn, [skandidater].adresse, [skandidater].adresse2, [skandidater].Pby, [Skandidater].Cpr, [Skandidater].ØkoId, [Skandidater].Målgruppe, [SHoldIdeksternt].Beskrivelse," StrSQL = StrSQL & " [Skandidater].Idriftfra, [Skandidater].Dagpengestart, [Skandidater].Ledigheduger, [Skandidater].Konsulent, [skandidater].afdeling, Format([næstemødedato],'dd/mm/yyyy'), [sbrugerdata].bruger, [sbrugerdata].password," StrSQL = StrSQL & " [skandidatstatus]!beskrivelse, [skandidater].Status, [skandidater].internid, IIf(IsNull([20Tblanket]),'Nej',IIf(([20Tblanket]=False),'Nej','Ja'))" StrSQL = StrSQL & " HAVING ((NOT ([skandidater].Kandidatid) Is Null)) AND ([skandidater].konsulent>='" & request.form("frakonsulent") & "' AND [skandidater].konsulent<='" & Request.form("tilkonsulent") & "')" StrSQL = StrSQL & " AND ([skandidater].afdeling>='" & Request.form("fraafdeling") & "' AND [skandidater].afdeling<='" & request.form("tilafdeling") & "')" StrSQL = StrSQL & " AND ([skandidater].status>=" & fstatus & " AND [skandidater].status<=" & tstatus & ")" StrSQL = StrSQL & " AND ([skandidater].internid>=" & fihold & " AND [skandidater].internid<=" & tihold & ")"
StrSQL = StrSQL & " ORDER BY [skandidatstatus]!beskrivelse"
Det var godt. En smule svært at overskue det enorme statement.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.