Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: SG05 am September 28, 2010, 21:33:27

Titel: PDF aus DB öffnen....
Beitrag von: SG05 am September 28, 2010, 21:33:27
Hallo Zusammen,

wie im Betreff genannt, möchte ich ein PDF-Dokument aus A2003 herraus öffnen. Die nachfolgenden Befehle haben unter A2000 funktioniert.
Nach dem Wechsel zu A2003 wird leider nur noch Adobe, aber nicht mehr das Dokument geöffnet.

Wer hat eine Idee?

Befehl der Schaltfläche :  X = Shell([Dokumente], vbMaximizedFocus)

Textfeld [Dokumente] : =[Readerpfad] & [Dokumentenpfad] & [Typ] & ".pdf"

Textfeld [Readerpfad] : "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe "

Textfeld [Dokumentenpfad] : C:\Datein\

Textfeld [Typ] : Beispiel

Ergebnis Feld [Dokumente] : "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe "C:\Datein\Beispiel.pdf



Danke für Eure Hilfe...
Titel: Re: PDF aus DB öffnen....
Beitrag von: DF6GL am September 28, 2010, 21:44:47
Hallo,


vermutlich:

=[Readerpfad] & " " & [Dokumentenpfad] & [Typ] & ".pdf"


Tipp: Shellexecute anstelle Shell verwenden.
Titel: Re: PDF aus DB öffnen....
Beitrag von: bahasu am September 28, 2010, 21:48:19
N'abend,

bei mir kann ich mit den folgenden Zeilen eine beliebige Datei aus access2003/2007 öffnen.


Dieser Teil steht in einem Modul:
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 hWnd As Long
Public Const SW_HIDE = 0          ' Versteckt öffnen
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_MAXIMIZE = 3      ' Maximiert öffnen
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWNOACTIVATE = 4

Public Const SW_MINIMIZE = 6      ' Minimiert öffnen
Public Const SW_SHOWMINNOACTIVE = 7

Public Const SW_RESTORE = 9


Public Function DateiOeffnen(Aktion As String, Pfad As String, Ansicht As Long) As Boolean
    Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function


Der nächste  Teil steht beim Klick-Ereignis eines Buttons bzw. eines Steuerelementes:
Aufruf der obigen Funktion mit:
DateiOeffnen "open", Dokument_temp, 5

In Dokument_temp steht der Pfad+Name der aufzurufenden Datei.
Die Zeilen entstammen einem Hinweis, den ich von Pat erhalten hatte. Nochmals Danke an dieser Stelle.

Harald