Function SifraTrans()
Dim db As Database
Dim SQL As String
Dim rs As Recordset
Dim I As Integer

Set db = CurrentDb
SQL = "SELECT Max(Right(TransakcijaID,4)) FROM tblTransakcije"
Set rs = db.OpenRecordset(SQL)
If Format$(rs.Fields(0)) <> "" Then
I = Val(rs.Fields(0))
End If
I = I + 1
SifraTrans = Right(Year(Date),2) & Format(I, "0000")
rs.Close
Set db = Nothing
Kraj:
End Function