Prikazi cijelu temu 17.12.2010 21:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Autonumber se ponavlja
Pobrisi format na polju u tabeli i popravi ovo ja sam pogrijesio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Sql As String
  5. Dim IDstr As String * 8
  6. Dim IDBroj As Single
  7.  
  8. Sql = "SELECT Last(PROCES.ID_String) AS LastOfID_String " _
  9.      & "FROM PROCES"
  10.  
  11. Set Db = CurrentDb
  12. Set Rs = Db.OpenRecordset(Sql)
  13. If Rs.Fields(0) <> "" Then
  14. IDBroj = Val(Rs.Fields(0))
  15. End If
  16. IDBroj = IDBroj + 1
  17. IDstr = Format(IDBroj, "00000000")
  18. 'ovo popravi:
  19. Me.ID_String.DefaultValue = "'" & IDstr & "'"
  20. Rs.Close
  21. Set Db = Nothing
  22. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.