Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

PDF-Dokument von Access aus öffnen

730 views
Skip to first unread message

Bianca Hajek

unread,
Mar 23, 2004, 7:23:43 AM3/23/04
to
Hallo zusammen,

ich möchte von einer Accessanwendung ein PDF-Dokument öffnen, daß auf
dem Netzwerk liegt. Ich bekomme aber immer folgende
Sicherheitsmeldung:

---------------------------
Microsoft Office
---------------------------
Öffnen: D:\Handbuch.pdf

Einige Dateien können Viren enthalten oder Ihren Computer in anderer
Weise beschädigen.
Es ist wichtig sicherzustellen, dass diese Datei aus einer
vertrauenswürdigen Quelle stammt.

Möchten Sie diese Datei öffnen?

---------------------------
OK Abbrechen

Wie bekomme ich diese Sicherheitsmeldung weg?

Wie gesagt, die Datei wird geöffnet, auch wenn ich auf "Abbrechen"
klicke. Aber diese Meldung soll unterbunden werden.
Ich habe schon im InternetExplorer die Sicherheitsstufe runtergesetzt.
Hat nichts gebracht.

Vielen Dank im voraus.

Gruß,
Bianca

Bianca Hajek

unread,
Mar 23, 2004, 7:32:15 AM3/23/04
to
sorry, hab vergessen meine Versionen anzugeben:

Windows 2000, Access 2000

Gerald Aichholzer

unread,
Mar 23, 2004, 11:51:47 AM3/23/04
to
On Tue, 23 Mar 2004 13:23:43 +0100, Bianca Hajek <anon...@microsoft.com>
wrote:

> ich möchte von einer Accessanwendung ein PDF-Dokument öffnen, daß auf
> dem Netzwerk liegt. Ich bekomme aber immer folgende
> Sicherheitsmeldung:
>
> ---------------------------
> Microsoft Office
> ---------------------------
> Öffnen: D:\Handbuch.pdf
>
> Einige Dateien können Viren enthalten oder Ihren Computer in anderer
> Weise beschädigen.
> Es ist wichtig sicherzustellen, dass diese Datei aus einer
> vertrauenswürdigen Quelle stammt.
>
> Möchten Sie diese Datei öffnen?
>
> ---------------------------
> OK Abbrechen
>

Die Frage ist, wie du diese Datei öffnest. Normalerweise werden PDF-
Dateien mit dem Acrobat-Reader geöffnet, also musst du auch dort die
Sicherheitseinstellungen überprüfen.

Deine Dialogbox weiter oben deutet aber eher darauf, dass du die PDF-
Datei mit einem Programm aus der M$ Office Suite zu öffnen probierst
(wusste gar nicht, dass das geht).

Im Prinzip musst du die Einstellungen in jenem Programm überprüfen,
mit dem du die PDF-Datei öffnest. Alle anderen Einstellungen sind
nicht relevant.

Vielleicht schreibst du einmal, wie du versuchst, die PDF-Datei zu
öffnen.

lg,
Gerald
--
Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/

Sascha Wostmann

unread,
Mar 23, 2004, 3:50:40 PM3/23/04
to
Gerald Aichholzer :

> Die Frage ist, wie du diese Datei öffnest.

...


>
> Deine Dialogbox weiter oben deutet aber eher darauf, dass du die PDF-
> Datei mit einem Programm aus der M$ Office Suite zu öffnen probierst
> (wusste gar nicht, dass das geht).

IMO deutet das auf "FollowHyperlink" hin. In Outlook z.B. kommt diese
Meldung ja immer, wenn man einen mit einem Programm verknüpften Anhang
öffnen will - unabhängig davon, ob diese Datei tatsächlich einen Virus
enthalten kann, sogar bei Textdateien habe ich die Meldung schon
gesehen.

> Vielleicht schreibst du einmal, wie du versuchst, die PDF-Datei zu
> öffnen.

das würde helfen. Nur das.

