<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function Relink_Godina(Godina As String)
Dim Db As Database
Dim Rs As Recordset
Dim Tdf As TableDef
Dim SQL As String
Dim ImeTabele As String, Putanja As String

Set Db = CurrentDb
SQL = "SELECT Database,Name FROM MSysObjects WHERE Database Like '*20??_be*' ORDER By Database"
Set Rs = Db.OpenRecordset(SQL)
Do While Not Rs.EOF
ImeTabele = Rs!Name
Putanja = Rs!Database
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"
    Exit Function
    End If
Rs.MoveNext
Loop
MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"
End Function

Function Putanja_Godina(Baza As String