Εμφάνιση εγράφου pdf από κουμπί εντολής φόρμας

[alex]

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

Γνωρίζει κάποιο μέλος τι κώδικα βάζουμε σε κουμπί εντολής φόρμας για να μας ανοίγει έγγραφο PDF που είναι αποθηκευμένο σε φάκελο στο σκληρό δίσκο.

Φιλικά

Αλέξανδρος

[alex]

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

Εχω βάλει στη λειτουργική μοναδα
BasPdf

Option Compare Database
Option Explicit

Public 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
Public Const SW_SHOW = 1

Και στο κουμπί εντολής
CmdPdf

Private Sub CmdPdf_Click()
ShellExecute Me.hwnd, "open", "C:\Nomothesia\sxolikes_epitropes.pdf", "", "", SW_SHOW
    
End Sub

Με αυτό το τρόπο ανοίγει.Εγώ θέλω το κουμπί εντολής να ανοίγει το Path του πίνακα.

Φιλικά

Αλέξανδρος

[Tasos]

Καλημέρα!

Αλέξανδρε δοκίμασε:

Private Sub CmdPdf_Click()
    If Dir(Me.Fname & "", vbDirectory) <> "" Then
        ShellExecute 0, "open", Chr(34) & Me.Fname & Chr(34), "", "", SW_SHOW
    End If
End Sub

Κανονικά θα έπρεπε να υπάρχει κάποια ρουτίνα αποσφαλμάτωσης στον κώδικα σου.

Καλή συνέχεια!

Τάσος

[alex]

Καλημέρα Τάσο

Ευχαριστώ πολύ για την βοήθεια σου'
Εννοείς αποσφαλμάτωση στη λειτουργική μονάδα(Baspdf) ή σε διαδικασία συμβάντος(CmdPdf); ; ή Module ξεχωριστό;
Λές θα έχω πρόβλημα στη βάση ;όταν γίνει MDE;

Φιλικά
Αλέξανδρος

[alex]

Τάσο!!!!
Τελικά δεν δουλεύει το κουμπί εντολής με αυτό το κώδικα.Δεν μου ανοίγει το έγγραφο Pdf που βρίσκεται στο φάκελο στο "C".

Τον άλλαξα και δουλεύει με αυτό.

 ShellExecute Me.hwnd, "open", Chr(34) & WdFullPath & Chr(34), "", "", SW_SHOW

Ευχαριστώ πάντως γιατί μέσα απο την διαμόρφωση του δικού σου κώδικα έκανα το δικό μου

Φιλικά/Αλέξανδρος

[Tasos]

Καλημέρα!
Αλέξανδρε,
Ο κώδικας που σου έστειλα ανοίγει τη διαδρομή που αναγράφεται στο πεδίο fName του συνημμένου που ανέβασες αν αυτή είναι σωστή.

Μου είναι άγνωστη η προέλευση της μεταβλητής/πεδίου WdFullPath

Αποσφαλμάτωση ή έστω λογική διαχείριση χρειάζεται σε κάθε σημείο του κώδικα που για τον ένα ή τον άλλο λόγο μπορούσε να προκαλέσει σφάλμα.

Για παράδειγμα:

Private Sub CmdPdf_Click()
Dim ret as Long
    If Dir(Me.Fname & "", vbDirectory) <> "" Then ' Αν η διαδρομή είναι έγκυρη...
        ret =  ShellExecute(0, "open", Chr(34) & Me.Fname & Chr(34), "", "", SW_SHOW)
    End If
End Sub

Η μεταβλητή ret περιέχει τον αριθμό που επέστρεψε η συνάρτηση ShellExecute() ο οποίος δηλώνει το αποτέλεσμα της ενέργειας δηλαδή αν το αρχείο άνοιξε κανονικά ή αν χρησιμοποιείται ήδη ή πολλά άλλα.

Σχετικό παράδειγμα υπάρχει σε παράδειγμα Excel εδώ: http://www.ms-office.gr/forum/excel-...html#post12631

Φιλικά

Τάσος

[alex]

Τάσο!!

Τα έκανα και με τους δύο τρόπους δουλεύουν άψογα.Σ.ευχαριστώ πολύ για την βοήθεια.
Έχω πολλές ελλείψεις καθότι αυτοδίδακτος από βιβλία και από σχετική μεθόδευση στο διαδίκτυο.

Φιλικά
Αλέξανδρος