Avanceret TOP 3 forespørgsel

Mon ikke du kan benytte en UNION til dette :

SELECT TOP 3 tblLand.Land, tblLand.By, tblLand.IndTal FROM tblLand
WHERE (((tblLand.Land)="Danmark"))
ORDER BY tblLand.IndTal DESC;
UNION
SELECT TOP 3 tblLand.Land, tblLand.By, tblLand.IndTal FROM tblLand
WHERE (((tblLand.Land)="Norge"))
ORDER BY tblLand.IndTal DESC;

Det kunne jeg sagtens, men der er x lande og landenavne varierer fra måned til måned.

Hvordan kan landenavn variere ? ... det er reelt uden betydning, da listen kun medtager lande som findes i dit datasæt

Indrømmet lidt uklart formuleret.
Nogle måneder er Argentina med på listen, andre måneder er det Marokko eller Tyskland.

Jeg er med på at jeg i princippet kunne lave UNION øvelsen for alle lande. Det har dog den slagside at der jo er hundredevis af lande og dermed bliver det en ganske lang sql-sætning.

Pointen er at jeg helst ville have en forespørgsel, der fungerer uafhængigt af antallet af lande og uden at skulle ændre i forespørgslen hvis der tilføjes et nyt land.

Jeg havde noget lignende får år tilbage, måske kan du benytte dette

http://www.eksperten.dk/spm/580236

Hvis du ikke helt er med på fremgangsmåder, går det ud på, at du har en ekstra tabel, hvori du har alle landene oplistet ( eksempel tblAlleLande ). Derudover har du en tabel hvor du indsætter dine resultater af Top3 ( eksempel tblTop3Lande )

Function tblLandLoop()
Dim strSQL As String
    Dim strSQL1 As String
        Dim strSQL2 As String
            Dim strSQL3 As String

Dim db As DAO.Database
Dim rsttblAlleLande As Recordset

    Set db = CurrentDb()

    strSQL = "INSERT INTO tblTop3Lande ( Land, [By], IndTal ) "
    strSQL = strSQL & "SELECT TOP 3 "
    strSQL = strSQL & "tblLand.Land, "
    strSQL = strSQL & "tblLand.By, "
    strSQL = strSQL & "tblLand.IndTal "
    strSQL = strSQL & "FROM tblLand "
    strSQL = strSQL & "GROUP BY tblLand.Land, tblLand.By, tblLand.IndTal "
    strSQL2 = "ORDER BY tblLand.IndTal DESC;"
       
    Set db = CurrentDb
    Set rsttblAlleLande = db.OpenRecordset("tblAlleLande", dbOpenDynaset)
    Do Until rsttblAlleLande.EOF
        strSQL1 = "HAVING (((tblLand.Land) = """ & rsttblAlleLande!Land & """)) "
        strSQL3 = strSQL & strSQL1 & strSQL2
        db.Execute strSQL3
        rsttblLande.MoveNext
    Loop

End Function

Hvis du ikke helt er med på fremgangsmåder, går det ud på, at du har en ekstra tabel, hvori du har alle landene oplistet ( eksempel tblAlleLande )/alternativt en forespørgsel hvor du dynamisk har landene fra tblLand.

Jeg er helt med på fremgangsmåden. Jeg har selv lavet denne:

Public Sub Top3Byer()

Dim RS As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT DISTINCT tblLand.Land FROM tblLand ORDER BY Land"

Set RS = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
strSQL = ""
While Not RS.EOF
    If strSQL <> "" Then strSQL = strSQL & " UNION "
    strSQL = strSQL & "SELECT TOP 3 tblLand.Land, tblLand.By, tblLand.Indbyggere FROM tblLand WHERE tblLand.Land = '" & RS.Fields("Land") & "' ORDER BY Indbyggere DESC"
    RS.MoveNext
Wend

CurrentDb.QueryDefs("qry2").SQL = strSQL
CurrentDb.QueryDefs("qry1").SQL = "SELECT qry2.Land, qry2.By, qry2.Indbyggere FROM qry2 ORDER BY qry2.Land, qry2.Indbyggere DESC"

DoCmd.OpenQuery "qry1"

End Sub

Og der lader ikke til at være nogen måde at lave den på, som ikke er programmatisk. Tak for hjælpen alligevel og point for indsats.

Jeg takker