Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
msoFileDialogOpen mit Filterfunktion
Gehe zu Seite 1, 2  Weiter
zurück: Schleife zur Datensatzerstellung weiter: Per Abfrage filtern, und an Tabelle anfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hilfesuchender21
Gast


Verfasst am:
27. Jan 2012, 17:54
Rufname:

msoFileDialogOpen mit Filterfunktion - msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo

Ist es möglich bei einem msoFileDialogOpen eine Anzeigefilter einzubauen?
Sprich dass ich bereits verwendete Files im Datensatz im Windowsfenster nicht mehr angezeigt werden?

Hoffend auf einen nützlichen Hinweis

Gruss
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
27. Jan 2012, 17:59
Rufname: Mike


AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo,
ich denke nicht, dass das möglich ist.
Du müsstest selbst eine entsprechende Auswahlfenster z.B. über ein Listenfeld erstellen.

_________________
Grüße
Mike
Hilfesuchender21
Gast


Verfasst am:
27. Jan 2012, 18:05
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hy

und wie könnte man dies realisieren? bin im programmieren nicht sehr bewandert!
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
27. Jan 2012, 20:18
Rufname: Mike

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo,
du erstellst ein Listenfeld mit Datenherkunft Werteliste.
Die Dateien liest du per Dir().
Dabei schaust du bei jeder Datei, ob diese schon in der Tabelle ist (z.B. per DLookUp()). Wenn nicht schreibst du diese in das Listenfeld.

_________________
Grüße
Mike
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 09:28
Rufname:


AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hy

danke für deine Info

Aber ich schaffe es nicht auf einen grünen Zweig zu kommen. Wäre es möglich einen Code von dir zu erhalten?

danke inzwischen
Louisleon
man muß nicht alles wissen...


Verfasst am:
30. Jan 2012, 09:40
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo,

Zitat:
Ist es möglich bei einem msoFileDialogOpen eine Anzeigefilter einzubauen?

meinst Du evtl. so was (getesteter Luftcode Wink):
Code:
Public Sub ChooseFilesExample()
    Dim oFileDialog As FileDialog
    Dim selItem As Variant
    Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    With oFileDialog
        .Title = "Grafiken auswählen"
        .ButtonName = "Bild laden"
        .AllowMultiSelect = True
    .Filters.Clear
        .Filters.Add "Alles", "*.*"
        .Filters.Add "JPEG-Dateien", "*.jpg;*.jpeg", 1
        .Filters.Add "GIF-Dateien", "*.gif", 2
        .Filters.Add "Bitmap-Dateien", "*.bmp", 3
        If .Show = True Then
            For Each selItem In .SelectedItems
            'Do what you want
                MsgBox selItem
            Next
        End If
    End With
End Sub


Erfordert Verweis auf Office Object-Library!

Gruß

LL
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 10:18
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hy

danke für deine Info. Aber das meine ich leider nicht

Ich meine folgendes:

Wenn ich mehrere Dateien aus meinen Standardordner auswählen kann ( pdf jpg ect) dann soll mir im gleichen Datensatz immer nur diejenigen Files angezeigt werden, die ich im aktuellen Datensatz noch nicht verwendet habe!
Sprich

Datei1 wird im Datensatz 11 angezeigt => verwendet
bei weiterem Aufruf eines zweiten OLE Fensters sollen mir alle Files im Standardordner angezeigt werden ausser Datei 1

Ist das möglich? und wenn nicht wie bereits Sonnenschein vermutet, wie kann man das realiseren?

Danke
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 10:19
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hy

danke für deine Info. Aber das meine ich leider nicht

Ich meine folgendes:

Wenn ich mehrere Dateien aus meinen Standardordner auswählen kann ( pdf jpg ect) dann soll mir im gleichen Datensatz immer nur diejenigen Files angezeigt werden, die ich im aktuellen Datensatz noch nicht verwendet habe!
Sprich

