Recordset με βάση το τρέχον φίλτρο

[Meteora]

Καλημέρα σε όλους

Αγαπητέ μου, φτιάξε σε μια μεταβλητή filtro την επιλογή του χρήστη πχ filtro="ΤΚ='12345'" και χρησιμοποίησε κάτι σαν αυτό εδώ:

With CurrentDb.OpenRecordset("SELECT * FROM nameTable  where " & filtro)
          .MoveFirst
         Do While Not .EOF
          <κώδικας εκτύπωσης>
          .MoveNext

          Loop
  End With

Κώστα, δέξου την απάντησή μου ως μια πρώτη προσέγγιση...
Νίκος Δ.

[kapetang]

Καλησπέρα στην παρέα

Κώστα στη βάση δεδομένων, που επισυνάπτω, δοκίμασα μια λύση παραπλήσια με αυτήν που πρότεινε ο φίλος Νίκος.
Στηρίζεται στην ιδιότητα RecordsetClone της φόρμας, η οποία αντιπροσωπεύει τις εγγραφές που εμφανίζονται κάθε στιγμή στη φόρμα (όλες ή μέρος αν εφαρμοστεί κάποιο φίλτρο).
Ο κώδικας για την εκτύπωση θα πρέπει να προστεθεί στον κώδικα του συμβάντος «κλικ» του κουμπιού «Εκτύπωση» (cmdPrint), που φαίνεται παρακάτω.

Private Sub cmdPrint_Click()
    With Me.RecordsetClone
        .MoveFirst
        Do Until .EOF
            ' εντολές εκτύπωσης
            .MoveNext
        Loop
    End With
End Sub

Φιλικά/Γιώργος