PDA

Vollständige Version anzeigen : Dialog Öffnen nach Kriterium?


omron
24.01.2008, 13:15
Hallo Forum,

Ich habe unter C:\EigeneDateien\ Bilder2007 mehrere Unterordner z.B
Jan2007
Feb2007 usw.
Ich suche nun eine Möglichkeit in einem Formular mittels Textfeld und Schaltfläche
ein Dialog-Öffnen Menü zu starten welches immer den Ordner öffnet der im Textfeld
eingegeben wurde.
z.B ich gebe im Textfeld: Jan2007 ein, betätige die Schaltflächen und das Dialog Öffnen Menü zeigt mir den Inhalt dieses Ordners an. Über dieses Dialog Öffnen Menü, müssten sich die Dateien ( Bilder ) auch öffnen lassen.

Besten Dank im Voraus
omron

achtelpetit
24.01.2008, 16:06
Private Sub cmd_doku_Click()

Dim verzeichnis As String
verzeichnis = DLookup("pfad", "tbl_pfade", "pfad_id = 12") & Me.txt_artikelnr

If Dir(verzeichnis, vbDirectory) <> "" Then
Me.Application.FollowHyperlink verzeichnis
Else
MkDir (DLookup("pfad", "tbl_pfade", "pfad_id = 12") & Me.txt_artikelnr)
Me.Application.FollowHyperlink verzeichnis
End If

End Sub

So versuche ich das zu lösen. Damit die Sache flexibel bleibt und "von außen" geändert werden kann ist der Pfad in einer Tabelle abgelegt.
Innerhalb dieses Verzeichnisses wird, soferne nicht vorhanden, ein Unterverzeichnis mit dem Namen der gerade gewählten Artikelnummer angelegt.
Wie Du siehst, fehlt die Fehlerbehandlung.