Prikazi cijelu temu 23.02.2014 14:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Relink sa više kompjutera
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Relink_Godina(Godina As String)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Tdf As TableDef
  5. Dim SQL As String
  6. Dim ImeTabele As String, Putanja As String
  7.  
  8. Set Db = CurrentDb
  9. SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
  10. Set Rs = Db.OpenRecordset(SQL)
  11. Do While Not Rs.EOF
  12. ImeTabele = Rs!Name
  13. Putanja = Rs!Database
  14. Putanja_Godina Putanja, Godina
  15. Set Tdf = Db.TableDefs(ImeTabele)
  16. Tdf.Connect = ";DATABASE=" & Putanja
  17. err = 0
  18. On Error Resume Next
  19. Tdf.RefreshLink
  20.     If err <> 0 Then
  21.     MsgBox "Ne postoji baza"
  22.     Exit Function
  23.     End If
  24. Rs.MoveNext
  25. Loop
  26. MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"
  27. End Function
  28.  
  29. Function Putanja_Godina(Baza As String, LinkGodina As String)
  30. Dim Polozaj As Integer
  31.  
  32. Polozaj = InStr(1, Baza, "_be.mdb") - 4
  33. Mid(Baza, Polozaj) = LinkGodina & "_be.mdb"
  34. End Function
Evo relink za godine.
Trebalo bi jos napraviti kod za combo box iz kog ce se birati i pokretati ova procedura.
U njemu moras imati sve godine koje imaju bazu na disku.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.