Prikazi cijelu temu 29.07.2013 12:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Importovanje .dbf u Access
UF dao sam ti pogresan kod.
a i ne treba to mi sluzi samo za testiranje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub LinkAllTblsinDir()
  2. '-------------------------------------------------------------
  3. Dim sTblNm As String, sPath As String, sFileNm
  4. Dim DB As DAO.Database, Tbl As Tabledef
  5. Dim ImeT As String, Prefix As String, Putanja As String
  6. Dim fd As FileDialog, Fl As Integer
  7. '-------------------------------------------------------------
  8. Prefix = "dbf_"
  9. Set DB = CurrentDb()
  10. 'Brisanje
  11. For Each Tbl In DB.TableDefs
  12. ImeT = Tbl.Name
  13. If Left(ImeT, 4) = Prefix Then
  14. DoCmd.DeleteObject acTable, ImeT
  15. End If
  16. Next Tbl
  17. 'Upis
  18. Set fd = Application.FileDialog(msoFileDialogFilePicker)
  19. With fd
  20. .AllowMultiSelect = True
  21. .Filters.Clear
  22. .Filters.Add "Baze", "*.dbf", 1
  23. .Show
  24. End With
  25. Putanja = fd.InitialFileName
  26. For Each sFileNm In fd.SelectedItems
  27.     If Right(sFileNm, 3) = "dbf" Then
  28.     sFileNm = Mid(sFileNm, Len(Putanja) + 1)
  29.     sTblNm = Prefix & Left(sFileNm, Len(sFileNm) - 4)
  30.     DoCmd.TransferDatabase acImport, "dBase 5.0", Putanja, acTable, sFileNm, sTblNm, False
  31.     End If
  32. Next sFileNm
  33. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.