Predmet:Re: Problemi višekorisničkog rada

---

Sad mi je jasno sta ti se desava.
Mogao bi jos dodati broj racunara u sifru i nebi se poklapale.

Function SifraN()
Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As String


Set DB = CurrentDb
SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja" ' SQL za najveci OrderID u tabeli prodaja
Set Rs = DB.OpenRecordset(SQL) ' podize rekordset
If Format$(Rs.Fields(0)) <> "" Then ' ako ima redova tada
I = Val(Rs.Fields(0)) ' Ucitava vrijednost polja OrderID u var. i
End If
I = I + 1 ' na tu vrijednost dodaje 1

SifraN = Format(I, "000000")
Rs.Close
Set DB = Nothing
End Function

Imam goste nocas.
Sutra cu se pozabaviti ovim ako ne rijesis.

---