Temat: Przechowywanie lokalizacji katalogu - ścieżki do pliku.

Witajcie.
Potrzebuję w Accessie przechowywać ścieżkę do katalogu, gdzie eksportuje dane w PDF-ie. Zastanawiałem się, jak to zrobić? Utworzyć tabelę z polem przechowującym ścieżkę do pliku i wywoływać formularz, gdzie będę ją mógł wyedytować? A czy można w celu wskazania nowego katalogu używać jakiegoś standardowego file boxu, by nie wpisywać tego ręcznie a wskazywać myszką? Z góry dziękuję za rady... Robert

Temat: Przechowywanie lokalizacji katalogu - ścieżki do pliku.

Znalazłem coś takiego:

https://stackoverflow.com/questions/26981857/save-file-...

R

Temat: Przechowywanie lokalizacji katalogu - ścieżki do pliku.

Przechowywać ścieżkę do katalogu możesz w tabeli (np. tworzysz table której zadaniem jest przechowywanie ustawień aplikacji, o strukturze ID, Nazwa_ustawienia, Wartość - Long, String(50), String(50)) i np ustawienie o ID=1 to będzie scieżka dla PDF-ów. W VBA możesz dla tych ustawień wykorzystać Public Enum, np.:

Public Enum e_Ustawienia

  PDF_Path=1

End enum



public Function GetSetting( iSetting as e_Ustawienia) as String

  GetSetting=dlookup("[Wartosc]","tblUstawienia", "[ID]="  & iSetting)

end function

'Wartosc z funkcji możesz przypisać do np TextBox'a dla event'u OnLoad_Form

Jeżeli chodzi o okienko wybierania lokalizacji, to jest coś takiego jak FSO. Ale żeby z tego skorzystać musisz w referencjach projektu VBA dodać taką bibliotekę jak 'Microsoft Office xx.x Object Library (gdzie xx.x oznacza nr wersji office, którego używasz). Do wybierana katalogu uzyć możesz np takiej funkcji:

Public Function Select_Directory() As String

    Dim Okno As Office.FileDialog

    Set Okno = Application.FileDialog(msoFileDialogFolderPicker)

    Okno.Filters.Clear

    With Okno

        .Title = "Select directory to export data"

        .ButtonName = "Select"

        .AllowMultiSelect = False

    End With

    If Okno.Show = -1 Then

       Select_Directory = Okno.SelectedItems(1)

    End If

End Function

Pozdrawiam

Temat: Przechowywanie lokalizacji katalogu - ścieżki do pliku.

Hej,
Zrobiłem to bez dodawania biblioteki dla Access'a w poniższy sposób:

Private Sub Open_Click()



Dim OpenFileDialog As Object

Dim Path As String



Set OpenFileDialog = Application.FileDialog(3)





If OpenFileDialog.Show Then

    Path = Left(OpenFileDialog.SelectedItems(1), InStrRev(OpenFileDialog.SelectedItems(1), "\"))

    Me.Path = Path

End If



End Sub

Robert