Datei1 wird im Datensatz 11 angezeigt => verwendet
bei weiterem Aufruf eines zweiten OLE Fensters sollen mir alle Files im Standardordner angezeigt werden ausser Datei 1

Ist das möglich? und wenn nicht wie bereits Sonnenschein vermutet, wie kann man das realiseren?

Danke
Louisleon
man muß nicht alles wissen...


Verfasst am:
30. Jan 2012, 10:31
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Nein, das geht standardmäßig nicht.
Entweder wie Sonnenschein vorgeschlagen hat oder alternativ mit einer Collection, welche Du mit "For each item in mycollection" durchläufst, mit den bereits vorhanden vergleichst und anschließend eine neue Filter.Add erstellst.

Gruß

LL
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 10:33
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hy

danke für die Info.

Dein Vorschlag eine Collection zu machen klingt gut, nur wie macht man sowas?
Louisleon
man muß nicht alles wissen...


Verfasst am:
30. Jan 2012, 10:38
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Habe es jetzt erst verstanden!
Dir geht es nicht um die Extensions sonder um die Dateiauflistung!
Die Collection mit der Filter Variante war für die Extensions gedacht, das FileDialog ist dazu eher nicht geeignet.

Mal sehen was sich findet.

Gruß

LL
Louisleon
man muß nicht alles wissen...


Verfasst am:
30. Jan 2012, 12:53
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo,
die Collection mit den Dateinamen könntest Du mittels FSO z.B. so erstellen:
Code:
Function DateienInOrdner(QuellOrdner As String)
Dim fso As Object
Dim SourceFolder As Object
Dim FileItem As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = fso.GetFolder(QuellOrdner)
  For Each FileItem In SourceFolder.Files
 'Hier kannst Du dann die Dateien vergleichen
  If FileItem.Name <> .... Then
 'und z.b. Listbox füllen (Vorschlag Sonnenschein)
  Me.mylstbox.Add = FileItem.Name
  End If
  Next FileItem
End Function


Gruß

LL
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 18:09
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo

danke erstmal für den Code.

Werde schon auf der Leitung stehen, aber wie kann ich den nun an meinen bestehenden anpassen

Code:


Private Sub ImageFld_Click()
On Error GoTo Er

Dim fd As FileDialog, FileVar As Variant


Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
  .AllowMultiSelect = False
  .Filters.Clear
  '.Filters.Add "Alle Dateien", "*.*", 1
  .Filters.Add "Bilddateien", "*.gif; *.jpg; *.jpeg; *.bmp", 1
  '.InitialView = msoFileDialogViewThumbnail 'Miniaturbilder anzeigen
 .InitialFileName = "C:\Dokumente und Einstellungen\ 
  If .Show Then '= -1 Then
   For Each FileVar In .SelectedItems
    If Len(FileVar) > 0 Then
     Me!S_Bild1 = FileVar
     LoadPic
    End If
   Next FileVar
  End If
   
  '.InitialFileName = Left(FileVar, InStrRev(FileVar, "\")) 'Pfad der zuletzt geöffneten Datei als Vorgabe
End With
Set fd = Nothing

Me!ArtikelNr.SetFocus

Ex:
  On Error Resume Next
  Exit Sub

Er:
  Set fd = Nothing
  MsgBox "ArtikelNr: " & Err.Description
  Resume Ex

End Sub


Danke inzwischen
Hilfesuchender21
Gast


Verfasst am:
30. Jan 2012, 18:10
Rufname:

AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo

danke erstmal für den Code.

Werde schon auf der Leitung stehen, aber wie kann ich den nun an meinen bestehenden anpassen

Code:


Private Sub ImageFld_Click()
On Error GoTo Er

