Eine Funktion, die in Datenbanken immer wieder hilfreich sein kann, ist die Anzeige eines bestimmten Verzeichnisses im Windows-Explorer. So können Sie z. B. dem Anwender die Möglichkeit geben, in einem Verzeichnis mit Importdateien die dort vorhandenen Dateien zu prüfen, umzubenennen bzw. Sicherheitskopien anzulegen.
Um eine solche Schaltfläche in ein Formular einzubauen, gehen Sie wie in Access-Berater vorgestellt folgendermaßen vor: - Wechseln Sie mit ALT + F11 in die VBA-Entwicklungsumgebung oder öffnen Sie ein Modul im Entwurfsmodus.
- Wählen Sie das Menü EXTRAS > VERWEISE an.
- Lokalisieren Sie den Eintrag MICROSOFT SHELL CONTROLS AND AUTOMATION und aktivieren Sie das Kontrollkästchen vor dem Eintrag.
- Übernehmen Sie die Änderungen mit einem Klick auf OK.
- Öffnen Sie das betreffende Formular im Entwurfsmodus.
- Platzieren Sie im Formular eine Schaltfläche IMPORT > VERZEICHNIS (Name = »btnImportFolder«).
- Stellen Sie die Eigenschaft BEIM KLICKEN auf den Eintrag »[Ereignisprozedur]« ein, klicken Sie auf die Schaltfläche mit den drei Punkten, um den VBA-Editor zu öffnen, und geben Sie die folgenden Anweisungen ein:
Private Sub btnImportFolder_Click()
Dim s As New Shell
Const cstrDir = »Z:TestImport«
s.Open cstrDir
Set s = Nothing
End Sub
- Speichern Sie die Änderungen und lassen Sie das Formular einmal testweise anzeigen.
Nach einem Klick auf die Schaltfläche IMPORT > VERZEICHNIS wird nun ein Windows-Explorer-Fenster mit dem in der Konstanten »cstrDir« festgelegten Verzeichnis geöffnet.
Der Windows-Explorer zeigt hierbei ein einfaches Fenster an. Alternativ können Sie ein Windows-Explorer-Fenster mit hierarchischer Verzeichnisanzeige links und dem gewünschten Verzeichnis rechts anzeigen lassen.
Dazu nutzen Sie die Methode »Explore « des »Shell«-Objekts wie in folgender Ereignisprozedur:
Private Sub btnExploreImport_Click()
Dim s As New Shell
Const cstrDir = »Z:TestImport«
s.Explore cstrDir
Set s = Nothing
End Sub
Der Access-Berater
Access – jetzt so einfach wie Excel!
Die Funktionsvielfalt von Access ist enorm: Es gibt kaum eine Aufgabenstellung, die Sie mit Access nicht lösen können. Das hat allerdings nicht nur Vorteile. Ganz gleich ob Neueinsteiger oder Profi – Sie können nie wirklich sicher sein, ob es nicht doch einen anderen, noch schnelleren und vielleicht viel effizienteren Weg zur Lösung Ihrer aktuellen Aufgabe gibt.
Mit Access haben Sie ein extrem leistungsfähiges Werkzeug in der Hand, das Sie aber ohne weiteres gar nicht voll ausnutzen können. Doch es muss nicht immer eine fertige Anwendung oder komplizierte Programmiertechnik sein, die Ihr Problem löst. Häufig sind es vor allem kleine Tricks und Kniffe, die Ihnen weiterhelfen.
Mit dem neuen
Access-Berater schöpfen Sie alle Möglichkeiten von Access voll aus. Ein Team von erfahrenen Access-Anwendern und -Entwicklern hat darin die wichtigsten Tipps und Problemlösungen zusammengestellt, die Sie für die tägliche Arbeit mit Access benötigen. Damit wird Access für Sie künftig so einfach wie Excel!
Lesen Sie hier mehr über den „Access-Berater“
Klicken Sie hier für Ihren kostenlosen „6-Wochen-Gratis-Test“
|