PDF im Formular

[thoko_]

Hallo Forum, ich erstelle gerade eine Datenbank für ein Gefahrgutkataster.

Nun möchte ich beim ausfüllen des Formulars auch eine pdf. Datei verlinken d.h. es steht der Schriftzug "Sicherheitsdatenblatt" und dahinter soll ein Kästchen mit der pdf Datei sein.

Ich hoffe ich habe mich dementsprechend ausgedrückt.

Danke im voraus für eure Hilfe

[database]

Hallo,

es wir am Besten sein du speicherst den Pfad samt Dateinamen in der Datenbank und befüllst ein Textfeld mit dessen Inhalt.
Über einen Button rufst du dann den Befehl zum Öffnen der entsprechenden Datei auf.

Dazu fügst du folgenden Code in den Modulkopf deines Formulars ein:

Code [Auswählen] Erweitern


Private Declare Function ShellExecuteA Lib "shell32.dll" _
    (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 Declare Function apiFindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpclassname As Any, ByVal lpCaption As Any) As Long

Const SW_SHOWNORMAL = 1


Dann erstellst du einen Button und fügst in dessen Klick-Ereignis den folgenden Code zum Öffnen des PDF-Files ein:

Code [Auswählen] Erweitern


Private Sub DeinButton_Click()
 
    'Öffnet das gespeicherte PDF-File mit dem registrieten PDF-Reader

    On Error GoTo ErrHandle
    Dim strFile as String
    Dim hWnd

    hWnd = apiFindWindow("OPUSAPP", "0")
    strFile = Me!DeinFormular!DeinFeldMitDemPfad
    ShellExecuteA hWnd, "open", File, vbNullString, vbNullString, 1

    Exit Sub

ErrHandle:
    MsgBox "Das angeforderte Dokument existiert nicht!", vbExclamation, "Datenblatt anzeigen"
   
End Sub


HTH