Function Relink_Godina(Putanja As String, Godina As String)
Dim Db As Database
Dim Rs As Recordset
Dim Tdf As TableDef
Dim SQL As String
Dim ImeTabele As String
Dim R As String
Dim Link As Boolean
Dim BrTabela As Integer, Brojac As Integer

Set Db = CurrentDb
SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
Set Rs = Db.OpenRecordset(SQL)
BrTabela = Rs.RecordCount
DoCmd.Hourglass True
Forms![frmLinkZ]!TEMPO.Visible = True
Forms![frmLinkZ]!TEMPO.min = 0
Forms![frmLinkZ]!TEMPO.max = BrTabela
Do While Not Rs.EOF
Brojac = Brojac + 1
Forms![frmLinkZ]!TEMPO.Value = Brojac
ImeTabele = Rs!Name
Putanja_Godina Putanja, Godina
Set Tdf = Db.TableDefs(ImeTabele)
Tdf.Connect = ";DATABASE=" & Putanja
Err = 0
On Error Resume Next
    Tdf.RefreshLink
        If Err <> 0 Then
         MsgBox ("Ne postoji baza na putanji:" & vbCrLf & Putanja)
              Exit Function
        End If
Rs.MoveNext
Loop
DoCmd.Hourglass False
MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"
Forms![frmLinkZ]!TEMPO.Visible = False

End Function