Private Sub IDdokumenta_AfterUpdate()

Dim Prefix As String

 

Select Case Me.IDdokumenta

 

Case 2 ' Primka PR

Me.Skladiste_Label.Caption = "KONTO"

Prefix = "PR*"

Me.BrojDok = BrojDokumenta(Prefix)

 

Case 3 'Predatnica GP

Me.Skladiste_Label.Caption = "KONTO"

Prefix = "GP*"

Me.BrojDok = BrojDokumenta(Prefix)

 

Case 4 'Povratnica

Me.Skladiste_Label.Caption = "KONTO"

Prefix = "PO*"

Me.BrojDok = BrojDokumenta(Prefix)

 

Case 10 'Meuskladišna otpremnica

Me.Skladiste_Label.Caption = "SKLADIÅ TE"

Prefix = "MO*"

Me.BrojDok = BrojDokumenta(Prefix)

 

End Select

End Sub

Function BrojDokumenta(Pref As String)

Dim Db As Database

Dim SQL As String

Dim Rs As Recordset

Dim i As Integer

 

Set Db = CurrentDb

 

SQL = "SELECT Max(Right(BrojDok,4)) FROM tblDokumenti"

Set Rs = Db.OpenRecordset(SQL)

If Format$(Rs.Fields(0)) <> "" Then

i = Val(Rs.Fields(0))

End If

i = i + 1

BrojDokumenta = Pref & Format(i, "0000")

Rs.Close

Set Db = Nothing

End Function