Function NextClan() As Long
Dim lngBroj As Long
lngBroj = 1 + Nz(DMax("brojkart", "karton"), 0)
NextClan = lngBroj
End Function
Ovu funkciju stavi ispod OPTION COMPARE DATABASE
"brojkart" je polje tipa NUMBER (primary key) a kod tebe je taj tvoj ID, a "karton" je ime tabele u kojoj se nalazi to polje! Znaci te 2 vrednosti prvo zameni sa imenom tvog polja i tvoje tabele, zatim ide sledece:
Private Sub Form_Open(Cancel As Integer)
If prezime = IsNull(prezime) Then
DoCmd.GoToRecord , , acLast
Exit Sub
End If
If ime = IsNull(ime) Then
DoCmd.GoToRecord , , acLast
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
Me.brojkart = NextClan
End Sub
Ovo ti je CODE koji meni startuje forma za karton pacijenata, dakle prvo proverava da li postoji upisano prezime i ime u karton, ukoliko nema vraca ti zapis na poslednji (tj. taj koji je prazan) pa ti da da popunjavas. Mozes vrsiti tako razne pretrage ali isto tako mozes i izbaciti uslove koje sam ja zadao u svojo formi. Nadam se da ces se snaci a u slucaju nekih nejasnoca baci mi Email, ili posalji PP (private message)
Pozdrav
Potpis