[ Εκθέσεις ] Μετατροπή έκθεσης σε PDF

[dimmag]

Καλησπέρα.Γιώργο ένας τρόπος είναι στο ερώτημα που παίρνεις από τον πίνακα με όνομα ΠΙΝΑΚΑΣ_1 και έχει όνομα πεδίου το ΠΕΔΙΟ_1 να γράψεις ένα από τα παρακάτω σε ένα πεδίο

ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: DCount("ΠΕΔΙΟ_1";"ΠΙΝΑΚΑΣ_1";"ΠΕΔΙ Ο_1 <=" & [ΠΕΔΙΟ_1])
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: DCount("ΠΕΔΙΟ_1 ";"ΠΙΝΑΚΑΣ_1";"ΠΕΔΙΟ_1 <='" & [ΠΕΔΙΟ_1 ] & "'")
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: (Select Count(1) FROM ΠΙΝΑΚΑΣ_1 A WHERE A.ΠΕΔΙΟ_1 <=ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1)
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: (Select Count(1) FROM ΠΙΝΑΚΑΣ_1 A
WHERE A.ΠΕΔΙΟ_1 <=ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1 )

Ταξινόμηση Αύξουσα ως προς ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1

Φιλικά Δημήτρης

[dimmag]

Αρχική Δημοσίευση από dimmag

Καλησπέρα.Γιώργο ένας τρόπος είναι στο ερώτημα που παίρνεις από τον πίνακα με όνομα ΠΙΝΑΚΑΣ_1 και έχει όνομα πεδίου το ΠΕΔΙΟ_1 να γράψεις ένα από τα παρακάτω σε ένα πεδίο

ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: DCount("ΠΕΔΙΟ_1";"ΠΙΝΑΚΑΣ_1";"ΠΕΔΙ Ο_1 <=" & [ΠΕΔΙΟ_1])
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: DCount("ΠΕΔΙΟ_1 ";"ΠΙΝΑΚΑΣ_1";"ΠΕΔΙΟ_1 <='" & [ΠΕΔΙΟ_1 ] & "'")
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: (Select Count(1) FROM ΠΙΝΑΚΑΣ_1 A WHERE A.ΠΕΔΙΟ_1 <=ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1)
ή
ΟΝΟΜΑ_ΑΡΙΘΜΗΣΗΣ: (Select Count(1) FROM ΠΙΝΑΚΑΣ_1 A
WHERE A.ΠΕΔΙΟ_1 <=ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1 )

Ταξινόμηση Αύξουσα ως προς ΠΙΝΑΚΑΣ_1.ΠΕΔΙΟ_1

Φιλικά Δημήτρης

Ξέχασα στο τέλος γράφεις: & "ος"
για να σου βγάζει 1ος και όχι 1

Φιλικά Δημήτρης

[gmax]

Δημήτρη καλησπέρα. Ευχαριστώ για την απάντηση. Δουλεύει μια χαρά.

Γιώργος

[Meteora]

Καλησπέρα και χρόνια πολλά...

Με την παρακάτω γραμμή VBA κώδικα, δημιουργείται ένα *.PDF αρχείο, στα 'εγγραφά μου' που εμφανίζει τα περιεχόμενα της έκθεσης.

Private Sub command1_Click()
              DoCmd.OutputTo acReport, "rptanathesi", acFormatPDF, "dokimi.pdf", True
End Sub

Αλλάζοντας το όνομα της θέσης προορισμού. μπορείς να στείλεις το αρχείο όπου θες ( παράδειγμα "c:\dokimi.pdf")


Με εκτίμηση

Νίκος Δ.