Predmet:Re: Relink sa više kompjutera
Evo za ovu proceduru relinka.
PreuzmiIzvorni kôd (Visual Basic):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
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.