Centar za edukaciju-BiH

Predmet:provjera dali postoji tabela u bazi

---

Pozdrav

htio bih da napravim provjeru da li je određena tabela kreirana odnono dali postoji i naÅ¡ao sam neÅ¡to na netu al nikako da mi proradi
ako neko može da mi kaže gdje griješim odnosno šta sam fulio

ovo je funkcija koja ide posebno i koja bi trebala da ocita sve tabele u bazi
Function TableExist(TableName As String) As Boolean
Dim Db As Database
Dim tbl As Recordset

On Error GoTo TableExistError

Set Db = CurrentDb
Set tbl = Db.OpenRecordset(TableName)
TableExist = True

Set tbl = Nothing

GoTo tableEnde

TableExistError:
TableExist = False
Set tbl = Nothing
GoTo tableEnde
tableEnde:
End Function

poziv u drugoj funkciji sa uslovom

If TableExists("posebni_podaci_o_placama") = True Then GoTo Kraj Else Exit Function

Predmet:Re: provjera dali postoji tabela u bazi

---

Funkcija savrseno radi, odnosno vraca vrednost true ili false u zavisnosti od toga da li tabela postoji. Pitanje je sta zelis i kako radi funkcija iz kojeje pozivas

Predmet:Re: provjera dali postoji tabela u bazi

---

to sam i ja testirao i radi ali kada stavim u nekoj drugoj funkciji da mi provjeri odnosno preskoči dalje tu ne odradi posao dokraja nego nastavi i onda na "zavrsi:" nastavi kao da uslov ne postoji ne kontam gdje grijeÅ¡im

i kad pokrene izvrÅ¡enje u "zavrsi:" normalno funkcija stane jer nemože otvoriti nepostoječi recorset

evo cijela funkcija

Function UvozPP()
Dim i As Integer
Dim RS1, rs2

SQLProvjera = "SELECT [T sintetika].aop FROM [T sintetika] WHERE ((([T sintetika].godina)=" & godina & ") AND (([T sintetika].period)='" & OP & "') AND (([T sintetika].firma)=" & Firma & ") AND "
SQLProvjeraBS = "(([T sintetika].VR)='PP')) GROUP BY [T sintetika].aop;"
Set PROVJERA = CurrentDb().OpenRecordset(SQLProvjera & SQLProvjeraBS)
If PROVJERA.RecordCount = 0 Then
'Posebni podtci
Set rs = CurrentDb().OpenRecordset("T sintetika")
With rs
For lng = 901 To 915
.AddNew
!aop = lng
![Predhodna godina] = 0
!godina = godina
!period = OP
!Firma = Firma
!VR = "PP"
.Update
Next lng
End With
rs.Close
Set rs = Nothing
If fExistTable("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function
Else
If fExistTable("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function
End If

zavrsi:
i = 901
Do While i < 916
Set rs2 = CurrentDb().OpenRecordset("select * from posebni_podaci_o_placama where id=" & i & ";")
Set RS1 = CurrentDb().OpenRecordset("select * from [T sintetika] where firma=" & rs2!Firma & " and godina=" & rs2!godina & " and period='" & rs2!ObracinskiPeriod & "' and vr='PP' and aop=" & i & ";", dbOpenDynaset, dbSeeChanges) 'Netreba uslov ovde se samo upisuje
i = i + 1
RS1.Edit
RS1![Predhodna godina] = rs2!tekuca_godina
RS1.Update
Loop
End Function

Predmet:Re: provjera dali postoji tabela u bazi

---

dodaj izmedzu Loop i End Function Exit Function

Predmet:Re: provjera dali postoji tabela u bazi

---

Posluša savjet al opet isto se dešava još koja ideja

Predmet:Re: provjera dali postoji tabela u bazi

---

kod mene ovo radi (nisam ulazio u tacnost dela zavrsi)

Predmet:Re: provjera dali postoji tabela u bazi

---

Sta je ovo
zasto ti tebaju dva isti ifovi
dane slucajno treba da bude:

Predmet:Re: provjera dali postoji tabela u bazi

---

---

Predmet:Re: provjera dali postoji tabela u bazi

---

Uf nisam ni vidio da vec ima dva posta.

---

Predmet:Re: provjera dali postoji tabela u bazi

---

možel se ovako pozvati

If ImalTabele("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function