Predmet:Re: Linkovanje na bazu preko mreže
Evo ovo vazi samo ako su tabele linkovane na jednu bazu.
Ako imas link na vise baza jednovremeno onda imas i vise putanja pa bi kod bio malo drugaciji.
PreuzmiIzvorni kôd (Visual Basic):Function PutanjaLInka()
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
SQL = "SELECT TOP 1 Database FROM MSysObjects " _
& "WHERE Database Is Not Null"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
PutanjaLInka = Rs.Fields(0)
Else
MsgBox "Nema linkovanih tabela"
End If
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.