Prikazi cijelu temu 18.10.2012 10:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Provjera Link
Za takav slucaj dovoljno je da provjeravas samo jednu tabelu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ProvjeraLinka()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Const Imetabele = "Imejedneodtabela"
  5.  
  6. On Error GoTo Greska
  7. Set Db = CurrentDb()
  8. Set Rs = Db.OpenRecordset(Imetabele)
  9. Rs.Close
  10. Set Db = Nothing
  11. Exit Function
  12. Greska:
  13. MsgBox "Nema veze sa bazom" & vbCr & _
  14. "Provjerite dali je sever upaljen"
  15.  
  16. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.