[es] - odredjivanje sljedećeg rednog broja.

rribaric
romano ribarić
rijeka

Član broj: 31410
Poruke: 165
*.net.htnet.hr

Profil

odredjivanje sljedećeg rednog broja.

^{08.08.2004. u 00:00 - pre 239 meseci}

Napravio sam program za amortizaciju dugotrajne imovine,a imam jedan problem gdje da nadjem primjer kako odredit redni broj zapisa a da to nije ID.Znam da se prilikom brisanja on ne resetira ali treba mi način kako da to odredim jer već sam dobio na živce.
Ako neko zna link ili ima taj dio neka mi pošalje.Hvala!

romano

Odgovor na temu

obradorriuss
Nikola Obradovic
CEO & Founder
NO SOLUTIONS
Novi Sad

Član broj: 30270
Poruke: 177
*.ptt.yu

ICQ: 329831125
Sajt: www.nosolutions.rs

Profil

Re: odredjivanje sljedećeg rednog broja.

^{12.08.2004. u 15:58 - pre 239 meseci}

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

Accommodation Belgrade |
Stočna hrana |
Srednja optičarska škola "Pašćan" |
Izrada sajtova, web i grafički dizajn

Odgovor na temu