Tilføjelsesforespørgsel Top 10

Denne programkode giver ialt 16 poster, ikke som forventet 20

Function Case_OKTOBER()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    'AKK OKT A-kunder
    strSQL = "INSERT INTO tblTOP10_Grundlag "
    strSQL = strSQL & "( [Firma id], "
    strSQL = strSQL & "[Firma Navn], "
    strSQL = strSQL & "[Firma Ansvarlig], "
    strSQL = strSQL & "Måned, "
    strSQL = strSQL & "[AKK Salg kr], "
    strSQL = strSQL & "[AKK Budget kr], "
    strSQL = strSQL & "KundeType ) "
    strSQL = strSQL & "SELECT TOP 10 "
    strSQL = strSQL & "Indeværende_år.[Firma id], "
    strSQL = strSQL & "Indeværende_år.[Firma Navn], "
    strSQL = strSQL & "Indeværende_år.[Firma Ansvarlig], "
    strSQL = strSQL & "Int([Indeværende_år] & ""10"") AS MD, "
    strSQL = strSQL & "Sum(Indeværende_år.[Salg kr]) AS [Salg kr], "
    strSQL = strSQL & "Sum(Indeværende_år.[Budget kr]) AS [Budget kr], "
    strSQL = strSQL & """A"" AS KundeType "
    strSQL = strSQL & "FROM tblOpgørelsesår, "
    strSQL = strSQL & "Indeværende_år "
    strSQL = strSQL & "INNER JOIN tblPerioder "
    strSQL = strSQL & "ON Indeværende_år.Måned = tblPerioder.AARMD "
    strSQL = strSQL & "WHERE (((tblPerioder.[MD ID]) In (1,2,3,4,5,6,7,8,9,10))) "
    strSQL = strSQL & "GROUP BY Indeværende_år.[Firma id], "
    strSQL = strSQL & "Indeværende_år.[Firma Navn], "
    strSQL = strSQL & "Indeværende_år.[Firma Ansvarlig], "
    strSQL = strSQL & "Int([Indeværende_år] & ""10""), "
    strSQL = strSQL & """A"" "
    strSQL = strSQL & "ORDER BY Sum(Indeværende_år.[Salg kr]) DESC;"

        db.Execute strSQL
   
    'AKK OKT K-kunder
    strSQL = "INSERT INTO tblTOP10_Grundlag "
    strSQL = strSQL & "( [Firma id], "
    strSQL = strSQL & "[Firma Navn], "
    strSQL = strSQL & "[Firma Ansvarlig], "
    strSQL = strSQL & "Måned, "
    strSQL = strSQL & "[AKK Salg kr], "
    strSQL = strSQL & "[AKK Budget kr], "
    strSQL = strSQL & "KundeType ) "
    strSQL = strSQL & "SELECT TOP 10 "
    strSQL = strSQL & "Indeværende_år.[Koncernmoder ID], "
    strSQL = strSQL & "Indeværende_år.[Koncernmoder Navn], "
    strSQL = strSQL & "Indeværende_år.[Firma Ansvarlig], "
    strSQL = strSQL & "Int([Indeværende_år] & ""10"") AS MD, "
    strSQL = strSQL & "Sum(Indeværende_år.[Salg kr]) AS [Salg kr], "
    strSQL = strSQL & "Sum(Indeværende_år.[Budget kr]) AS [Budget kr], "
    strSQL = strSQL & """K"" AS KundeType "
    strSQL = strSQL & "FROM tblOpgørelsesår, "
    strSQL = strSQL & "Indeværende_år "
    strSQL = strSQL & "INNER JOIN tblPerioder "
    strSQL = strSQL & "ON Indeværende_år.Måned = tblPerioder.AARMD "
    strSQL = strSQL & "WHERE (((tblPerioder.[MD ID]) In (1,2,3,4,5,6,7,8,9,10))) "
    strSQL = strSQL & "GROUP BY Indeværende_år.[Koncernmoder ID], "
    strSQL = strSQL & "Indeværende_år.[Koncernmoder Navn], "
    strSQL = strSQL & "Indeværende_år.[Firma Ansvarlig], "
    strSQL = strSQL & "Int([Indeværende_år] & ""10""), "
    strSQL = strSQL & """K"" "
    strSQL = strSQL & "ORDER BY Sum(Indeværende_år.[Salg kr]) DESC;"

        db.Execute strSQL

End Function