Viele Grüße,
Sascha Wostmann
--
wichtige Informationsquellen zu Access: +----------------------
http://www.donkarl.com/ (FAQ) | Bitte keine Kopien
http://www.freeaccess.de/ (KnowHow) | oder Access-Anfragen
http://www.google.de/ (Suchmaschine) | per E-Mail.

Bianca Hajek

unread,
Mar 24, 2004, 2:17:25 AM3/24/04
to
On Tue, 23 Mar 2004 17:51:47 +0100, Gerald Aichholzer
<ga...@sbox.tugraz.at> wrote:


>Vielleicht schreibst du einmal, wie du versuchst, die PDF-Datei zu
>öffnen.

Ich habe zwei Methoden ausprobiert, um diese Datei zu öffnen.

1. Methode:

Mit einer PDF-Funktion, die die Acrobat.exe benutzt. In der Variable
Pfad steht mein Pfad, den ich aus einer Tabelle lese.

Private Sub btn_Handbuch_Click()
On Error GoTo Err_btn_Handbuch_Click

Dim Pfad As String, Start As String

Pfad = GetUserOptionImport("Handbuch")

Start = pdf(Pfad)

Exit_btn_Handbuch_Click:
Exit Sub

Err_btn_Handbuch_Click:
MsgBox Err.Description
Resume Exit_btn_Handbuch_Click

End Sub

Function pdf(Datname As String)
Dim x As Variant
Datname = "C:\Programme\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe " &
Chr$(34) & Datname & Chr$(34)
x = Shell(Datname, vbNormalFocus)
End Function


2. Methode:

Mit einem Hyperlink.

Private Sub Formular_Laden()
Dim ctl As CommandButton
Dim Pfad as string

Pfad = GetUserOptionImport("Handbuch")

Set ctl = Me!btn_Handbuch
With ctl
.Visible = False
.HyperlinkAddress =Pfad
.Hyperlink.Follow
End With
End Sub

Beide Methoden öffnen mir das PDF, aber leider kommt auch bei beiden
Methoden diese Sicherheitsabfrage.

Gruß,
Bianca

Gerald Aichholzer

unread,
Mar 24, 2004, 3:51:18 AM3/24/04
to
On Wed, 24 Mar 2004 08:17:25 +0100, Bianca Hajek <anon...@microsoft.com>
wrote:

> On Tue, 23 Mar 2004 17:51:47 +0100, Gerald Aichholzer


> <ga...@sbox.tugraz.at> wrote:
>
>> Vielleicht schreibst du einmal, wie du versuchst, die PDF-Datei zu
>> öffnen.
>
> Ich habe zwei Methoden ausprobiert, um diese Datei zu öffnen.
>
> 1. Methode:
>

[snip: Shell() mit expliziter Angabe von acroread.exe]
>
> 2. Methode:
>
[snip: .Hyperlink.Follow]


>
> Beide Methoden öffnen mir das PDF, aber leider kommt auch bei beiden
> Methoden diese Sicherheitsabfrage.
>

Ich kenne nur die erste Methode, die IMHO funktionieren sollte.
Eleganter wäre es noch, wenn du die API-Funktion FindExecutable()
verwenden würdest, um das Programm zu bestimmen, mit dem PDF-
Dateien geöffnet werden sollen - aber das ist nicht das Thema.

Ich habe die von dir beschriebene Meldung noch nie gesehen,
ich habe auch schnell die Optionen im Acrobat Reader (5.1)
durchgesehen und nichts Entsprechendes gefunden :(

Tilo Schinke

unread,
Mar 27, 2004, 12:17:58 AM3/27/04
to
Hallo Bianca,

damit sollte es klappen:

Private 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 Sub subCmdOpenFile(strFileName As String)
On Error Resume Next
Call ShellExecute(0, "open", strFileName, vbNullString, vbNullString, 1)
End Sub


Bianca Hajek

unread,
Mar 29, 2004, 4:46:20 AM3/29/04
to

Hallo Tilo,

danke für die Antwort. Habe es inzwischen genau auf die Art gelöst.
Funktioniert super.

Gruß,
Bianca

0 new messages