alfabetisch ordenen

Status
Niet open voor verdere reacties.
S

so10070

Gebruiker
Lid geworden
4 feb 2014
Berichten
419
Een query met twee subquery's aangemaakt met query-ontwerp. De lijst met items wordt dan alfabetisch gesorteerd. Knip en plak ik die query in vba, wordt niets meer gesorteerd. Iemand een idee?
 
Hierbij
Code: 
    sqlOpenenScholenProcenten = "SELECT qry_VerhoudingASTADmetSOMI.[Organisatie naam divisie] AS Divisie, qry_VerhoudingASTADmetSOMI.[Organisatie gebruikersnaam instelling] AS Instelling, " & _
        "qry_VerhoudingASTADmetSOMI.[AantalVanOrganisatie instellingsnummer] AS InstellingsnummerASTAD, " & _
        "qry_VerhoudingTotaalSOMI.[AantalVanOrganisatie instellingsnummer] AS InstellingsnummerSOMI, " & _
        "Format([qry_VerhoudingASTADmetSOMI]![AantalVanOrganisatie instellingsnummer]/[qry_VerhoudingTotaalSOMI]![AantalVanOrganisatie instellingsnummer],""Percent"") AS Verhouding " & _
        "FROM " & _
            "(" & _
                "SELECT tblSOMI.[Organisatie naam divisie], Count(tblSOMI.[Organisatie instellingsnummer]) AS [AantalVanOrganisatie instellingsnummer], " & _
                "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] FROM tblSOMI INNER JOIN tblASTAD ON " & _
                "tblSOMI.[SO nummer] = tblASTAD.[Medewerker AD Accountnaam] GROUP BY tblSOMI.[Organisatie naam divisie], tblSOMI.[Organisatie gebruikersnaam instelling], " & _
                "tblSOMI.[Organisatie instellingsnummer] ORDER BY tblSOMI.[Organisatie naam divisie], tblSOMI.[Organisatie gebruikersnaam instelling]" & _
            ") " & _
            "AS qry_VerhoudingASTADmetSOMI " & _
        "INNER JOIN " & _
            "(" & _
                "SELECT tblSOMI.[Organisatie naam divisie], Count(tblSOMI.[Organisatie instellingsnummer]) AS [AantalVanOrganisatie instellingsnummer], " & _
                "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] FROM tblSOMI GROUP BY tblSOMI.[Organisatie naam divisie], " & _
                "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] ORDER BY tblSOMI.[Organisatie naam divisie], " & _
                "tblSOMI.[Organisatie gebruikersnaam instelling]" & _
            ") " & _
            "AS qry_VerhoudingTotaalSOMI ON " & _
        "qry_VerhoudingASTADmetSOMI.[Organisatie instellingsnummer] = qry_VerhoudingTotaalSOMI.[Organisatie instellingsnummer] " & _
        "ORDER BY qry_VerhoudingASTADmetSOMI.[Organisatie naam divisie], qry_VerhoudingASTADmetSOMI.[Organisatie gebruikersnaam instelling];"
 
Behalve dat je een ongelooflijk onhandige manier hebt van dingen benoemen (veel te lange namen, spaties in namen, geen aliassen gebruiken) is het zonder de db te zien lastig om te beoordelen waarom de query niet werkt. Je kunt eens kijken wat er gebeurt als je de query uit een inputbox haalt en in een nieuwe query plakt.

Code: 
    sqlOpenenScholenProcenten = "SELECT q1.[Organisatie naam divisie] AS Divisie, " _
        & "q1.[Organisatie gebruikersnaam instelling] AS Instelling, " _
        & "q1.[AantalInstellingNr] AS InstellingsnummerASTAD, " _
        & "q2.[AantalInstellingNr] AS InstellingsnummerSOMI, " _
        & "Format([q1]![AantalInstellingNr]/[q2]![AantalInstellingNr],""Percent"") AS Verhouding " _
        & "FROM (" _
            & "SELECT tblSOMI.[Organisatie naam divisie], Count(tblSOMI.[Organisatie instellingsnummer]) AS [AantalInstellingNr], " _
            & "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] FROM tblSOMI INNER JOIN tblASTAD ON " _
            & "tblSOMI.[SO nummer] = tblASTAD.[Medewerker AD Accountnaam] GROUP BY tblSOMI.[Organisatie naam divisie], " _
            & "tblSOMI.[Organisatie gebruikersnaam instelling], " _
            & "tblSOMI.[Organisatie instellingsnummer] ORDER BY tblSOMI.[Organisatie naam divisie], tblSOMI.[Organisatie gebruikersnaam instelling]" _
            & ") AS q1 " _
        & "INNER JOIN (" _
            & "SELECT tblSOMI.[Organisatie naam divisie], Count(tblSOMI.[Organisatie instellingsnummer]) AS [AantalInstellingNr], " _
            & "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] " _
            & "FROM tblSOMI GROUP BY tblSOMI.[Organisatie naam divisie], " _
            & "tblSOMI.[Organisatie gebruikersnaam instelling], tblSOMI.[Organisatie instellingsnummer] " _
            & "ORDER BY tblSOMI.[Organisatie naam divisie], " _
            & "tblSOMI.[Organisatie gebruikersnaam instelling]" _
            & ") AS q2 ON q1.[Organisatie instellingsnummer] = q2.[Organisatie instellingsnummer] " _
        & "ORDER BY q1.[Organisatie naam divisie], q1.[Organisatie gebruikersnaam instelling];"

    tmp = InputBox("", "", sqlOpenenScholenProcenten)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan