Predmet:Re: Provjera Link

---

Napraviš na polaznu formu neku funkciju kao
Set dbs = CurrentDb()
On Error GoTo relinkaj
Set rst = dbs.OpenRecordset("tabela1")
Set rst = dbs.OpenRecordset("tabela2")
relinkaj
LinkTableDefs

Function LinkTableDefs()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb()

For Each tdf In dbs.TableDefs
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=C:\MojaBackend.mdb"
tdf.RefreshLink
End If
Next
End Function