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