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


Predmet:Re: Autonumber se ponavlja
Ako ovo gore prodje kako valja onda uradi sledece:

Postavi na formi za unos polje ID_String. Mozes ga napraviti nevidljivim tako da ti sve ostane isto.
Na on Current forme stavi ovaj kod:
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. Me.ID_String.DefaultValue = IDstr
  19. Rs.Close
  20. Set Db = Nothing
  21. End Sub

Ovo ostavi ovako da par dana radi da mozes pratiti da je sve uredu.
Onda ces napraviti ovo polje u svim tabelama koje su sad vezane za ovu.
Napravit cemo kod da prenese ovaj novi kljuc.
Raskines stru rel vezu te vezes reaciono ovim kljucem i to je to.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.