Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit FileDialog
zurück: unterformular aktualisieren weiter: nach Öffnen in ein bestimmtes Feld springen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lothar_OMC
Access-Kämpfer


Verfasst am:
10. Aug 2007, 08:33
Rufname:

Problem mit FileDialog - Problem mit FileDialog

Nach oben
       Version: Office 2003

Hallo Gemeinde,

irgendwo scheine ich einen Denkfehler zu haben. Der Code:
Code:
Private Sub Befehl8_Click()
    Dim dlgOpen As FileDialog
    Dim vrtSelectedItem As Variant
   
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
    End With
    If dlgOpen.Show = -1 Then
        For Each vrtSelectedItem In dlgOpen.SelectedItems
            '...
        Next vrtSelectedItem
      Else
        '...
    End If
End Sub
Damit wird mir leider der Inhalt der Variable vrtSelectedItem nicht übernommen und das Fenster des Dateibrowsers öffnet sich nach der ersten Eingabe wieder und es muß nochmals die Datei ausgewählt werden.

Kennt jemand abhilfe?

Danke

Lothar
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Aug 2007, 17:26
Rufname:
Wohnort: Berlin


AW: Problem mit FileDialog - AW: Problem mit FileDialog

Nach oben
       Version: Office 2003

Wenn AllowMultiSelect auf false gesetzt ist, reicht folgende Zuweisung:
Code:
    If dlgOpen.Show = -1 Then
        vrtSelectedItem = dlgOpen.SelectedItems(0)
        '...
      Else
        '...
    End If

_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Lothar_OMC
Access-Kämpfer


Verfasst am:
13. Aug 2007, 07:53
Rufname:

AW: Problem mit FileDialog - AW: Problem mit FileDialog

Nach oben
       Version: Office 2003

Hallo Rita,

wenn ich
Code:
    vrtSelectedItem = dlgOpen.SelectedItems(0)
verwende erhalte ich die Fehlermeldung:
Zitat:
Laufzeitfehler 5
Ungültiger Prozeduraufruif oder ungültiges Argument
Enweder mache ich einen Fehler oder habe etwas falsch verstanden.

Mal sehen
Willi Wipp
Moderator


Verfasst am:
13. Aug 2007, 10:50
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit FileDialog - Re: Problem mit FileDialog

Nach oben
       Version: Office 2003

Hi Lothar_OMC,

bei der Auflistung SelectedItems des FileDialog beginnt der Index soweit mir bekannt bei 1.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Lothar_OMC
Access-Kämpfer


Verfasst am:
20. Aug 2007, 13:52
Rufname:

AW: Problem mit FileDialog - AW: Problem mit FileDialog

Nach oben
       Version: Office 2003

Hallo Willi Wipp,

klar, das mit der 1 statt der Null klappt. Ich habe aber das Problem, dass das ich nachdem ich das Fenster das erste mal geschlossen habe (auf Öffnen geklickt) sich das Fenster wieder öffnet. Hast Du eine Ahnung woran das liegen könnte? Der Code lautet wie folgt:
Code:
Private Sub Befehl8_Click()
    Dim dlgOpen As FileDialog

    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
    End With
    If dlgOpen.Show = -1 Then
        vrtSelectedItem = dlgOpen.SelectedItems(1)
    End If
    Me!Versionsbeschreibung = vrtSelectedItem
Vielen Dank
Willi Wipp
Moderator


Verfasst am:
20. Aug 2007, 14:21
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem mit FileDialog - Re: Problem mit FileDialog

Nach oben
       Version: Office 2003

Hi Lothar_OMC,

Wenn Du auch 2mal Show verwendest Wink
Code:
    Dim dlgOpen         As FileDialog
    Dim vrtSelectedItem As Variant

    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        If .Show = -1 Then
            vrtSelectedItem = dlgOpen.SelectedItems(1)
        End If
    End With
    Me!Versionsbeschreibung = vrtSelectedItem

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Lothar_OMC
Access-Kämpfer


Verfasst am:
20. Aug 2007, 15:11
Rufname:


AW: Problem mit FileDialog - AW: Problem mit FileDialog

Nach oben
       Version: Office 2003

Hallo Wipp,

vielen Dank für den Hinweis, jetzt klappts.

Bitte nicht mit WLAN-Kabel schlagen.
Wink

Lothar
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Filedialog xls in Tabelle importieren 1 Micha666 92 08. Nov 2013, 00:26
derArb Filedialog xls in Tabelle importieren
Keine neuen Beiträge Access Programmierung / VBA: Fehler durch FileDialog 2 derkuehni 294 28. Sep 2012, 10:58
derkuehni Fehler durch FileDialog
Keine neuen Beiträge Access Programmierung / VBA: Filedialog und transferspreadsheet 2 Jottwd 790 26. Sep 2011, 15:39
Jottwd Filedialog und transferspreadsheet
Keine neuen Beiträge Access Programmierung / VBA: FileDialog Fehlermeldung in nur einem Tool 11 thoka26 292 19. Sep 2011, 16:20
thoka26 FileDialog Fehlermeldung in nur einem Tool
Keine neuen Beiträge Access Programmierung / VBA: FileDialog mit Pfad und Filter 3 thoka26 1213 19. Mai 2011, 19:52
lothi FileDialog mit Pfad und Filter
Keine neuen Beiträge Access Programmierung / VBA: Hilfe bei Code(filedialog) 11 Gast 599 04. März 2011, 16:22
MissPh! Hilfe bei Code(filedialog)
Keine neuen Beiträge Access Programmierung / VBA: Dateiinformationen aus FileDialog 1 Smoerre 596 05. März 2010, 12:11
lleopard Dateiinformationen aus FileDialog
Keine neuen Beiträge Access Formulare: backend nicht gefunden dann filedialog 13 hansschmidt 4141 15. Dez 2009, 14:57
derArb backend nicht gefunden dann filedialog
Keine neuen Beiträge Access Programmierung / VBA: FileDialog: Datei + Pfad sin Textfeldspeichern 3 FileFalle 1590 26. Jul 2009, 10:59
Gast FileDialog: Datei + Pfad sin Textfeldspeichern
Keine neuen Beiträge Access Formulare: Anhang über Filedialog wählen und Namen selbst vergeben 2 DonBenni 483 02. Feb 2009, 12:47
DonBenni Anhang über Filedialog wählen und Namen selbst vergeben
Keine neuen Beiträge Access Programmierung / VBA: Export in Excel mit File-Dialog 10 comsys 1726 04. Jul 2008, 18:47
comsys Export in Excel mit File-Dialog
Keine neuen Beiträge Access Programmierung / VBA: Filedialog Startordner bestimmen 2 Lars 3042 27. Mai 2008, 11:43
Lars Filedialog Startordner bestimmen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum