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
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:
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:
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