Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
mit BrowesFolder Pfad speichern und mit Hyperlink aktivieren
zurück: Speichern von geänderten Einträgen verhindern. weiter: Hilfe bei Datensatzauswahl im 2. Unterformular 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
hunderonny
Neuling


Verfasst am:
05. Mai 2005, 12:44
Rufname:
Wohnort: 46459 Rees


mit BrowesFolder Pfad speichern und mit Hyperlink aktivieren - mit BrowesFolder Pfad speichern und mit Hyperlink aktivieren

Nach oben
       

Hallo,

ich habe ein kleines Problem.

Ich lese den Pfad zu einer Datei mit BrowseFolder aus. Der Pfad wird in einem Feld (Pfad) gespeichert. Das Feld (Pfad) hat den Typ Hyperlink.
Ich will damit erreichen, dass der Benutzer ein Dokument suchen kann und das der Pfad dann gespeichert wird. Wenn man dann später auf das Feld (Pfad) klickt soll automatisch das Dokument geöffnet werden.
Das Suchen und das Speichern klappt gut. Nur der Link, so das das Dokument geöffnet wir funktioniert nicht so ganz. Beim Klicken wird in der Symbolleiste die Hyperlinknavigation angezeigt. Gehe ich allerdings hin und kopiere den Pfad aus Pfad, lösche dann den Eintrag und kopiere diesen wieder zurück klappt es (warum?).
Access 2000+2003

Zum anderen habe ich den Pfad voreingestellt. Auch diese funktioniert nicht so richtig. Er füngt immer von ROOT Verzeichnis an.
Für eine Hilfe währe ich sehr dankbar.
Im Anhang habe ich das Modul und den UserTeil angehängt
Gruß
Hunderonny
Code:
Option Compare Database
Option Explicit

' Function BrowseFolder
' #####################
' Wie GetFolder, nur daß ein Folder vorselektiert werden kann.
' Klappt auch mit Windows NT

' Neuere Version BrowseFolder gepostet von Tilo Schinke Schinke@alfasystem.com
' Ich nehme an, daß dies eine Adaption von Terry Kreft und Dan Ashish ist ...
'
' Die Box wurde mit absoluten Werten (siehe Function BrowseCallbackProc)

' Const XKoordinate& = 240 ' in Pixeln
' Const YKoordinate& = 220 ' in Pixeln
' so einigermaßen zentriert, man muß halt die passenden Werte finden ...
'
' Parameters: sSelPath : Set pre-selecting folder
' sTitle : Set the dialog's prompt string
'
' Return: a String with the select Path or an empty string when canceled
'
' Description: Shows the Browse For Folder dialog, pre-selecting the
' folder specified by sSelPath.
' If successful, returns the selected folder's full path,
' returns an empty string otherwise.
'
'-----------------------------------------------------------------------------
Public Function BrowseFolder(Optional sSelPath As String = "C:\", _
                             Optional sTitle As String = _
                          "Bitte wählen Sie ein Verzeichnis aus...") As String
    Dim bi As BROWSEINFO
    Dim pidlRtn As Long
    Dim lpSelPath As Long
    Dim sPath As String * MAX_PATH

    While Right(sSelPath, 1) = vbNullChar
        sSelPath = Left(sSelPath, Len(sSelPath) - 1)
    Wend
    If Len(sSelPath) > 3 Then
        While Right(sSelPath, 1) = "\"
            sSelPath = Left(sSelPath, Len(sSelPath) - 1)
        Wend
    End If
    sSelPath = sSelPath & vbNullChar
    With bi
        ' The desktop will own the dialog
        .hOwner = 0
        ' The desktop folder will be the dialog's root folder.
        ' SHSimpleIDListFromPath can also be used to set this value.
        .pidlRoot = 0
        ' Set the dialog's prompt string
        .lpszTitle = sTitle
        ' Obtain and set the address of the callback function.
        ' Note: the AddressOf operator is in Access 97 not available,
        ' therefore use the function AddrOf to set the address of
        ' the callback function.
        .lpfn = AddrOf("BrowseCallbackProc")
        ' Now the fun part, allocate some memory for the dialog's
        ' selected folder path (sSelPath), blast the string into the allocated
        ' memory, and set the value of the returned pointer to lParam.
        ' (checking LocalAlloc's success is omitted for brevity)
        ' Note: VB's StrPtr function won't work here because a variable's
        ' memory address goes out of scope when passed to SHBrowseForFolder.
        lpSelPath = LocalAlloc(LPTR, Len(sSelPath))
        MoveMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath)
        lpSelPath = LocalAlloc(LPTR, Len(sSelPath))
        MoveMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath)
        .lParam = lpSelPath
    End With
    pidlRtn = SHBrowseForFolder(bi)
    If pidlRtn Then
        ' Get the path from the selected folder's pidl returned
        ' from the SHBrowseForFolder call (rtns True on success,
        ' sPath must be pre-allocated!)
        If SHGetPathFromIDList(pidlRtn, sPath) Then
            ' Return the path
            BrowseFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
        End If
        ' Free the memory the shell allocated for the pidl.
        Call CoTaskMemFree(pidlRtn)
    End If
    ' Free our allocated string pointer
    Call LocalFree(lpSelPath)
End Function

'  USERTEIL #####################
Private Sub Befehl241_Click()
    Hinweis = "Bitte wählen Sie:"
    Me!Pfad = GetDirectory(GetActiveWindow, 1, Hinweis)
    Antwort = Me!Pfad
    If Len(Nz(Me!Pfad)) = 0 Then
        Me!Pfad = "(kein)"
    End If
    MsgBox Antwort
End Sub
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 Tabellen & Abfragen: werte speichern 2 accessnap 515 09. Jan 2007, 17:16
Gast werte speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Hyperlink -> Abfrage -> Listenfeld 1 Arkain 2555 28. Okt 2006, 03:16
derArb Hyperlink -> Abfrage -> Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Hyperlink auf lokale Datei 1 nathy84 2257 03. Okt 2006, 18:13
Gast Hyperlink auf lokale Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Netzwerkabfragen in Access Verarbeiten und speichern 2 Fischler 612 11. Sep 2006, 11:04
Gast Netzwerkabfragen in Access Verarbeiten und speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Grafik auf SQL-Server speichern! Wie? 0 bommel007 711 20. Jul 2006, 13:37
bommel007 Grafik auf SQL-Server speichern! Wie?
Keine neuen Beiträge Access Tabellen & Abfragen: Datennsatz nicht speichern 0 Machnik 597 31. Mai 2006, 12:41
Machnik Datennsatz nicht speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in Tabelle speichern 2 Gast 599 07. Mai 2006, 19:44
grimsel Wert in Tabelle speichern
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Pfad für vernüpftes OLE-Objekt 1 chris1337 1631 18. Apr 2006, 16:08
Willi Wipp Pfad für vernüpftes OLE-Objekt
Keine neuen Beiträge Access Tabellen & Abfragen: Relativer Pfad für verknüpftes OLE-Feld 1 chris1337 3121 13. Apr 2006, 12:03
rita2008 Relativer Pfad für verknüpftes OLE-Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbank erstellen und eingegeben Daten als Datei speichern 1 Peter1607 767 06. März 2006, 22:30
stpimi Datenbank erstellen und eingegeben Daten als Datei speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in Feld speichern 1 mädibo 603 20. Jan 2006, 22:06
taomik Wert in Feld speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Access zerstoert beim speichern meine Abfrage und stuerzt ab 1 Timbo 811 11. Jan 2006, 05:51
Timbo Access zerstoert beim speichern meine Abfrage und stuerzt ab
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks