Prikazi cijelu temu 18.10.2012 12:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Provjera Link
Ako hoces vise onda ovako:

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