Office: (Office 2007) Anlagen direkt öffnen

Helfe beim Thema Anlagen direkt öffnen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo! Ich würde gern das Anlagenverwaltungs-Dialogfenster umgehen und meine Anlage (JPEG) direkt per Mausklick in der "Foto-und Faxanzeige"... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von c.h.r.i.s.s, 9. März 2014.

Seite 1 von 2

C.H.R.I.S.S

c.h.r.i.s.s

Anlagen direkt öffnen

Hallo!

Ich würde gern das Anlagenverwaltungs-Dialogfenster umgehen und meine Anlage (JPEG) direkt per Mausklick in der "Foto-und Faxanzeige" öffnen/anzeigen lassen lassen.
Ich hab bisher nichts einfaches, eindeutiges gefunden.

Danke für die Hilfe.

C.

:)

c.h.r.i.s.s, 9. März 2014

#1
JENS05

jens05

Hallo,
Anbei mal ein Bsp. für einen Button der die Date aus dem Anlagenfeld öffnet.
Code:

Dim xFile As String
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2
Const xPath As String = "D:\OL\" 'Dein Temp-Pfad

xFile = Nz(Me!feld.FileName) 'Name der angezeigten Datei merken
If xFile = "" Then
MsgBox "Kein Anhang"
Exit Sub
End If
'Tabelle öffnen, Tabelle = Tabellenname, ID = Autowert
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tabelle " & _
"WHERE ID=" & Me!ID, dbOpenSnapshot)
'Feld = Name des mehrwertigen Feldes
Set rs2 = rs.Fields("FELD").Value
'Filename nicht ändern!!!!!
rs2.FindFirst "FileName='" & xFile & "'"
If Not rs2.NoMatch Then
If Dir(xPath & xFile) "" Then
If MsgBox("Datei vorhanden!! Überschreiben??", _
vbYesNo) = vbYes Then
Kill xPath & xFile
Else
Exit Sub
End If
End If
'Fildata nicht ändern!!!
rs2.Fields("Filedata").SaveToFile _
xPath
FollowHyperlink xPath & xFile
Else
MsgBox "Error in Prozedur"
End If
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klappt es?
Anstatt mit FollowHyperlink könntest du mit ShellExecute() die Datei in einem Bildbetrachter deiner Wahl öffnen.

jens05, 11. März 2014

#2
C.H.R.I.S.S

c.h.r.i.s.s

Hallo!

Hab ich das jetzt richtig verstanden, dass das ein separater Knopf ist?!?!

Mein Anliegen:
Ich habe jeweils ein Foto zu mehreren Datensätze hinzugefügt.
Diese Fotos werden als Minivorschau in einem Formular zu dem jeweiligen Foto angezeigt.
Jetzt möchte ich, dass ich mit Klick auf die Minivorschau das jeweilige Foto in Großansicht in der Windows Foto- und Faxanzeige angezeigt bekomme.
Derzeit ist es so, dass ich mit Klick (bzw. Doppelklick) auf die Minivorschau in die Anlagenverwaltung komme.

Ganz simpel ausgedrückt, möchte ich: Klick auf Minivorschau = Öffnen Foto in Großansicht.

Ich dachte es gäb einfach irgendwie einen Befehl im Makro-Generator!?
Bin nicht sehr firm mit den VBA-Codes...

Danke!

c.h.r.i.s.s, 26. März 2014

#3
WB_3001

wb_3001

Anlagen direkt öffnen

Hallo c.h.r.i.s.s!

Im Klick(Doppelklick)-Event des Minivorschaucontrols den Code von jens05 aufrufen.

Wolfgang

wb_3001, 26. März 2014

#4
C.H.R.I.S.S

c.h.r.i.s.s

Irgendwie gehts nicht so ganz.
Habs mal probiert anzuhängen...

