Predmet:Re: Relink sa više kompjutera
Evo prepravljena procedura pa probaj.
PreuzmiIzvorni kôd (Visual Basic):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
Loop
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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.