Predmet:Re: Provjera Link
Za takav slucaj dovoljno je da provjeravas samo jednu tabelu.
PreuzmiIzvorni kôd (Visual Basic):Function ProvjeraLinka()
Dim Db As Database
Dim Rs As Recordset
Const Imetabele = "Imejedneodtabela"
On Error GoTo Greska
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(Imetabele)
Rs.Close
Set Db = Nothing
Exit Function
Greska:
MsgBox "Nema veze sa bazom" & vbCr & _
"Provjerite dali je sever upaljen"
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.