PDF eines Datensatzes amzeigen

[Lenee]

Hallo liebe Gemeinschaft,

ich habe ein Listenfeld in dem ich Datensätze anklicken kann. Wenn ich dies mache lasse ich mir mit folgenden code

Code [Auswählen] Erweitern

Private Sub lstArtikel_Click()
If Len(Me!lstArtikel.Column(10)) Then
Me!picBild1.Visible = True
Me!picBild1.Picture = Me!lstArtikel.Column(10)
Else
Me!picBild1.Visible = False
End If
End Sub
anzeigen.

nun will ich das wenn ich auf das Bild klicke mir die Passende PDF zu diesem Datensatz angezeigt wird,

wenn es möglich ist dann würde es auch reichen wenn ich rechts klick auf den Datensatz im Listenfeld mache und es würde angezeigt werden.

wie muss ich da ran gehen für mein vorhaben,

danke schonmal im voraus

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

Sub picBild1_Click()
Followhyperlink "file://" & Me!picBild1.Picture
' evtl. auch:  = Followhyperlink "file://" & Me!lstArtikel.Column(10)
End Sub


Besser (oder alternativ) wäre die Verwendung von ShellExecute...

[Lenee]

habs jetzt so eingebastelt aber dann öffnet er mir immer nur den Ordner wo die PDF drin ist.

Code [Auswählen] Erweitern

Private Sub picBild1_Click()
FollowHyperlink "file://" & Me!lstArtikel.Column(11)
End Sub


ich hatte gerade auch mit ShellExecute ein beitrag gelesen nur weit bin ich auch noch nicht gekommen,
da hab ich nur ein modul angelegt und den code rein gepackt:

Code [Auswählen] Erweitern

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_MAXIMIZE = 3      ' Maximiert öffnen
Public Const SW_MINIMIZE = 6      ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4

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

[DF6GL]

Hallo,


in welcher Listenspalte steht denn der (komplette) PfadDateiName des PDF-Dokumentes drin?

Erst gibt Du Column(10) an, dann benutzt Du Column(11) ?

weit bin ich auch noch nicht gekommen

kann man nun interpretieren wie man will...  ?


Knackpunkt ist, WOHER der PfadDateiName des PDF's geholt werden kann.

[Lenee]

in Column 11 stehts der pfad drin
hatte mich im letzten postverschriebn, er öffnet zwar den ordner aber nicht den wo die pdf drin ist sondern den ordner wo die access datenbank sich befindet

z.b.:
d:Datenbank\Datenblätter\datenblatt1.pdf

[DF6GL]

Hallo,

ja, ok, schreib:

Code [Auswählen] Erweitern

FollowHyperlink  Me!lstArtikel.Column(11)

[Lenee]

hmmm jetzt meckert er rum mit laufzeitfehler 94 undzulässige verwendung von null.....

dabei ist was in dem datensatz drin

wenn ich Column(10) anwähle was ja das bild ist funktioniert es, wobei ich da die doofe sicherheitsmeldung bekomme, was aber so erstmal nicht so schlimm ist.

[Lenee]

hab den fehler selbst gefunden da das listenfeld über ein filter gefüllt wird musste ich im code noch die spalte 11 hinzufügen..... deshalb konnte er nichts finden... wie auhc wenn es die spalte im listenfeld garnicht gibt^^


mit deinem code funzt es also doch,

vielen dank

gruß daniel

[DF6GL]

Hallo,

die Spaltenzählung beginnt bei 0 (!), basierend auf der Select-Liste der zugrundeliegenden Datensatzherkunft-Abfrage. Die richtige Spalte musst Du nun selber wissen.

Um die Warnmeldung zu vermeiden, wäre die Verwendung von ShellExecute empfohlen.