Office: (Office 2003) Verlinkung an Datei(en)

Hallo zusammen!

Aufgrund der steigenden Dateigröße möchte ich im Formular nur einen Link an eine gewünschte Datei (z. B. jpg, pdf oder doc) erstellen.

Ich habe bisher nichts passendes dazu gefunden.

Wie kann ich dies am besten im Formular vornehmen?
Benötige ich dafür auch ein Feld in der Tabelle?

Gruß
Michael

:)

 

Servus Micha2903,
Du brauchst ein Tabellenfeld, Datentyp Text.
Im Formular musst Du einen FileDialog über VBA erstellen, wodurch der Pfad der Dateien in das Tabellenfeld eingetragen werden.
Man kann dann über FollowHyperlink dann das File aufrufen.
Code:

Hier hab ich ein Beispiel gefunden. Habs aber nicht näher untersucht.
Dateien verlinken

 

Servus!

Danke für die schnelle Hilfe! Das funktioniert!

Die Datei wird zwar nicht größer, aber man muss den entsprechenden Pfad aus der gewünschten Datei über die Eigenschaften kopieren. Gibt es dafür auch eine Möglichkeit, dass sich z. B. ein Auswahlfenster öffnet, wenn man in dem Feld ist?

 

\@Micha2903:
Hast Du das Beispiel mal angeschaut?
Da gibt es eine Hand (Button), über welche Du das File aus einem Explorer auswählen kannst. Eifach aufs File drauf doppelklicken und alles ist übernommen.

 

Das Beispiel kann ich mir leider nicht anschauen. Es kommt eine Fehlermeldung.

1. Wie würde ich denn dieses Auswahlfenster bekommen?

2. Außerdem würde ich gerne wissen, was ich in den Code rein setzen muss, damit kein Fehler (Laufzeitfehler 94) entsteht, wenn ich keinen Link erfasst habe.

3. Habe ich eigentlich irgendwo die Möglichkeit "alte" Bilder, die in der DB gespeichert wurden, aber nicht mehr benötigt werden, zu löschen?

 

Den Punkt 2 habe ich durch eine If-Funktion geklärt:
Code:

Es kommt zwar keine Meldung, aber auch kein Fehlerfenster.

Jetzt sind nur noch Punkte 1 und 3 offen.

 

Welche Fehlermeldung denn?

Steht gross im VBA Editor, wie ich sehe.
Code:

Code:

Das würde ich so lösen
Code:

Das entsprechende Feld in der Tabelle einmal entfernen und die DB neu komprimieren/reparieren.

 

Vielen Dank für deine Hilfe bei 2 und 3!

Aber beim 1. Punkt komme ich nicht weiter (s. Bild). Die erste Dim funktioniert schon nicht.

Wie müsste dies lauten?
Ich setze dies als Ereignis bei dem Textfeld "Link1" hinter "beim Klicken", oder?

 

Hallo,
wer lesen kann, ist im Vorteil. Hast Du die Zeile gelesen?
' Menue: Extras -> Verweise Microsoft Office yy.x Object Library
' muss aktiv sein!

 

Ich habe das gelesen - finde diesen Verweis aber nicht!
Außerdem kann ich die Anpassung auch nicht vornehmen. Aus dem "d" wird automatisch wieder ein "D" gemacht (s. Anhang).

 

Für Access 2003 lautet der Verweis: Microsoft Office 12.0 Object Library. Den findest du im VBA-Editor, Menü Extras/Verweise. Anhaken zum Aktivieren.
Der Hinweis für den Filedialog ist sicherlich nicht so gemeint, dass da ein kleines "d" hin soll, sondern dass ab Version 2007 vor "FileDialog" ein "Office." gehört.
maike

 

Sorry, ich habe auch mit dem richtigem Verweis das gleiche Problem:

Fehler beim Kompilieren:

Benutzerdefinierter Typ nicht definiert

Dim fDialog As Office.FileDialog ist makiert!

Ich schätze, dass das nicht so einfach ist und könnte auf dieses Auswahlfenster auch verzichten.

 

\@Mich2903:
Microsoft Office 12.0 Object Library
und nicht
Microsoft Access 12.0 Object Library
Das passiert so manchem immer wieder.

Und probier bei Versionen kleiner Access 2007:
Code:

 

hallo leute,

ich habe ein sehr ähnliches problem!

allerdings müssten die ausgewählten dateien automatisch in ein bestimmtes verzeichnis im netzwerk kopiert und umbenannt werden.

könnt ihr mir da helfen?
wie müsste man den code ändern?

danke vielmals *Smilie

mfg

 

Hallo,
da wird der angegebene VBA-Code nur ein kleiner Teil dessen sein, was Du brauchst.
Eines kann man aber ganz sicher nicht bzw. macht wenig Sinn.
Das Kopieren und Umbenennen mehrerer Dateien in einem Rutsch.
Einlesen, kopieren und dann umbenennen ist die richtige Reihenfolge.
Das Umbenennen findet dann über Access statt.
Schau mal, was ich hier gefunden habe:
DateiDialog ..Dateien kopieren oder verschieben und umbenennen