[kapetang]

Καλησπέρα

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

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 του ερωτήματος και ακολούθως το ανοίγει.