Private Sub IDdokumenta_AfterUpdate() Dim Br As Integer Dim ImeKompa As String Dim ID As Integer, Poz As Integer ImeKompa = Environ(6) Poz = InStr(1, ImeKompa, "=") + 1 ImeKompa = Mid(ImeKompa, Poz) Br = DCount("[BrojDok]", "tblDokumenti", "[IDdokumenta]=Forms!frmDokumenti.IDdokumenta") + 1 ID = DLookup("ID", "tblKomjuteri", "ImeKompa='" & ImeKompa & "'") Me.BrojDok = Me.Prefix & "-" & ID & "_" & Format(Br, "0000") End Sub