Prikazi cijelu temu 06.03.2014 19:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Relink sa više kompjutera
Evo za ovu proceduru relinka.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Relink_Godina(Putanja As String, 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
  7. Dim R As String
  8. Dim Link As Boolean
  9. Dim BrTabela As Integer, Brojac As Integer
  10.  
  11. Set Db = CurrentDb
  12. SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
  13. Set Rs = Db.OpenRecordset(SQL)
  14. BrTabela = Rs.RecordCount
  15. DoCmd.Hourglass True
  16. Forms![frmLinkZ]!TEMPO.Visible = True
  17. Forms![frmLinkZ]!TEMPO.min = 0
  18. Forms![frmLinkZ]!TEMPO.max = BrTabela
  19. Do While Not Rs.EOF
  20. Brojac = Brojac + 1
  21. Forms![frmLinkZ]!TEMPO.Value = Brojac
  22. ImeTabele = Rs!Name
  23. Putanja_Godina Putanja, Godina
  24. Set Tdf = Db.TableDefs(ImeTabele)
  25. Tdf.Connect = ";DATABASE=" & Putanja
  26. Err = 0
  27. On Error Resume Next
  28.     Tdf.RefreshLink
  29.         If Err <> 0 Then
  30.          MsgBox ("Ne postoji baza na putanji:" & vbCrLf & Putanja)
  31.               Exit Function
  32.         End If
  33. Rs.MoveNext
  34. Loop
  35. DoCmd.Hourglass False
  36. MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"
  37. Forms![frmLinkZ]!TEMPO.Visible = False
  38.  
  39. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 06.03.2014 19:48 od strane zxz.