Temat: Ścieżka pliku do zapisania do tabeli

Witam
Mam do przygotowania bazę pracowników niewielkiej firmy.
Mam jeden problem, w formularzu na aktualnie wyświetlanym pracowniku chciałbym umieścić ścieżkę do pliku z umową. Ponadto potrzebuję dwa przyciski jeden który otworzy plik (umowę) i drugi który otworzy lokalizację pliku.
Ścieżka do pliku powinna zapisywać się w tabeli kontakty w polu umowa.

Nie jestem specem więc grzebałem po necie i znalazłem takie coś (to już połowa drogi). To cudeńko wyświetla w oknie folder zawierający oraz ścieżkę do pliku. Z góry dziękuję za pomoc.

Private Sub Polecenie66_Click()
Dim f As Object
Dim strFile As String
Dim strFolder As String
Dim varItem As Variant

Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
For Each varItem In f.SelectedItems
strFile = Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strFile))
MsgBox "Folder: " & strFolder & vbCrLf & _
"Sciezka: " & varItem
Next
End If
Set f = Nothing
End Sub

Temat: Ścieżka pliku do zapisania do tabeli

Łukasz S.:
Witam
Mam do przygotowania bazę pracowników niewielkiej firmy.
Mam jeden problem, w formularzu na aktualnie wyświetlanym pracowniku chciałbym umieścić ścieżkę do pliku z umową. Ponadto potrzebuję dwa przyciski jeden który otworzy plik (umowę) i drugi który otworzy lokalizację pliku.
Ścieżka do pliku powinna zapisywać się w tabeli kontakty w polu umowa.

Nie jestem specem więc grzebałem po necie i znalazłem takie coś (to już połowa drogi). To cudeńko wyświetla w oknie folder zawierający oraz ścieżkę do pliku. Z góry dziękuję za pomoc.

Private Sub Polecenie66_Click()
Dim f As Object
Dim strFile As String
Dim strFolder As String
Dim varItem As Variant

Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
For Each varItem In f.SelectedItems
strFile = Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strFile))
MsgBox "Folder: " & strFolder & vbCrLf & _
"Sciezka: " & varItem
Next
End If
Set f = Nothing
End Sub

Jeżeli chcesz otworzyć folder czy plik z już posiadanej ścieżki, to nie musisz otwierać okienka. Wystarczy skorzystać z Application.FollowHyperlink [sciezka], albo z Shell

Temat: Ścieżka pliku do zapisania do tabeli

Okienko znalazłem tylko po to by zapisywało ścieżkę. Ponieważ sam jestem w tym zielony, nie wiem co dalej z tym zrobić.

Temat: Ścieżka pliku do zapisania do tabeli

Łukasz S.:
Okienko znalazłem tylko po to by zapisywało ścieżkę. Ponieważ sam jestem w tym zielony, nie wiem co dalej z tym zrobić.

Przy założeniu, że źródłem formularza jest tabela kontakty

W formularzu znajduje się pole tekstowe "umowa"

Przycisk wklejający ścieżkę do pola "umowa"

Private Sub Polecenie0_Click()

Dim f As Object

Dim strFile As String

Dim strFolder As String

Dim varItem As Variant



Set f = Application.FileDialog(3)

f.AllowMultiSelect = False

If f.Show Then

For Each varItem In f.SelectedItems

Me.umowa = varItem

Next

End If



Set f = Nothing

If Me.Dirty Then Me.Dirty = False

End Sub

Przycisk otwierający plik

Private Sub Polecenie3_Click()

If Me.umowa <> vbNullString Then

    Application.FollowHyperlink Me.umowa

Else

    MsgBox "Brak scieżki do pliku."

End If

End Sub

Przycisk otwierający folder

Private Sub Polecenie4_Click()

Dim strUmowaArray As Variant

Dim del As Long

Dim strUmowaL As Long





If Me.umowa <> vbNullString Then

    strUmowaArray = Split(Me.umowa, "\")

    del = UBound(strUmowaArray)

    strUmowaL = Len(Split(Me.umowa, "\")(del))

    Application.FollowHyperlink Mid(Me.umowa, 1, Len(Me.umowa) - Len(Split(Me.umowa, "\")(del)))

Else

    MsgBox "Brak ścieżki do folderu"

End If





End Sub

Temat: Ścieżka pliku do zapisania do tabeli

Śmiga :) Dzięki wielkie Radosław Gryciuk. Dla mnie ta część access to istny rocket science :) Widzę że nie ma przed Tobą żadnych tajemnic, oraz że są dobrzy ludzie na tym świecie. Pozdrawiam i jeszcze raz dzięki.