άνοιγμα αρχείου pdf με εντολή

[SPHLIOS]

Ευχαριστώ και εγώ, ήθελα κάτι τέτοιο

[manto]

Γεια χαρά σε όλους!Είμαι καινούργια στο forum αλλά και στην access, προσπαθώ να δημιουργήσω ένα button στη φόρμα μου και να προσθέσω τον κώδικα που θα μου ανοίγει συγκεκριμένο αρχείο σε .pdf που βρίσκεται στον c: (το ποιό αρχείο θα είναι αυτό είναι τιμή ενός πεδίου της φόρμας). Αρχικά, αρχάρια γαρ, ήθελα να πειραματιστώ και να ανοίξω ένα συγκεκριμένο pdf που έχω στο c: (το 750.pdf) χρησιμοποιώντας τον παρακάτω κώδικα που έχετε παραθέσει και εσείς.....Δυστυχώς δεν....Τι μπορεί να κάνω λάθος???

Option Compare Database
Option Explicit

Private Const SW_SHOWNORMAL = 1

Private Declare Function ShellExecute _
Lib "shell32.dll" Alias _
"ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Εντολή43_Click()

Dim OpenFile As Long
OpenFile = ShellExecute(0, "open", "C:\750.pdf", "", "C:\", SW_SHOWNORMAL)

End Sub

Ευχαριστώ εκ των προτέρων,
Μαρία

[kapetang]

Καλησπέρα

Μαρία, καλωσόρισες στην παρέα μας.

Σε μένα ο κώδικας, που ανέβασες, δουλεύει.

Θα σου πρότεινα όμως τον απλούστερο (μόνο μία γραμμή) :

Private Sub Command3_Click()
    Application.FollowHyperlink "C:\Users\Admin\Desktop\PDF\rwservlet.pdf", , True
End Sub

Επίσης μπορείς να απαλλαγείς τελείως από τον κώδικα, αν ορίσεις, στη σχεδίαση του πίνακα, τον τύπο του πεδίου με τα στοιχεία των αρχείων, ως Hyperlink

Γιώργος

[manto]

Γιώργο καλημέρα, σε ευχαριστώ πολύ για το χρόνο σου! Δοκίμασα την προτασή σου και πάλι δεν έπαιξε, οπότε κατέληξα πως κάτι άλλο φταίει και όχι ο κώδικας. Μετά από διάφορες δοκιμές διεπίστωσα πως για να ανοίξω το αρχείο πρέπει να ενεργοποιήσω το περιεχόμενο στην προειδοποίηση ασφαλείας! Θα μπορούσε κάποιος να μου εξηγήσει τι σημαίνει πρακτικά αυτο? Επίσης μπορώ να απενεργοποιήσω καθολικά αυτή την προειδοποίηση ή δημιουργώ πρόβλημα στη βάση μου? Ακόμη σε σχέση με τους 2 τρόπους ανοίγματος αρχείου τι είναι προτιμότερο να χρησιμοποιήσει κάποιος? Hyperlink ή ShellExecute? Τέλος, να σημειώσω, για όποιον άλλο ενδιαφέρεται, ότι παίζουν και οι δυο τρόποι!

Ευχαριστώ πολύ!

[kapetang]

Καλησπέρα

Σχετικά με τα ερωτήματα:

1) Όταν υπάρχει λύση χωρίς κώδικα, ειδικά από κάποιον με περιορισμένη εμπειρία, θα πρέπει να προτιμηθεί.

Αν, σε προβολή σχεδίασης πίνακα, αλλάξουμε το πεδίο, που περιέχει τα ονόματα των αρχείων, σε Hyperlink, δε χρειαζόμαστε κώδικα.

2) Από τους δύο κώδικες προτίμησε το συντομότερο, που είναι και πιο κατανοητός.

3) Ο κώδικας μπορεί να περιλαμβάνει και τμήματα (κακόβουλο λογισμικό) που θα μπορούσαν να προκαλέσουν βλάβες (πχ διαγραφή των αρχείων του δίσκου).

Για λόγους προστασίας, όταν ανοίγουμε μία ΒΔ, η access ελέγχει, αν περιέχει κώδικα και ενεργεί αναλόγως (απενεργοποιεί ή όχι τον κώδικα, κλπ).

Το τι ακριβώς θα κάνει εξαρτάται από τις ρυθμίσεις του κέντρου προστασίας (βλ. συνημμένο).

Το ανοίγουμε ακολουθώντας τα βήματα:

File=>Options=>Trust Center=>κλικ στο Trust Center Settings