Αρίθμηση γραμμών ερωτήματος μετά την ταξινόμησή τους

[Tasos]

Καλησπέρα φίλε μου.
Εκ των πραγμάτων, δε μπορώ να φέρω γνώμη για κάποιο έργο που καν δεν έχω δει
κι έτσι, βασισμένος στην προσέγγιση σου, θα σου πρότεινα τον παρακάτω κώδικα αντί της χρήσης ερωτημάτων:

Private Sub cmdCheckErrors_Click()
    On Error Resume Next
    Dim strSQL As String

    strSQL = "SELECT ΚατανάλωσηΝερού.Ημερομηνία, ΚατανάλωσηΝερού.ΣυνολικήΚατανάλωση INTO "
    strSQL = strSQL & "ΤαξινόμησηΚατάΗμερομηνία FROM ΚατανάλωσηΝερού ORDER BY ΚατανάλωσηΝερού.Ημερομηνία"
    CurrentDb.Execute strSQL

    strSQL = "SELECT ΚατανάλωσηΝερού.Ημερομηνία, ΚατανάλωσηΝερού.ΣυνολικήΚατανάλωση INTO "
    strSQL = strSQL & "ΤαξινόμησηΚατάΣυνολικήΚατανάλωση FROM ΚατανάλωσηΝερού ORDER BY "
     strSQL = strSQL & "ΚατανάλωσηΝερού.ΣυνολικήΚατανάλωση"
    CurrentDb.Execute strSQL

    strSQL = "SELECT ΤαξινόμησηΚατάΗμερομηνία.Ημερομηνία, ΤαξινόμησηΚατάΗμερομηνία.ΣυνολικήΚατανάλωση"
    strSQL = strSQL & " INTO tblResults FROM ΤαξινόμησηΚατάΗμερομηνία INNER JOIN "
    strSQL = strSQL & "ΤαξινόμησηΚατάΣυνολικήΚατανάλωση ON ΤαξινόμησηΚατάΗμερομηνία.Αρίθμηση = "
    strSQL = strSQL & "ΤαξινόμησηΚατάΣυνολικήΚατανάλωση.Αρίθμηση WHERE (((ΤαξινόμησηΚατάΗμερομηνία."
    strSQL = strSQL & "[ΣυνολικήΚατανάλωση)<>ΤαξινόμησηΚατάΣυνολικήΚατανάλωση]![ΣυνολικήΚατανάλωση]))"
    CurrentDb.Execute strSQL
    DoCmd.OpenTable "tblResults"
    DoCmd.DeleteObject acTable, "ΤαξινόμησηΚατάΗμερομηνία"
    DoCmd.DeleteObject acTable, "ΤαξινόμησηΚατάΣυνολικήΚατανάλωση"

End Sub

Καλή συνέχεια!

Τάσος