Forum - Εμφάνιση ορισμένου πλήθους εγγραφών σε ερώτημα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Εμφάνιση ορισμένου πλήθους εγγραφών σε ερώτημα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5016-emfanisi-orismenoy-plithoys-eggrafon-se-erotima.html)

Εμφάνιση ορισμένου πλήθους εγγραφών σε ερώτημα

Καλησπέρα
Θέλω να σχεδιάσω ένα ερώτημα το οποίο όμως θα εμφανίζει συγκεκριμένο πλήθος εγγραφών (και όχι όλες) διαφορετικό κάθε φορά και ανάλογα την περίπτωση.
Και για να γίνω πιο συγκεκριμένος
Το παρακάνω ερώτημα π.χ. θα μου επιστρέφει πάντα 5 εγγραφές

Κώδικας:

SELECT TOP 5 TEBLE1.field1 .....

Στη θέση του 5 μπορεί να μπει μεταβλητή (π.χ. κάποιο πεδίο φόρμας) ώστε το ερώτημα να επιστρέφει κάθε φορά τις Χ εγγραφές;
Ευχαριστώ πολύ

Καλησπέρα

Βάγγο, κάνε δοκιμές στο συνημμένο.

1) Δημιούργησα ένα ερώτημα τύπου: SELECT TOP 1 ……. Και το ονόμασα Query1.

2) Στη φόρμα Form1, αφού συμπληρώσουμε το πλήθος των εγγραφών στοTextBox (txtTop), πατούμε το κουμπί (cmdOpenQuery).

Θα τρέξει ο παρακάτω κώδικας:

Κώδικας:

Private Sub cmdOpenQuery_Click()

    Dim qdf As QueryDef, strSQL As String, top As Long
 

    If Nz(Me.txtTop, "") = "" Then

        MsgBox "Συμπληρώστε Ένα Θετικό Ακέραιο"

        Me.txtTop.SetFocus

        Exit Sub

    End If
 

    DoCmd.Close acQuery, "Query1"

    Set qdf = CurrentDb.QueryDefs("Query1")

    strSQL = qdf.SQL

    top = Val(Replace(strSQL, "SELECT TOP", ""))

    qdf.SQL = Replace(strSQL, top, Me.txtTop, , 1)

    DoCmd.OpenQuery "Query1"
 

End Sub

Ο κώδικας τροποποιεί την ιδιότητα SQL του ερωτήματος και ακολούθως το ανοίγει.

Εξαιρετικό!!!
Ευχαριστώ πολύ

Να είσαι καλά!