Dim fd As FileDialog, FileVar As Variant


Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
  .AllowMultiSelect = False
  .Filters.Clear
  '.Filters.Add "Alle Dateien", "*.*", 1
  .Filters.Add "Bilddateien", "*.gif; *.jpg; *.jpeg; *.bmp", 1
  '.InitialView = msoFileDialogViewThumbnail 'Miniaturbilder anzeigen
 .InitialFileName = "C:\Dokumente und Einstellungen\ 
  If .Show Then '= -1 Then
   For Each FileVar In .SelectedItems
    If Len(FileVar) > 0 Then
     Me!S_Bild1 = FileVar
     LoadPic
    End If
   Next FileVar
  End If
   
  '.InitialFileName = Left(FileVar, InStrRev(FileVar, "\")) 'Pfad der zuletzt geöffneten Datei als Vorgabe
End With
Set fd = Nothing

Me!ArtikelNr.SetFocus

Ex:
  On Error Resume Next
  Exit Sub

Er:
  Set fd = Nothing
  MsgBox "ArtikelNr: " & Err.Description
  Resume Ex

End Sub


Danke inzwischen
Hilfesuchender21
Gast


Verfasst am:
01. Feb 2012, 16:55
Rufname:


AW: msoFileDialogOpen mit Filterfunktion - AW: msoFileDialogOpen mit Filterfunktion

Nach oben
       Version: Office 2007

Hallo Zusammen,

versuch die Hilfestellung umzusetzen, aber ich komm auf keinen grünen Zweig!

Kann mir jemand bitte weiterhelfen

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

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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: Probleme Filterfunktion - Objektvariable 1 maajora 251 12. Jul 2013, 10:22
Bitsqueezer Probleme Filterfunktion - Objektvariable
Keine neuen Beiträge Access Programmierung / VBA: Filterfunktion mit Toleranzen? 26 Nettihangman 482 27. Jun 2013, 18:00
Bitsqueezer Filterfunktion mit Toleranzen?
Keine neuen Beiträge Access Programmierung / VBA: Such- Filterfunktion Access VBA 1 Bene749 301 21. März 2013, 17:02
Nouba Such- Filterfunktion Access VBA
Keine neuen Beiträge Access Formulare: Filterfunktion 1 Kitty2007 114 28. Feb 2013, 18:58
KlausMz Filterfunktion
Keine neuen Beiträge Access Programmierung / VBA: Laufzeitfehler 2176 / VBA String für Filterfunktion 2 seym 142 08. Nov 2012, 13:40
JMalberg Laufzeitfehler 2176 / VBA String für Filterfunktion
Keine neuen Beiträge Access Programmierung / VBA: Filterfunktion nach Spaltenüberschrift? 17 Ocuvito 368 17. Okt 2012, 16:40
Gast Filterfunktion nach Spaltenüberschrift?
Keine neuen Beiträge Access Formulare: Fehlermeldung bei Filterfunktion 1 Tiefenlockerer 233 20. März 2012, 08:49
KlausMz Fehlermeldung bei Filterfunktion
Keine neuen Beiträge Access Tabellen & Abfragen: Optionale Filterfunktion über Formular - Listbox 8 schumsi 492 10. März 2012, 20:04
Kaulquappe Optionale Filterfunktion über Formular - Listbox
Keine neuen Beiträge Access Programmierung / VBA: Abhängige Kombinationsfelder inkl. Filterfunktion 8 Soniq 481 09. Nov 2011, 08:59
Soniq Abhängige Kombinationsfelder inkl. Filterfunktion
Keine neuen Beiträge Access Programmierung / VBA: Abfrage/Bericht auf ein Button legen (Filterfunktion) 12 7UP 381 16. Sep 2011, 09:23
7UP Abfrage/Bericht auf ein Button legen (Filterfunktion)
Keine neuen Beiträge Access Programmierung / VBA: Serienbrief Access inkl Filterfunktion per Dropdown 2 Apollo11 520 30. Mai 2011, 23:40
MissPh! Serienbrief Access inkl Filterfunktion per Dropdown
Keine neuen Beiträge Access Berichte: Filterfunktion in Berichtseigenschaften 7 snoopy1959 1475 08. März 2011, 17:38
MissPh! Filterfunktion in Berichtseigenschaften
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe