![\"Formular-Entwurf](\"..\/tl_files\/images\/pic_730_001.png\")
<\/a><\/p>\nBild 1: Formular-Entwurf unseres Beispielformulars<\/p>\n
Wie wir mit Verweisen arbeiten, zeigt der Artikel VBA [basics]: Mit Verweisen arbeiten (www.access-basics.de\/686)<\/b>.<\/p>\nDen Dialog anzeigen<\/h2>\n
Die Funktion EinfacheDateiauswahl<\/b> zeigt den Dialog mit den Standardeinstellungen an und liefert den gewählten Pfad zurück:<\/p>\n Die Variable fd<\/b> hat den Typ FileDialog<\/b>. Die Eigenschaft FileDialog<\/b> des Objekts Application<\/b> liefert den Dialog. Das Argument der Eigenschaft legt die Art des Dialogs fest. Es gibt vier Konstanten:<\/p>\n In diesem Artikel verwenden wir msoFileDialogFilePicker<\/b>.<\/p>\n Die Methode Show<\/b> zeigt den Dialog an und wartet, bis der Benutzer ihn schließt. Sie liefert True<\/b>, wenn der Benutzer die Auswahl bestätigt hat, und False<\/b>, wenn er den Dialog abgebrochen hat. Nach einer Bestätigung enthält die Auflistung SelectedItems<\/b> die Pfade der gewählten Dateien. SelectedItems(1)<\/b> liefert den ersten Pfad. Nach einem Abbruch liefert die Funktion eine leere Zeichenkette.<\/p>\n Im Direktbereich rufen wir die Funktion auf und wählen im Dialog eine Datei aus:<\/p>\n Der Dialog erscheint (siehe Bild 2). Nach dem Bestätigen gibt Debug.Print<\/b> den Pfad aus, den die Funktion liefert, zum Beispiel den Pfad der Datei Rueckseite.png<\/b> im Ordner Dateien<\/b>.<\/p>\n Bild 2: Der Dialog zur Dateiauswahl mit den Standardeinstellungen<\/p>\n Nach dem Abbrechen liefert die Funktion eine leere Zeichenkette, und der Direktbereich zeigt eine leere Zeile.<\/p>\n Die Prüfung des Rückgabewerts von Show<\/b> ist erforderlich. Ohne sie greift die Funktion nach einem Abbruch auf die leere Auflistung SelectedItems<\/b> zu. Das löst den Laufzeitfehler 5<\/b> mit dem Text „Ungültiger Prozeduraufruf oder ungültiges Argument“ aus.<\/p>\n Die Prozedur StandardwerteAusgeben<\/b> gibt einige Eigenschaften des Dialogs im Direktbereich aus (siehe Listing 1).<\/p>\n Listing 1: Die Standardwerte des Dialogs im Direktbereich ausgeben<\/p>\n Die Prozedur gibt für Title<\/b> den Wert Durchsuchen<\/b>, für ButtonName<\/b> den Wert OK<\/b>, für AllowMultiSelect<\/b> den Wert Wahr<\/b> und für Filter<\/b> den Wert 0<\/b> aus. Der Dialog hat also den Titel Durchsuchen<\/b>, erlaubt die Auswahl mehrerer Dateien, und die Auflistung Filters<\/b> enthält 0<\/b> Einträge.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Function <\/span>EinfacheDateiauswahl() As String<\/span><\/span>\r\n Dim <\/span>fd As <\/span><\/span>FileDialog\r\n Set<\/span> fd = _\r\n Application.FileDialog(msoFileDialogFilePicker)\r\n If <\/span>fd.Show Then<\/span>\r\n EinfacheDateiauswahl = fd.SelectedItems(1)\r\n End If<\/span>\r\n Set<\/span> fd = Nothing\r\nEnd Function<\/span><\/pre>\n\n
Debug.Print<\/span><\/span> EinfacheDateiauswahl()<\/pre>\n<\/a><\/p>\nDie Standardwerte des Dialogs<\/h2>\n
Public Sub <\/span>StandardwerteAusgeben()\r\n Dim <\/span>fd As <\/span>FileDialog\r\n Set<\/span> fd = Application.FileDialog(msoFileDialogFilePicker)\r\n Debug.Print<\/span> \"Title: \" & fd.Title\r\n Debug.Print<\/span> \"ButtonName: \" & fd.ButtonName\r\n Debug.Print<\/span> \"AllowMultiSelect: \" & fd.AllowMultiSelect\r\n Debug.Print<\/span> \"Filter: \" & fd.Filters.Count\r\n Set<\/span> fd = Nothing\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t