<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Dateidialoge unter Access – das war lange Zeit ein Mysterium, denn entweder musste man dazu das CommonDialog-ActiveX-Control von Microsoft verwenden oder direkt auf die Windows-API zugreifen. Wenn da nicht pfiffige Entwickler fertige Lösungen zur freien Verwendung angeboten hätten, würde man in manchen Datenbankanwendungen vermutlich heute noch Dateien und Verzeichnisse manuell eintragen. Mit der Version 2002 enthält Access ein FileDialog-Objekt, mit dem sich die gewünschten Dialoge recht komfortabel anzeigen lassen.<\/b><\/p>\n
Für die Anzeige von Dateidialogen bietet Access bis zur Version 2000 zwei Möglichkeiten. Die erste verwendet das CommonDialog-Steuerelement und die zweite greift direkt auf die Windows-API zu.<\/p>\n
Das Problem beim CommonDialog-Steuerelement ist das gleiche wie bei allen anderen Lösungen, die ein nicht in Access integriertes Steuerelement verwenden: Sie müssen sicherstellen, dass es auf jedem Rechner, auf dem die Datenbankanwendung verwendet wird, ebenfalls vorhanden ist.<\/p>\n
Die zweite Variante verwendet einige API-Funktionen und ist zumindest insofern problemloser, als dass Sie den entsprechenden Code als Bestandteil der Datenbank – etwa als eigenes Klassenmodul – weitergeben können.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Individueller Dateidialog<\/span><\/b><\/p>\n Mit Access 2002 versucht Microsoft, eine in Access integrierte Lösung zu schaffen: Das FileDialog-Objekt ist ein Teil der Office-Bibliothek und steht damit sofort nach Erstellen einer neuen Datenbank und Einrichten eines entsprechenden Verweises auf die Bibliothek Microsoft Office x.0 Object Library zur Verfügung.<\/p>\n Das FileDialog-Objekt stellt Dialoge zum Auswählen von Verzeichnissen und Dateien bereit. Mit den zahlreichen Einstellungsmöglichkeiten lässt sich der resultierende Dialog relativ weit an eigene Bedürfnisse anpassen (siehe Bild 1). <\/p>\n Nachteile besitzt das Filedialog-Objekt allerdings auch – zumindest einen: Die Entwickler haben wohl an der falschen Stelle gespart, als sie einen Dialog zur Auswahl eines Speichernamens für eine Datei ausließen.<\/p>\n Scheinbar dachte man, dass ja im Vergleich zu Word oder Excel in Access eigentlich keine Dateien gespeichert werden. Damit lassen sich mit diesem Dialog keine klassischen „Speichern unter…“-Dialoge erzeugen.<\/p>\n Und auch der Dialog zum öffnen einer Datei mit der dem Dateityp entsprechenden Anwendung ist für den Einsatz in Access nicht geeignet.<\/p>\n Das FileDialog-Objekt stellt vier unterschiedliche Dialoge zur Verfügung, von denen unter Access aber – wie bereits erwähnt – nur zwei funktionieren.<\/p>\n Der Dateiauswahl-Dialog dient der Auswahl von Dateien, deren Namen Sie später weiterverarbeiten können. Mit ihm lassen sich mehrere Dateinamen gleichzeitig auswählen, die Sie später aus einer Auflistung auslesen können.<\/p>\n Der zweite Dialog dient zum Auswählen eines Verzeichnisses. Er gibt den kompletten Pfad eines einzelnen Verzeichnisses zurück.<\/p>\n Um das FileDialog-Objekt unter VBA verfügbar zu machen, müssen Sie zunächst einen Verweis auf die Office-Bibliothek anlegen. <\/p>\n Dazu wechseln Sie per Strg + g zum VBA-Editor, wählen den Menüpunkt Extras\/Verweise aus und setzen dort einen Haken vor den Eintrag Microsoft Office 11.0 Object Library (siehe Bild 2).<\/p>\n Anschließend können Sie per VBA auf die Methoden und Eigenschaften des FileDialog-Objekts zugreifen. Mit dem Objektkatalog (am schnellsten anzuzeigen per F2) können Sie sich erstmal einen überblick über die Elemente dieses Objekts verschaffen – geben Sie einfach FileDialog im Suchfenster ein und klicken Sie dann auf den entsprechenden Eintrag in der Liste der Suchergebnisse (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 2: Verweis auf die Office-Bibliothek erstellen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Methoden und Eigenschaften des FileDialog-Objekts<\/span><\/b><\/p>\n In den folgenden Kapiteln lernen Sie die einzelnen Methoden und Eigenschaften und ihre Einsatzmöglichkeiten genauer kennen.<\/p>\n Die einfachste Variante des Datei auswählen-Dialogs ist die aus Quellcode 1. Die Funktion deklariert eine Objektvariable, die sie anschließend mit dem FileDialog-Objekt füllt.<\/p>\n Quellcode 1<\/b><\/p>\n <\/p>\n Quellcode 2<\/b><\/p>\n <\/b><\/p>\n Bild 4: Der Standard-Dialog zum Auswählen von Dateien<\/span><\/b><\/p>\n Durch die Einstellung der Eigenschaft AllowMultiSelect auf den Wert False können Sie mit dem nachfolgend geöffneten Dialog nur eine Datei gleichzeitig auswählen.<\/p>\n Die Show-Methode zeigt den gewünschten Dialog an und gibt den Wert True zurück, wenn der Benutzer eine Datei ausgewählt hat. In dem Fall weist die Funktion ihrem Rückgabewert den Namen der ausgewählten Datei zu.<\/p>\n Der mit dieser Funktion angezeigte Dialog sieht wie in Bild 4 aus. Mit dem Kombinationsfeld Dateityp können Sie die angezeigten Dateien entsprechend ihrer Dateiendung einschränken. Als Kriterien zur Einschränkung stehen die normalerweise für den Import von Dateien unter Access angebotenen Dateitypen zur Verfügung.<\/p>\n Für die Auswahl eines einzelnen Verzeichnisses verwenden Sie prinzipiell die gleiche Funktion wie zur Auswahl einer Datei. Der einzige Unterschied ist der Parameter beim Instanzieren des FileDialog-Objekts (s. Quellcode 2). Der Dialog ist genau wie der zum Auswäh-len einer Datei aufgebaut (siehe Bild 5).<\/p>\n Die beiden Dialoge zur Auswahl von Dateien und Verzeichnissen lassen sich gut an spezielle Wünsche anpassen. <\/p>\n Damit kann man beispielsweise mehrere Dateien statt einer einzigen auswählen oder einzelne Elemente der Anzeige verändern, etwa die überschrift, die Dateiendungen der anzuzeigenden Dateien, das zuerst anzuzeigende Verzeichnis oder die Schaltflächenbeschriftung.<\/p>\n <\/b><\/p>\n Bild 5: Dialog zum Auswählen eines Verzeichnisses<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n In den beiden ersten Beispielen zur Auswahl von Dateien und Verzeichnissen wurde die Möglichkeit zur Auswahl bewusst auf einen Eintrag eingeschränkt. <\/p>\n Dafür sorgt die Eigenschaft AllowMultiSelect. Stellen Sie diese Eigenschaft auf True ein, wenn der Benutzer mehrere Einträge auswählen können soll, und auf False, wenn die Anzahl der wählbaren Einträge auf eins beschränkt sein soll.<\/p>\n Bei der Auswahl eines einzelnen Eintrags lässt sich der ausgewählte Eintrag aus der Auflistung SelectedItems wie folgt in eine Variable schreiben:<\/p>\n Im Falle mehrerer Einträge müssen Sie die einzelnen Elemente der Auflistung in einer For Each-Schleife durchlaufen. Quellcode 3 enthält ein Beispiel für die Ausgabe einer oder mehrerer Dateien. Beachten Sie, dass die Eigenschaft AllowMultiSelect hier auf den Wert True eingestellt ist.<\/p>\n Wenn Sie nicht nur an einer Stelle innerhalb einer Datenbankanwendung Dateidialoge öffnen, seien Sie gewarnt: Eigenschaften, die nicht explizit gesetzt werden, übernimmt das FileDialog-Objekt von der zuletzt geöffneten Instanz. Wenn Sie also beim ersten Aufruf eines Dateidialogs den Titel auf „Grafik auswählen“ setzen und diese Eigenschaft in einem anderen Aufruf gar nicht festlegen, wird diese Instanz des FileDialog-Objekts ebenfalls mit dem Titel „Grafik auswählen“ geöffnet. Um dies zu verhindern, setzen Sie einfach eine leere Zeichenkette als Wert der Eigenschaft ein. <\/p>\n Das FileDialog-Objekt bietet einige Möglichkeiten zum Anpassen des Dateidialogs.<\/p>\n Die überschrift des Dialogs ist mit „Datei öffnen“ (Dateien) und „Durchsuchen“ (Verzeichnisse) nur in manchen Fällen sinnvoll. Mit der Title-Eigenschaft können Sie diese anpassen (dieses und die nächsten Beispiele setzen voraus, dass Sie das FileDialog-Objekt in der Variablen objFileDialog beherbergen):<\/p>\n Quellcode 4<\/b><\/p>\n Leider lässt sich nur eine der Schaltflächen individuell beschriften. Die Beschriftung der Abbrechen-Schaltfläche ist tabu. Da Sie diese aber kaum durch einen sinnvolleren Text ersetzen können, bedeutet das gar kein Problem.<\/p>\n Anders sieht es bei der öffnen-Schaltfläche bei der Auswahl von Dateien und der OK-Schaltfläche bei den Verzeichnissen aus – hier könnte man durchaus eine sinnvollere Beschriftung verwenden. Die entsprechende Eigenschaft legen Sie folgendermaßen fest:<\/p>\n Die standardmäßig vorhandenen Filter benötigen Sie in der Regel nicht alle. Meist steht beim öffnen des Dateidialogs von Access aus schon fest, welchen Dateityp die auszuwählende Datei haben wird. In dem Fall kann man die Dateitypen weitgehend einschränken.<\/p>\n Die Informationen zu den einzelnen Filtern speichert Access in der Filters-Auflistung. Zu jedem Filter gehören drei Informationen:<\/p>\n In folgendem Beispiel sollen drei Filter für verschiedene Access-Datenbanken im Dateidialog angezeigt werden. Damit die Standardfilter nicht ebenfalls angezeigt werden, initialisieren Sie die Filters-Auflistung zunächst. Anschließend fügen Sie mit der Add-Methode der Auflistung die gewünschten Filter hinzu (s. Quellcode 4). Die Zahl für die Reihenfolgenposition können Sie übrigens weglassen, wenn Sie die Einträge in der richtigen Reihenfolge angeben.<\/p>\n Wenn Sie einen Eintrag nachträglich irgendwo zwischenschieben möchten, geben Sie einfach die gewünschte Position an. Die anderen Einträge werden dann nach unten geschoben.<\/p>\n Standardmäßig zeigt der Dialog nun den ersten in der Auflistung vorhandenen Filter an. Um beim Aufruf einen anderen Eintrag anzuzeigen, geben Sie diesen mit der Eigenschaft FiltersIndex an.<\/p>\n Praktischerweise können Sie dem Dialog direkt einen Dateinamen mitgeben. Das ist interessant, wenn Sie schon wissen, wie die zu öffnende Datei heißt. Verantwortlich für diese Möglichkeit ist die Eigenschaft InitialFileName. Beachten Sie, dass der Dateidialog die Dateiendung nicht anzeigt, wenn der aktuelle Dateifilter ihn enthält.<\/p>\n Wenn Sie zusätzlich festlegen möchten, in welchem Verzeichnis der Dateidialog startet, geben Sie dieses einfach zusammen mit dem voreingestellten Dateinamen an:<\/p>\n Mit der Eigenschaft InitialView legen Sie die Ansicht der angezeigten Dateien fest. Hier steht eine Menge Möglichkeiten zur Verfügung. Normalerweise wird die Ansicht aus Bild 6 verwendet.<\/p>\n Die zur Anzeige dieser Ansicht verwendete Konstante heißt msoFileDialogViewList. Um eine bestimmte Anzeige zu erreichen, verwendet man etwa folgende Anweisung:<\/p>\n <\/b><\/p>\n Bild 6: Dateien in der Listenansicht<\/span><\/b><\/p>\n Wenn Sie beispielsweise Bilddateien für die Verwendung in Zusammenhang mit Access auswählen möchten, ist die Anzeige der Vorschaubilder eine interessante Alternative (siehe Bild 7). Dies erreichen Sie mit der nächsten Anweisung:<\/p>\n <\/b><\/p>\n Bild 7: Für die Auswahl von Bilddateien kann ihre Miniaturansicht hilfreich sein.<\/span><\/b><\/p>\n Das FileDialog-Objekt lässt sich sehr leicht in Access-Anwendungen integrieren. Wenn man nicht gerade Abwärtskompatibilität auf Access 2000 oder älter gewährleisten muss, ist diese Möglichkeit zur Auswahl von Dateien und Verzeichnissen eine gute Wahl. Im Vergleich zu den vorhandenen Möglichkeiten zur Verwendung von Dateidialogen schneidet die API-Variante allerdings besser ab, wenn ein Dialog zum Speichern einer Datei gefragt ist.<\/p>\n","protected":false},"excerpt":{"rendered":" Dateidialoge unter Access – das war lange Zeit ein Mysterium, denn entweder musste man dazu das CommonDialog-ActiveX-Control von Microsoft verwenden oder direkt auf die Windows-API zugreifen. Wenn da nicht pfiffige Entwickler fertige Lösungen zur freien Verwendung angeboten hätten, würde man in manchen Datenbankanwendungen vermutlich heute noch Dateien und Verzeichnisse manuell eintragen. Mit der Version 2002 enthält Access ein FileDialog-Objekt, mit dem sich die gewünschten Dialoge recht komfortabel anzeigen lassen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022005,662005,44000028,44000026,44000025],"tags":[],"class_list":["post-55000268","post","type-post","status-publish","format-standard","hentry","category-66022005","category-662005","category-Ergonomie_und_Benutzeroberflaeche","category-Interaktiv","category-VBA_und_Programmiertechniken"],"yoast_head":"\nFileDialog-Objekt vorbereiten<\/h2>\n
Methoden und Eigenschaften des FileDialog-Objekts<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic003.png\")
<\/p>\nPublic Function DateiAuswaehlen()\r\n Dim objFiledialog As FileDialog\r\n Set objFiledialog = _ Application.FileDialog(msoFileDialogOpen)\r\n With objFiledialog\r\n .AllowMultiSelect = False\r\n If .Show = True Then\r\n DateiAuswaehlen = .SelectedItems(1)\r\n End If\r\n End With\r\n Set objFiledialog = Nothing\r\nEnd Function<\/pre>\n
Public Function VerzeichnisAuswaehlen()\r\n Dim objFiledialog As FileDialog\r\n Set objFiledialog = _ Application.FileDialog(msoFileDialogFolderPicker)\r\n With objFiledialog\r\n .AllowMultiSelect = False\r\n If .Show = True Then\r\n VerzeichnisAuswaehlen = .SelectedItems(1)\r\n End If\r\n End With\r\n Set objFiledialog = Nothing\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic005.png\")
<\/p>\nPublic Function DateienAuswaehlen()\r\n Dim objFiledialog As FileDialog\r\n Dim varDatei As Variant\r\n Set objFiledialog = _ Application.FileDialog(msoFileDialogOpen)\r\n With objFiledialog\r\n .AllowMultiSelect = True\r\n If .Show = True Then\r\n For Each varDatei In .SelectedItems\r\n Debug.Print varDatei\r\n Next varDatei\r\n End If\r\n End With\r\n Set objFiledialog = Nothing\r\nEnd Function<\/pre>\n
Auswahl mehrerer Dateien oder Verzeichnisse<\/h2>\n
strDatei = objFileDialog.SelectedItems(1)<\/pre>\n
Praxis-Tipp<\/h3>\n
Anpassen des Dialog-Layouts<\/h2>\n
Dialogüberschrift<\/h3>\n
Public Function DateienAuswaehlen_Layout()\r\n Dim objFiledialog As FileDialog\r\n Dim varDatei As Variant\r\n Set objFiledialog = Application.FileDialog(msoFileDialogOpen)\r\n With objFiledialog\r\n .AllowMultiSelect = True\r\n .ButtonName = \"übernehmen\"\r\n .Title = \"Import-Dateien auswählen\"\r\n .Filters.Clear\r\n .Filters.Add \"Alle Dateien\", \"*.*\", 1\r\n .Filters.Add \"Access-Datenbanken\", \"*.mdb\", 2\r\n .Filters.Add \"Geschützte Datenbanken\", \"*.mde\", 3\r\n .Filters.Add \"Assistenten\", \"*.mda\", 4\r\n .FilterIndex = 2\r\n If .Show = True Then\r\n For Each varDatei In .SelectedItems\r\n Debug.Print varDatei\r\n Next varDatei\r\n End If\r\n End With\r\n Set objFiledialog = Nothing\r\nEnd Function<\/pre>\n
objFileDialog.Title = _ \"Import-Dateien auswählen\"<\/pre>\n
Schaltflächenbeschriftung<\/h3>\n
objFileDialog.ButtonName = \"übernehmen\"<\/pre>\n
Filter festlegen<\/h3>\n
Dateinamen vorgeben<\/h3>\n
objFileDialog.InitialFileName = _ \"Nordwind.mdb\"<\/pre>\n
objFileDialog.InitialFileName = _ \"c:\\Nordwind.mdb\"<\/pre>\n
Listenansicht festlegen<\/h3>\n
objFileDialog.InitialView = _ msoFileDialogViewList<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic006.png\")
<\/p>\nobjFileDialog.InitialView = _ msoFileDialogViewPreview<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3670993B-CFF0-4D5E-8A0B-8CE95A1021E4}\/pic007.png\")
<\/p>\n