Hab jetzt den Code von jens05 (siehe unten) abgeändert (so wie ich's verstanden habe) und dann kommt jetzt die Fehlermeldung: "Objekt erforderlich".

Code:

Private Sub Foto_DblClick(Cancel As Integer)
Dim xFile As String
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2
Const xPath As String = "D:\°Sonstiges\zzzzzzzzzzzzzzzz\Neuer Ordner" 'Dein Temp-Pfad

xFile = Nz(DVD_Sammlung!Foto.FileName) 'Name der angezeigten Datei merken
If xFile = "" Then
MsgBox "Kein Anhang"
Exit Sub
End If
'Tabelle öffnen, Tabelle = Tabellenname, ID = Autowert
Set rs = CurrentDb.OpenRecordset("SELECT * FROM DVD_Sammlung " & _
"WHERE ID=" & DVD_Sammlung!ID, dbOpenSnapshot)
'Feld = Name des mehrwertigen Feldes
Set rs2 = rs.Fields("Foto").Value
'Filename nicht ändern!!!!!
rs2.FindFirst "FileName='" & xFile & "'"
If Not rs2.NoMatch Then
If Dir(xPath & xFile) "" Then
If MsgBox("Datei vorhanden!! Überschreiben??", _
vbYesNo) = vbYes Then
Kill xPath & xFile
Else
Exit Sub
End If
End If
'Fildata nicht ändern!!!
rs2.Fields("Filedata").SaveToFile _
xPath
FollowHyperlink xPath & xFile
Else
MsgBox "Error in Prozedur"
End If
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

c.h.r.i.s.s, 27. März 2014

#5
MAIKEK

maikek

Code:

Const xPath As String = "D:\°Sonstiges\zzzzzzzzzzzzzzzz\Neuer Ordner"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da fehlt ein abschließender Backslash.

Code:

xFile = Nz(DVD_Sammlung!Foto.FileName) 'Name der angezeigten Datei merken
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bezieht sich auf das Formularfeld mit der Anlage, sollte also wohl
Code:

xFile = Nz(Me!Foto.FileName) 'Name der angezeigten Datei merken
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

heißen.

Auch hier ist ein Formularfeld gefragt:
Code:

"WHERE ID=" & Me!ID, dbOpenSnapshot)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn jetzt noch eine Fehlermeldung kommt, bitte auf Debuggen klicken und nachsehen, welche Zeile markiert wird.
maike

maikek, 27. März 2014

#6
C.H.R.I.S.S

c.h.r.i.s.s

Vielen Dank für die prompte Hilfe...

Ich hab jetzt alles wie folgt geändert:

Code:

Private Sub Foto_DblClick(Cancel As Integer)
Dim xFile As String
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2
Const xPath As String = "C:\_Eigene Dateien\0 FILME\DVD-Cover\" 'Dein Temp-Pfad

xFile = Nz(Me!Foto.FileName) 'Name der angezeigten Datei merken
If xFile = "" Then
MsgBox "Kein Anhang"
Exit Sub
End If
'Tabelle öffnen, Tabelle = Tabellenname, ID = Autowert
Set rs = CurrentDb.OpenRecordset("SELECT * FROM DVD_Sammlung " & _
"WHERE ID=" & Me!ID, dbOpenSnapshot)
'Feld = Name des mehrwertigen Feldes
Set rs2 = rs.Fields("Foto").Value
'Filename nicht ändern!!!!!
rs2.FindFirst "FileName='" & xFile & "'"
If Not rs2.NoMatch Then
If Dir(xPath & xFile) "" Then
If MsgBox("Datei vorhanden!! Überschreiben??", _
vbYesNo) = vbYes Then
Kill xPath & xFile
Else
Exit Sub
End If
End If
'Fildata nicht ändern!!!
rs2.Fields("Filedata").SaveToFile
xPath
FollowHyperlink xPath & xFile
Else
MsgBox "Error in Prozedur"
End If
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jedoch kommt jetzt immer noch eine Fehlermeldung...

"Fehler beim Kompilieren.
Sub, Function oder Property erwartet"

c.h.r.i.s.s, 27. März 2014

#7
MAIKEK

maikek

Anlagen direkt öffnen

In welcher Zeile?
maike

maikek, 27. März 2014

#8
C.H.R.I.S.S

c.h.r.i.s.s

Code:

Private Sub Foto_DblClick(Cancel As Integer)
Dim xFile As String
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2
Const xPath As String = "C:\_Eigene Dateien\0 FILME\DVD-Cover\" 'Dein Temp-Pfad

