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