verknüpfte Bilder einer Access-DB auflisten lassen

08/11/2007 - 16:40 von Andreas Rieger | Report spam
Hallo,

gibt es eine einfache Möglichkeit, sich sàmtliche verknüpfte Grafiken
(der Objekte) einer Access-Datenbank auflisten zu lassen?

Hintergrund:
Wir haben auf dem Netzlaufwerk, auf dem unsere Backend-Tabellen
liegen, ebenfalls ein Verzeichnis für Grafiken, die im Frontend,
welches auf verschiedene Arbeitsplàtze verteilt wird, eingebunden
sind.
Allerdings ist das Grafik-Verzeichnis mittlerweile ziemlich
angewachsen und zudem werden nicht alle Grafiken verwendet. Ich würde
nun gern das Verzeichnis aufràumen und neu ordnen (Unterordner anlegen
etc.) und nicht verwendete Grafiken entfernen.
Grafiken die im VBA-Code referenziert werden, lassen sich ja einfach
finden.
Aber komme ich auch an die Namen und Pfade der Grafiken heran, die
direkt in Formularen verknüpft sind?
Am besten wàre natürlich ein Funktion, die Namen der Formulare und
Berichte samt der jeweils referenzierten Grafiken ausspuckt.
Ist so etwas halbwegs einfach zu realisieren bzw. gibt es hierfür
bereits eine fertige Lösung?

Viele Grüße,
Andreas
 

Lesen sie die antworten

#1 Lorenz Hölscher
09/11/2007 - 07:58 | Warnen spam
Hallo Andreas,

das ist relativ einfach:

_____________________
Sub FindeVerknuepfungenInForms()
Dim objDieses As Form
Dim objAlle As AllForms
Dim intObjekte As Integer
Dim ctlDieses As Control
Dim imgDieses As Image

Set objAlle = CurrentProject.AllForms
For intObjekte = 0 To objAlle.Count - 1
DoCmd.OpenForm objAlle(intObjekte).Name, acDesign
Debug.Print objAlle(intObjekte).Name & "__________"
For Each ctlDieses In Screen.ActiveForm.Controls
If TypeOf ctlDieses Is Image Then
Set imgDieses = ctlDieses
Debug.Print imgDieses.Name & ": " & imgDieses.Picture
End If
Next
DoCmd.Close acForm, objAlle(intObjekte).Name
Next
End Sub
____________________________

Das Ergebnis findest Du im Direktfenster (Strg+G). AllForms làuft erst
ab Access2000, sonst müssen wir das ersetzen. Für Berichte làßt sich
das einfach umbauen.

tschö, Lorenz

Für die Ermittlung der Formulare siehe auch:
http://www.cls-software.de/cls_soft...ssVBA.aspx

Ähnliche fragen