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.