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):Private Sub Form_Current()
Dim Db As Database
Dim Rs As Recordset
Dim Sql As String
Dim IDstr As String * 8
Dim IDBroj As Single
Sql = "SELECT Last(PROCES.ID_String) AS LastOfID_String " _
& "FROM PROCES"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(Sql)
If Rs.Fields(0) <> "" Then
IDBroj = Val(Rs.Fields(0))
End If
IDBroj = IDBroj + 1
IDstr = Format(IDBroj, "00000000")
Me.ID_String.DefaultValue = IDstr
Rs.Close
Set Db = Nothing
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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.