Private Sub Form_Current()
Dim I As Integer
Dim Prefiks As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String, BrojStr As String
Dim Broj As Integer, DuzB As Integer

Set Db = CurrentDb
SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
Set Rs = Db.OpenRecordset(SQL)
Prefiks = Rs!Prefix
SQL = "SELECT max(Int(Mid(BrojDok,4,4))) as  Br FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
Set Rs = Db.OpenRecordset(SQL)
If Format$(Rs!Br) <> "" Then
Broj = Rs!Br
End If
Broj = Broj + 1
DuzB = 4 - Len(Format$(Broj))
For I = 1 To DuzB
BrojStr = BrojStr & "0"
Next I
BrojStr = Prefiks & BrojStr & Format$(Broj) & "/" & Format(Date, "YY")
Me.BrojDok.DefaultValue = "'" & BrojStr & "'"
Me.IDdokumenta.DefaultValue = IDD
End Sub