Standard-Auswahldialog in eigenen Anwendungen nutzen

Sie programmieren mit Hilfe von MS Access eigene Datenbank-Anwendungen. Nun suchen Sie eine M÷glichkeit, den Standard-Dialog von Windows zur Auswahl eines Ordners in Ihre Anwendung einzubinden.

1. Vorbereitungen treffen
In Access XP mⁿssen Sie nicht auf OCX-Controls und Windows-API zurⁿckgreifen, um in Ihrer Anwendung einen Dialog zur Auswahl eines Ordners einzubinden: Nutzen Sie stattdessen die Library von Office XP. Damit k÷nnen Sie einen normalen ╓ffnen-Dialog und einen Auswahldialog fⁿr Dateien oder Verzeichnisse integrieren û diese beiden Dialoge nennt Microsoft ╗FilePicker½- beziehungsweise ╗FolderPicker½-Dialog. ╓ffnen Sie Access XP und legen Sie zuerst eine leere Datenbank an. Anschlie▀end erzeugen Sie ein neues Formular, auf dem Sie eine SchaltflΣche ╗btnFileDialog½ und ein Textfeld ╗tboErgebnis½ positionieren. Mit der SchaltflΣche ÷ffnen Sie spΣter den Dialog, das Textfeld soll nach dem Aufruf des Dialogs den ausgewΣhlten Ordner enthalten.

2. Makro programmieren
Klicken Sie mit der rechten Maustaste auf die SchaltflΣche und rufen Sie den Kontextbefehl ╗Eigenschaften½ auf. Positionieren Sie Ihren Cursor auf der Registerkarte ╗Ereignis½ im Feld neben ╗Beim Klicken½ und nutzen Sie anschlie▀end die rechts neben dem Feld erscheinende SchaltflΣche ╗à½. Markieren Sie in ╗Generator auswΣhlen½ den ╗Code-Generator½ und klicken Sie auf ╗OK.½ Es ÷ffnet sich der VisualBasic-Editor mit der leeren Funktion ╗btnFileDialog_Click()½. Geben Sie den folgenden Code ein oder kopieren Sie ihn von der Heft-CD (CHIP-Code Praxis05).

Dim dlgFileOpen As FileDialog
Set dlgFileOpen = Application.FileDialog (msoFileDialogFolderPicker)
If dlgFileOpen.Show Then
    tboErgebnis = dlgFileOpen.SelectedItems(1)
End If