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