MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 08.02.2018, 09:08   #1
mille81
MOF User
MOF User
Standard Acc2016 - Verzeichnispfad in String schreiben

Hallo zusammen,

ich suche eine Möglichkeit einen Verzeichnispfad (NICHT den Dateipfad) in einen String bzw. dann in ein Textfeld zu schreiben.

Mit diesem Code ist es kein Problem den Dateipfad auszuwählen.
Code:

Private Sub marketing_pfad_open_Click()

On Error GoTo Error_Öffnen_Click
Dim fd As New FileDialog

With fd
.DialogTitle = "Wählen Sie eine Datei aus."
.DefaultExt = "*"            angegeben
                       
.InitDir = "\netzwerkpfad14_Marketing"

.Filter1Text = "Alle Dateien (*.*)"
.Filter1Suffix = "*.*"

.ShowOpen
End With

If fd.FileName = "" Then
Me!link_marketing = "(keine Datei ausgewählt)"
Else
Me!link_marketing = fd.FileName
End If


Exit_Öffnen_Click:
Exit Sub
Error_Öffnen_Click:
MsgBox Error$, , "Error_Öffnen_Clickd Sub"
Resume Exit_Öffnen_Click
End Sub
Ich will aber halt nur das Verzeichnis öffnen, muss hier aber zwingend ne Datei auswählen.
Wie lässt sich das umsetzen?
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 09:12   #2
ebs17
MOF Guru
MOF Guru
Standard

Der Verzeichnispfad ist der Anteil des Dateipfades, der vor dem letzten Backslash liegt. Die Position dieses Backslash kannst Du mit InstrRev ermitteln.

__________________

Ein freundliches Glück Auf!

Eberhard

Abfrageperformance ist kein Geheimnis
SQL ist leicht: {0}:{1}:{2}:{3}:{4}:{5}:{6}:{7}:{8}:{9}:{10}
Dein Dankeschön: DBWiki=>Spende
ebs17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 09:25   #3
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

Okay, aber ich muss mit dem Dialog IMMER eine Datei auswählen... ich will aber NUR den Pfad auswählen.
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 09:45   #4
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

nutze FileDialog mit msoFileDialogFolderPicker.

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 09:59   #5
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

Er will das ich msoFileDialogFolderPicker definiere? Er meckert immer beim kompilieren.
Oder muss ich noch irgendeinen Verweis setzen?

Geändert von mille81 (08.02.2018 um 10:04 Uhr).
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:13   #6
Joss
MOF Profi
MOF Profi
Standard

Hallo mille81,

vielleicht hilft dir das DBWiki weiter?
http://dbwiki.net/wiki/VBA_Tipp:_Dateiauswahl-Dialog_1

Gruß
Josef
Joss ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:21   #7
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

Etwas umfangreicher...

msoFileDialogFilePicker würde es schon tun wenn der Fehler nicht wäre...
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:27   #8
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

msoFileDialogFolderPicker ist eine Office-Konstante, die musst Du nicht definieren. Zeige Deinen Codeabschnitt.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:29   #9
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ja er meckert es aber nunmal an...

Code:

Private Sub marketing_pfad_open_Click()
Dim fd As New FileDialogFolderPicker
Dim sFolder As String


Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    ' Open the select folder prompt
    With fd
        If .Show = -1 Then ' if OK is pressed
            sFolder = .SelectedItems(1)
        End If
    End With
    
    If sFolder <> "" Then ' if a file was chosen
        ' *********************
        ' put your code in here
        ' *********************
    End If
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:44   #10
Joss
MOF Profi
MOF Profi
Standard

Zitat: von mille81 Beitrag anzeigen

Er will das ich msoFileDialogFolderPicker definiere? Er meckert immer beim kompilieren.
Oder muss ich noch irgendeinen Verweis setzen?


Du musst entweder die Konstante definieren (Late Binding):
Const msoFileDialogFolderPicker = 4

oder einen Verweis auf 'Microsoft Office xx.x Object Library' setzen (Early Binding).

[Edit]Im DBWiki siehst du die Late Binding-Variante.[/Edit]

Gruß
Josef

Geändert von Joss (08.02.2018 um 10:49 Uhr).
Joss ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 10:56   #11
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Du hast fd falsch definiert.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 11:01   #12
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

EDIT:
Hat geklappt!

Code:

Private Sub marketing_pfad_open_Click()
Dim fd As Object
Dim sFolder As String
Const msoFileDialogFolderPicker = 4

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    ' Open the select folder prompt
    With fd
        If fd.Show = -1 Then ' if OK is pressed
            sFolder = .SelectedItems(1)
        End If
    End With
    
    If sFolder <> "" Then ' if a file was chosen
        Me!link_marketing = sFolder
    End If

End Sub

Geändert von mille81 (08.02.2018 um 11:07 Uhr). Grund: Lösung gefunden
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 12:46   #13
Joss
MOF Profi
MOF Profi
Standard

Hallo mille81,

zu deinem Code in Beitrag#1 würde mich interessieren, welchen Verweis du gesetzt hast
oder welches Objekt du verwendest, damit
Dim fd As New FileDialog
funktioniert?

Gruß
Josef
Joss ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 14:02   #14
mille81
Threadstarter Threadstarter
MOF User
MOF User
Standard

Visual Basic for Applications
MS Access 16.0 Object Library
Microsoft DAO 3.6 Object Library
Microsoft Internet Controls
Microsoft ADO Ext. 2.8 for DLL and Security
Microsoft OLE Automation
mille81 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 14:41   #15
Joss
MOF Profi
MOF Profi
Standard

Danke für die Antwort,

aber vermutlich verwendest du das
CommonDialog-ActiveX-Control (CommonDialog Steuerelement) oder ähnliches.

Das habe ich zwar nicht, aber das macht nichts.
Hat mich nur mal grundsätzlich interessiert, was da dahintersteckt.

Gruß
Josef
Joss ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:31 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.