xFile = Nz(Me!Foto.FileName) 'Name der angezeigten Datei merken
If xFile = "" Then
MsgBox "Kein Anhang"
Exit Sub
End If
'Tabelle öffnen, Tabelle = Tabellenname, ID = Autowert
Set rs = CurrentDb.OpenRecordset("SELECT * FROM DVD_Sammlung " & _
"WHERE ID=" & Me!ID, dbOpenSnapshot)
'Feld = Name des mehrwertigen Feldes
Set rs2 = rs.Fields("Foto").Value
'Filename nicht ändern!!!!!
rs2.FindFirst "FileName='" & xFile & "'"
If Not rs2.NoMatch Then
If Dir(xPath & xFile) "" Then
If MsgBox("Datei vorhanden!! Überschreiben??", _
vbYesNo) = vbYes Then
Kill xPath & xFile
Else
Exit Sub
End If
End If
'Fildata nicht ändern!!!
rs2.Fields("Filedata").SaveToFile
xPath
FollowHyperlink xPath & xFile
Else
MsgBox "Error in Prozedur"
End If
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rot markiert!

c.h.r.i.s.s, 27. März 2014

#9
C.H.R.I.S.S

c.h.r.i.s.s

Noch eine Frage:
Die Datenbank wird ja so ziemlich groß...
Kann ich auch hinter diesem Knopfdruck einen Hyperlink legen?

c.h.r.i.s.s, 27. März 2014

#10
MAIKEK

maikek

Siehst du den Unterschied:
Original:
Code:

rs2.Fields("Filedata").SaveToFile _
xPath
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dein Code jetzt:
Code:

rs2.Fields("Filedata").SaveToFile
xPath
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Deine letzte Frage verstehe ich nicht. Das ist doch jetzt quasi ein Hyperlink?
Oder willst du das Anlagenfeld gegen die Speicherung eines Pfades austauschen? Das geht natürlich (Pfad in einem Textfeld speichern).
maike

maikek, 27. März 2014

#11
C.H.R.I.S.S

c.h.r.i.s.s

VIELEN DANK für die Hilfe...
Das funktioniert jetzt schon mal.

Aber was ich mit der letzten Frage meinte ist, dass wenn das kleine Miniaturfoto ein anderes ist, als das welches ich mit einem Klick öffnen möchte. Das andere hätte ich separat auf Festplatte gespeichert.

Also dass man mit Klick auf das Miniaturfoto das "große" Foto, welches auf der Festplatte separat gespeichert ist, öffnen kann.

c.h.r.i.s.s, 27. März 2014

#12
MAIKEK

maikek

Anlagen direkt öffnen

In dem Fall reicht:
Code:

FollowHyperlink xPath & xFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xPath und xFile musst du natürlich irgendwie definieren/angeben.
maike

maikek, 27. März 2014

#13
C.H.R.I.S.S

c.h.r.i.s.s

heißt das anstatt xpath & xfile den dateipfad anzugeben?
ich komm mit den VBA-codes net so ganz klar... sorry!

Bei dem Code von Jens05 werd ich jetzt beim Doppelklick immer gefragt, ob ich die Datei überschreiben will.
Ja klar, er soll ja das Foto SOFORT öffnen, OHNE noch eine Meldung zu bestätigen.
Ebenso bleibt die Anlageverwaltung geöffnet, wenn ich die Fotoanzeige schließe.

Bei dem letzten Problem hab ich nun folgenden Code erfasst:
Jetzt öffnet die Anlage sofort und schließt sich auch sofort, ohne Zwischen-Meldungsbox...

Code:

Private Sub Foto_Click()
Dim xFile As String
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset2
Const xPath As String = "C:\_Eigene Dateien\0 FILME\DVD-Cover\" 'Dein Temp-Pfad

