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/2451-ektiposi-formas.html)

sarrpan 04-04-13 13:45
Εκτύπωση φόρμας
 
1 Συνημμένο(α)
Καλησπέρα και ευχαριστώ για την βοήθεια σας. Ελπίζω αυτή την φορά να το στείλω στο σωστό μέρος και όχι στο forum για Word άντε να δούμε.
Έχω μία φόρμα στην οποία έχω χρησιμοποιήσει τους τρόπους φιλτραρίσματος και ταξινόμησης που έχω βρει στο πολύ αξιόλογο site σας.
Η φόρμα έχει 8 πεδία. Το φιλτράρισμα μπορεί να γίνει μέχρι 2 πεδία και η ταξινόμηση σε όλα τα πεδία.
Θα ήθελα να ρωτήσω πως μπορώ να εκτυπώσω το αποτέλεσμα του φιλτραρίσματος και ταξινόμησης χωρίς να φαίνονται τα κουμπιά. Ευχαριστώ.

sarrpan 05-04-13 09:12
ΕΚΤΥΠΩΣΗ ΦΟΡΜΑΣ
 
1 Συνημμένο(α)
Καλησπέρα ξανά το φιλτράρισμα της φόρμας το πέρασα στην έκθεση θα προσπαθήσω και για την ταξινόμηση.
Ευχαριστώ.

Tasos 05-04-13 10:36
Καλημέρα Παναγιώτη!

Για το άνοιγμα της έκθεσης με διατήρηση του φίλτρου και ταξινόμησης της φόρμας δοκίμασε:

Στο κουμπί της φόρμας:

Κώδικας:
Private Sub cmdPrintPreview_Click()
    Dim docName As String
    docName = "rep_Ilika"
    If Me.Filter <> vbNullString And Me.FilterOn Then
        DoCmd.OpenReport docName, acViewPreview, , Me.Filter, , Me.OrderBy
    Else
        DoCmd.OpenReport docName, acViewPreview, , , , Me.OrderBy
    End If
End Sub
Στον κώδικα της έκθεσης αφαίρεσε οτιδήποτε και πέρασε το παρακάτω:

Κώδικας:
Option Compare Database
Option Explicit

Private Sub Report_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then  '
        Me.OrderBy = Me.OpenArgs
        Me.OrderByOn = True
    End If
End Sub
Καλή συνέχεια!

Τάσος

sarrpan 05-04-13 11:37
ΕΚΤΥΠΩΣΗ ΦΟΡΜΑΣ
 
Tasos ευχαριστώ πολύ έτσι όπως το βλέπω θα δουλεύει αν όχι θα ξαναγράψω. Ο κώδικας στην έκθεση υπήρχε γιατί την δημιούργησα από την φόρμα και πήρε μαζί της και τον κώδικα τώρα το παρατήρησα όπως επίσης και γραμμές κώδικα από διάφορες λύσεις που σκεφτόμουν και ξέχασα να τα σβήσω. Ευχαριστώ ξανά.
Επιστρέφω για να σας πω ότι δουλεύει.
Ευχαριστώ ξανά.


Η ώρα είναι 23:07.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2