Problem im Access mit dem öffnen von Pfaden via VB
Hallo,
Folgendes Problem:
Ich habe ein Formular erstellt, welches mir verschiedne Werte aus der Tabelle übernimmt.. --> unter anderem "Filename mit Pfad".
Mein Problem ist nun, dass ich mit einer Befehlsschaltfläche den angegebenen Pfad öffnen sollte.
Habe der Befehlsschaltfläche bereits die Anwendung "Adobe Acrobar" hinterlegt da ich nur PDS's öffnen muss.
Ich sollte jedoch der Schaltfläche noch den Pfad hinterlegen, (welcher in jedem Datensatz variiert) sodas sich der angegebene Pfad mit Adobe Acrobat via Mausklick öffnet.
Zur Hilfe: Bisher als Script hinterlegt:
Private Sub Öffnen_Click()
On Error GoTo Err_Öffnen_Click
Dim stAppName As String
stAppName = "C:\Programme\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe"
Call Shell(stAppName, 1)
Exit_Öffnen_Click:
Exit Sub
Err_Öffnen_Click:
MsgBox Err.Description
Resume Exit_Öffnen_Click
End Sub
Danke im voraus
Gruß
Antwort schreiben
Antwort 1 von Teerbaby vom 15.09.2020, 13:29 Options
naja, jetzt hängst du an das stAppname einfach noch den Pfad und Namen der Datei dran - d.h. "...Acrobat.exe z:\pfad\datei.pdf"
Antwort 2 von chillah vom 15.09.2020, 13:35 Options
Danke für die schnelle Antwort
Soweit bin ich auch gekommen. Mein Problem ist nur das, dass der Dateipfad je nach Datensatz variiert und ich immer den im Formular angegebenen Pfad öffnen möchte.
Und daher einen allgemeinen Befehl benötige der mir den Wert aus dem Fromular ausliest.
Gruß
Antwort 3 von Teerbaby vom 15.09.2020, 13:44 Options
Das kommt ein bisschen darauf an, in was für einem Steuerelement das angezeigt wird. Für ein Textfeld sieht das in etwa so aus:
Me.NamedesFeldes.Text
Das Me (Formular in dem du den Code hinterlegst) kannst du auch weglassen.
Antwort 4 von chillah vom 15.09.2020, 13:58 Options
Ich hätte eher an eine Lösung gedacht mit dem Wert auslesen.
Ich habe ja ein Formular das Daten aus einer Tabelle ausließt.
Und mit dem Button (Befehlsschaltfläche) sollte ich hinter der Anwendung "Acrobat" noch einen Pfad angeben der variiert. Dieser Pfad ist ja der Wert aus dem Formularfeld und auf diesen Wert (Value) will ich losgehen.
Eigentlich muss ich nur, statt dem hier angegebenen Pfad einen Befehlt angeben, der den Wert aus dem Folmularfeld wählt. (In meinem Fall "FileName mit Pfad".
stAppName = "C:\Programme\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe I:\DATENBANKEN\Test Thomas\test1.pdf"
Call Shell(stAppName, 1)
Gruß