Prikazi cijelu temu 24.02.2016 20:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: provjera dali postoji tabela u bazi
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ImalTabele(ImeTabele As String) As Boolean
  2. '*******************************************
  3. '*Ime:ImalTable (Function)
  4. '*Sadržaj:Provjerava dali postoji tavela
  5. '*Autor:     ZXZ
  6. '*Datum:      02 24, 2016, 07:15:14
  7. '*Adresa: Tuzla BiH
  8. '*Email:     zxz@icentar.ba
  9. '*Ulazni parametri:Ime tabele
  10. '*Izlazni parametri:
  11. '*Vraa vrijednost:True ili false
  12. '*******************************************
  13.  
  14. Dim Db As DAO.Database
  15. Dim Tdf As DAO.TableDef
  16.  
  17. Set Db = CurrentDb()
  18.  
  19. For Each Tdf In Db.TableDefs
  20. If Tdf.Name = ImeTabele Then
  21. ImalTabele = True
  22. Exit For
  23. End If
  24. Next Tdf
  25.  
  26. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.