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

Dim R As String

Dim Link As Boolean

 

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

If Link = False Then

Putanja = Rs!Database

End If

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

    Dim iResponse As String

    R = MsgBox("Ne postoji baza na putanji:" & vbCrLf & Putanja & vbCrLf & _

    "Nova putanja?  ", vbOKCancel + vbExclamation + vbApplicationModal + vbDefaultButton1, Putanja)

          If R = vbOK Then

           Link = True

           Putanja = NadjiBazu("")

          Else

          Exit Function

          End If

       

    End If

Rs.MoveNext

MsgBox "Linkovana:" & vbCr & Godina & "_ta godina"

End Function

 

Function Putanja_Godina(Baza As String, LinkGodina As String)

Dim Polozaj As Integer

 

Polozaj = InStr(1, Baza, "_be.mdb") - 4

Mid(Baza, Polozaj) = LinkGodina & "_be.mdb"

End Function