Function Iznos(Red As Integer, Optional Konto As String = "6%", Optional Godina As Integer = 0, _
Optional Firma As Integer = 1, Optional Period As String = "GODISNJI")
'----------------------------------------------------------
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Dim QDF As QueryDef
Dim I As Integer


If Godina = 0 Then Godina = Year(Date)
SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _
    & "FROM stavgk " _
    & "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "' AND period=" & Godina _
    & " AND firmaID=" & Firma & " AND ObracinskiPeriod='" & Period & "'" _
    & "GROUP BY Left(konto,3)" _
    & "HAVING Sum([duguje]-[potrazuje])<0 " _
    & "ORDER BY Sum([duguje]-[potrazuje])"

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)

For I = 1 To Red
Konto = Rs!sink
Rs.MoveNext
Next I
SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _
    & "FROM stavgk " _
    & "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "' AND period=" & Godina _
    & " AND firmaID=" & Firma & " AND ObracinskiPeriod='" & Period & "'" _
    & "GROUP BY Left(konto,3)" _
    & "HAVING Sum([duguje]-[potrazuje])<0"
Set QDF = Db.QueryDefs("QQ")
QDF.SQL = SQL
End Function