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