Private Sub Command142_Click()
DoCmd.OpenForm "radim"
Dim SQL, SQL1, SQL2, SQL3, SQL4, SQL5 As String
Dim stDocName As String
Dim konto As String
Dim aop As String
Dim godina As String
Dim period As String
Dim i As Integer
godina = "TS.godina = " & Forms![bilans aop arhiva ru
ni unos podataka bu]!Text7 - 1
period = "TS.PERIOD = '" & Forms![bilans aop arhiva ru
ni unos podataka bu]!Text24 & "'"
konto = "stavgk.konto Alike '60*'"
aop = "TS.aop = 202"
SQL = "INSERT INTO [bilans aop arhiva uspjeha] ( [redni broj], aop, [Grupa konta], Opis, zabilješka, [tekuca godina], [Predhodna godina], firma_ID, ObracinskiPeriod, godina ) "
SQL1 = SQL & "SELECT AOP_NAZIV.aop AS [redni broj], AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.Bilješka, Sum(STAVGK!Potrazuje)-Sum(STAVGK!Duguje) AS [tekuca godina], TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina "
SQL2 = SQL1 & "FROM STAVGK, AKTIV INNER JOIN ([T sintetika] AS TS INNER JOIN AOP_NAZIV ON TS.aop = AOP_NAZIV.AOP) ON AKTIV.firma = TS.firma "
SQL3 = SQL2 & "WHERE " & godina & " And " & period
Me.Visible = True
DoEvents
Me.PBar.Visible = True
For i = 1 To 100
PBar = i
Select Case i
Case 1
'aop 202
konto = "stavgk.konto Alike '60*'"
aop = "TS.aop ALIKE 202"
SQL4 = " AND " & konto & "AND " & aop & " GROUP BY AOP_NAZIV.aop, AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.Bilješka, TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina;"
SQL5 = SQL3 & SQL4
DoCmd.RunSQL SQL5
Rem Forms![Form1]![t] = SQL5
Case 2
'AOP 203
konto = "stavgk.konto like '60*'"
aop = "TS.aop = 202"
SQL4 = " AND " & konto & " AND " & aop & " GROUP BY AOP_NAZIV.aop, AOP_NAZIV.aop, AOP_NAZIV.Grupakonta, AOP_NAZIV.[Naziv polja], AOP_NAZIV.Bilješka, TS.[Predhodna godina], AKTIV.firma, AKTIV.ObracinskiPeriod, AKTIV.godina;"
SQL5 = SQL3 & SQL4
Rem Forms![Form1]![t] = SQL5
DoCmd.RunSQL SQL5
'added to show progress bar
End Select
Next i
DoCmd.Close
Requery
DoCmd.GoToRecord , , acLast
'Me.PBar.Visible = False
End Sub