Predmet:Re: provjera dali postoji tabela u bazi
PreuzmiIzvorni kôd (Visual Basic):Function ImalTabele(ImeTabele As String) As Boolean
'*******************************************
'*Ime:ImalTable (Function)
'*Sadržaj:Provjerava dali postoji tavela
'*Autor: ZXZ
'*Datum: 02 24, 2016, 07:15:14
'*Adresa: Tuzla BiH
'*Email: zxz@icentar.ba
'*Ulazni parametri:Ime tabele
'*Izlazni parametri:
'*Vraa vrijednost:True ili false
'*******************************************
Dim Db As DAO.Database
Dim Tdf As DAO.TableDef
Set Db = CurrentDb()
For Each Tdf In Db.TableDefs
If Tdf.Name = ImeTabele Then
ImalTabele = True
Exit For
End If
Next Tdf
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.