Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Putanja foldera ili datoteke

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Korisnici često prvo nauče dobro da rade u Excelu i spoznaju da se taj program može upotrebiti kao jednostavna baza podataka. Po pravilu, većina korisnika ubrzo spoznaje ograničenje Excela kao baze podataka i požele da migriraju podatke u neki ozbiljniji sistem, a Access je tu na dohvat ruke... Access može lako uvesti podatke iz Excela, a postoji čak nekoliko metoda kojima to možete izvesti.

Pitanje je: postoji li neki univerzalni format koji možete upotrebiti da izvezete podatke iz Excela, a zatim da ih uvezete u bilo koji program za rad sa bazama podataka? Kao zgodan se nameće CSV format (comma-delimited format) koji je, zapravo, obična tekstualna datoteka u kojoj su slogovi razdeljeni redovima, a polja zapetama u jednom redu.

Ovaj format mogu uvesti gotovo svi programi za rad sa bazama podataka. Problem koji se može javiti je na sistemskom nivou - ako npr. "živite" u Americi, polja će biti odvojena zapetama, ali ako "živite" u Evropi, polja će biti odvojena znakom tačka-zarez (;). Drugim rečima: ne možete uvesti datoteku generisanu na računaru sa američkim regionalnim podešavanjima u program koji radi na Windowsu podešenim na neku od zemalja Evrope (uključujući i Srbiju).

Rešenje je dvojako. Prebacite privremeno Windows na drugi region, odnosno podesite ga isto kao platformu na kojoj se nalazi program koji treba uveze podatke iz CSV. Kao privremeno rešenje, možete u CSV datoteci potražiti znak "," i zameniti ga sa ";", ali ćete u ovom destruktivnom postupku izgubiti svako pojavljivanje znaka "," i ";" u tekstualnim poljima. Kada uvezete podatke u bazu podataka, ponovite postupak u obrnutom smeru: ako ste ranije zamenili sve znakove "," u ";", potražite u tekstualnim poljima baze podataka sve ";" i zamenite ih sa ",".

Ovaj dugi uvod nas dovodi do suštine naslova. Korisnici ponekad imaju potrebu da prebacuju preiodične izveštaje u Access i smeštaju ih bazu podataka, gde mogu da iskoriste puni potencijal SQL jezika, odnosno ogromne mogućnosti formatiranja izveštaja. U sledećem listingu ćete pronaći praktični primer funkcije koja otvara dijalog Browse za odabiranje putanje do foldera ili datoteke. Rezultat funkcije možete sačuvati u tabeli, kako biste rasteretili korisnika da svaki put odabira istu putanju.

' Funkcija odabira putanje foldera ili datoteke
'
Function GetFile(sFile As String) As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
  With .Filters
    .Clear
    .Add "Datoteka za uvoz", "*.csv", 1
    ' Naredno nije neophodno
    .Add "Sve datoteke", "*.*", 2
  End With
  .FilterIndex = 1
  .AllowMultiSelect = False
  .Title = "Gde je " & sFile & "?"
  .ButtonName = "U redu"
  .Show
  If .SelectedItems.Count > 0 Then
    GetFile = .SelectedItems(1)
  End If
End With
End Function

Parametri funkcije FileDialog znače sledeće:

msoFileDialogFilePicker - odabir datoteke
msoFileDialogFolderPicker  - odabir foldera
msoFileDialogOpen - odabir datoteke za učitavanje
msoFileDialogSaveAs - odabir datoteke za snimanje