Prikazi cijelu temu 17.12.2010 19:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Autonumber se ponavlja
Prvo ID_String stavi da ima samo 8 karaktera.
Indeksiraj polje da nema duplikata
Iskljuci aktivx ili adoako ga ne koristis jer ima dao.

Stavi ovaj kod u neki modul i pokreni:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function OnisiID()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Sql As String
  5. Dim I As Single
  6. Dim IStr As String * 8
  7.  
  8. Sql = "SELECT PROCES.ID_String FROM PROCES"
  9.  
  10. Set Db = CurrentDb
  11. Set Rs = Db.OpenRecordset(Sql)
  12. Rs.MoveFirst
  13. Do While Not Rs.EOF
  14. I = I + 1
  15. IStr = Format(I, "00000000")
  16. Rs.Edit
  17. Rs.Fields(0) = IStr
  18. Rs.Update
  19. Rs.MoveNext
  20. Loop
  21. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.