xFile = Nz(Me!Foto.FileName) 'Name der angezeigten Datei merken
If xFile = "" Then
MsgBox "Kein Anhang"
Exit Sub
End If
'Tabelle öffnen, Tabelle = Tabellenname, ID = Autowert
Set rs = CurrentDb.OpenRecordset("SELECT * FROM DVD_Sammlung " & _
"WHERE ID=" & Me!ID, dbOpenSnapshot)
'Feld = Name des mehrwertigen Feldes
Set rs2 = rs.Fields("Foto").Value
'Filename nicht ändern!!!!!
rs2.FindFirst "FileName='" & xFile & "'"
If Not rs2.NoMatch Then
If Dir(xPath & xFile) "" Then
Kill xPath & xFile
End If
'Fildata nicht ändern!!!
rs2.Fields("Filedata").SaveToFile _
xPath
FollowHyperlink xPath & xFile
Else
MsgBox "Error in Prozedur"
Exit Sub
End If
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

c.h.r.i.s.s, 27. März 2014

#14
MAIKEK

maikek

Beispiel:
Code:

FollowHyperlink "C:\_Eigene Dateien\0 FILME\DVD-Cover\" & "DeinBildname.jpg"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xPath und xFile sind Variablen, die diese beiden Elemente enthalten müssen:
Code:

dim xPath as string
dim xFile as string
xPath = "C:\_Eigene Dateien\0 FILME\DVD-Cover\"
xFile = "DeinBildname.jpg"
FollowHyperlink xPath & xFile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Vorteil dabei ist, dass du den Variablen verschiedene Werte zuweisen kannst. Z.B. einen in einer Tabelle zu deinem Miniaturfotonamen gespeicherten Pfad und Dateinamen für das entsprechende größere Foto.

Mit der Anlagenverwaltung kenn ich mich nicht aus, ich hab' Access 2003.

maike

maikek, 27. März 2014

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Anlagen direkt öffnen

Die Seite wird geladen...

Anlagen direkt öffnen - Similar Threads - Anlagen öffnen
Video: Öffnen von E-Mail-Anlagen in Excel für iPad
in Microsoft Excel Tutorials
Video: Öffnen von E-Mail-Anlagen in Excel für iPad: Video: Öffnen von E-Mail-Anlagen in Excel für iPad Excel für iPad Mehr... Weniger...
Senden und Öffnen von Anlagen
in Microsoft Outlook Tutorials
Senden und Öffnen von Anlagen: https://wus-streaming-video-rt-microsoft-com.akamaized.net/48373baf-25dd-429d-a2bd-cea143a4a521/7d980eed-2a5f-46d1-8b64-dede9ef8_1280x720_2983.mp4 Probieren...
Öffnen und Speichern von Anlagen
in Microsoft Outlook Tutorials
Öffnen und Speichern von Anlagen: Öffnen und Speichern von Anlagen Outlook für Microsoft 365 Outlook 2019 Outlook 2016 Outlook 2013 Outlook 2010 Outlook 2007 Mehr......
Öffnen von Anlagen als Webseite in der Light-Version von Outlook
in Microsoft Outlook Tutorials
Öffnen von Anlagen als Webseite in der Light-Version von Outlook: Öffnen von Anlagen als Webseite in der Light-Version von Outlook Outlook im Web Outlook.com Outlook im Web für Exchange Server 2016 Outlook im Web für Exchange Server...
Anlagen ohne Dialog Öffnen
in Microsoft Access Hilfe
Anlagen ohne Dialog Öffnen: Hallo, leider konnte ich über die Suchfunktion keine passende Antwort für mein Problem finden. Ich möchte die Anlagen pro Datensatz über ein Formular steuern. Dank einer Anleitung und...
Meldung "öffnen sie nur anlagen von absendern denen sie vertrauen "
in Microsoft Outlook Hilfe
Meldung "öffnen sie nur anlagen von absendern denen sie vertrauen ": Hallo zusammen, kann mir jemand sagen, wie ich diese eigentlich lästige Abrage, ob ich die Datei öffnen oder speichern möchte wieder AKTIVIEREN kann? [ATTACH] Grund: Ich vermute, sie...
Öffnen von eMail-Anlagen und Eigene Bilder
in Microsoft Outlook Hilfe
Öffnen von eMail-Anlagen und Eigene Bilder: Ich habe folgendes Problem, das plötzlich ohne erkennbaren Grund vor Monaten aufgetreten ist. Wenn ich Anlagen von eMails, vor allem Bilder, oder auch Bilder aus Eigene Bilder öffnen will, geht...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden