Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Εμφάνιση ορισμένου πλήθους εγγραφών σε ερώτημα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 13-09-18, 13:51
Όνομα: Βάγγος
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 13-04-2016
Μηνύματα: 18
Προεπιλογή Εμφάνιση ορισμένου πλήθους εγγραφών σε ερώτημα

Καλησπέρα
Θέλω να σχεδιάσω ένα ερώτημα το οποίο όμως θα εμφανίζει συγκεκριμένο πλήθος εγγραφών (και όχι όλες) διαφορετικό κάθε φορά και ανάλογα την περίπτωση.
Και για να γίνω πιο συγκεκριμένος
Το παρακάνω ερώτημα π.χ. θα μου επιστρέφει πάντα 5 εγγραφές
Κώδικας:
SELECT TOP 5 TEBLE1.field1 .....
Στη θέση του 5 μπορεί να μπει μεταβλητή (π.χ. κάποιο πεδίο φόρμας) ώστε το ερώτημα να επιστρέφει κάθε φορά τις Χ εγγραφές;
Ευχαριστώ πολύ
Απάντηση με παράθεση
  #2  
Παλιά 14-09-18, 19:51
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.800
Προεπιλογή

Καλησπέρα

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

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 του ερωτήματος και ακολούθως το ανοίγει.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb VariableTopRecords.mdb (456,0 KB, 7 εμφανίσεις)
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Μορφοποίηση] Προειδοποίηση για παρέλευση ορισμένου χρόνου ΗΛΙΑΣ Excel - Ερωτήσεις / Απαντήσεις 7 30-09-14 21:03
[ Ερωτήματα ] Εύρεση πλήθους εγγραφών dmarop Access - Ερωτήσεις / Απαντήσεις 6 08-08-12 14:56
[ Φόρμες ] Εμφάνιση συνόλου εγγραφών mike04 Access - Ερωτήσεις / Απαντήσεις 4 11-02-12 23:20
Περιορισμός πλήθους εγγραφών σε υποφόρμα Jim Access - Ερωτήσεις / Απαντήσεις 3 02-11-10 19:11
Εκτύπωση προεπιλεγμένου πλήθους εγγραφών Meteora Access - Ερωτήσεις / Απαντήσεις 3 10-11-09 15:24


Η ώρα είναι 06:03.