Prikazi cijelu temu 28.10.2011 18:04
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Problemi viÅ¡ekorisničkog rada
Možeš li mi molim te, ovo malo bolje objasniti.
Kod mene je problem slijedeći. za generiranje ID-a u određenoj tablici koristim slijedeći kod koji si ti na napravio:
PreuzmiIzvorni kôd (vbnet):
  1. Function SifraN()
  2. Dim DB As Database
  3. Dim SQL As String
  4. Dim Rs As Recordset
  5. Dim I As String
  6.  
  7.  
  8. Set DB = CurrentDb
  9. SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja"
  10. Set Rs = DB.OpenRecordset(SQL)
  11. If Format$(Rs.Fields(0)) <> "" Then
  12. I = Val(Rs.Fields(0))
  13. End If
  14. I = I + 1
  15. SifraN = Format(I, "000000")
  16. Rs.Close
  17. Set DB = Nothing
  18. End Function

U formi kojom se pune podaci za polje ID, Default Value je =SifraN().
I sad kada više od jednog operatora otvori na svome kompjuteru tu istu formu u svakoj se generira isti String tako da samo jedan može spremiti podatak dok se ostalima javlja greška.
Pozdrav