Autonumber + posebno brojanje polja prema indeksu

  • 9 odgovora
  • 6.364 pregleda
Autonumber + posebno brojanje polja prema indeksu 08.01.2005. u 02:13 · pre 265 meseci #1
Polje Autonumber u tabeli Racuni vrsi svoj posao.Medjutim ,
zelim da posebna kolona "Rbroj" u istoj tabeli daje broj polja u zavisnosti od Indeksa:
1 (faktura), 2 (prijemnica), 3 (otpremnica) i drugih formi.
Postavio sam funkciju :

Function NextClan() As Long
Dim lngBroj As Long
lngBroj = 1 + Nz(DMax("Broj", "Racuni"), 0)
NextClan = lngBroj
End Function

I na otvaranje forme (na primer faktura):

DoCmd.GoToRecord , , acNewRec
Me.Broj = NextClan

Kako da povezem polje Indeks , tako da pri otvaranju odredjene forme
na primer faktura - Indeks=1)dobijem maksimalni redni broj za tu formu , a ne kao sad, maksimalni broj uopste. Tako bi sledeca faktura bila i brojcano sledeca, iako sam u medjuvremeno imao i nekoliko prijemnica.
Hvala,
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 10.01.2005. u 14:06 · pre 265 meseci #2
Pozdrav,

Da li nisam bio dovoljno jasan ?
Kolona Rbroj u tabeli Racuni treba da sadrzi redni broj faktura od 1 do ...., redni broj ispratnica od 1 do ...,i tako dalje u zavisnosti od forme za unos.
Na pr. imam 60 ispratnica, 10 faktura, ako otvorim novu fakturu DMAX bi dao broj 61, znaci mora da ima uslov- konkretno polje indeks koje je za fakturu 1, za prijem 2 i td.
Znaci nesto kao Selektiraj NextClan na osnovu datog indeksa.
Pomoc?
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 10.01.2005. u 15:50 · pre 265 meseci #3
Prepravi tvoju funkciju tako da joj saljes Indeks (1,2,3), ovako
Code:

Function NextClan(intIndex) As Long
'intIndex je 1,2,3 avisno sa koje forme se poziva
Dim lngBroj As Long
lngBroj = 1 + Nz(DMax("Broj", "Racuni","Index=" & intIndex), 0)
NextClan = lngBroj
End Function

Onda kd pozivas funkciju, na primer sa forme frmFakture, kazes ovako:
Code:

DoCmd.GoToRecord , , acNewRec
Me.Broj = NextClan(1)

Sa forme frmOtpremnica kazes
[/code]
Onda kd pozivas funkciju, na primer sa forme frmFakture, kazes ovako:
Code:

DoCmd.GoToRecord , , acNewRec
Me.Broj = NextClan(3)


:-)

Re: Autonumber + posebno brojanje polja prema indeksu 10.01.2005. u 16:39 · pre 265 meseci #4
Hvala Zidar,

Lepo objasnjeno i jos bolje funkcionise!

Pozdrav,

Miso
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 27.02.2005. u 12:24 · pre 263 meseci #5
A sta da stavim na Previous i Next dugme ?
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 28.02.2005. u 13:39 · pre 263 meseci #6
Ne znam kako ti je zamisljen proces dodavanja rekorda i kretanja kroz raekordset.

Previous dugme te vraca na prethodni rekord, pa ti racunanje novog broja ne treba.

Next dugme te vodi na sledeci rekord. Sad, ako je taj sledeci rekord u stvari novi rekord, trebalo bi da se pozove funkcija i da dodeli novi broj. Medjutim, ja to ne bih radio. neka ostane da se novi rekord kreira onda i samo onda kada se klikne new Record dugme.

A sta ce ti Next/Previous dugmad uopste? To sto ih Microsoft stavlja svuda, ne znaci da to tako i treba raditi. Kome u praksi treba Next/previous rekord?

:-)
Re: Autonumber + posebno brojanje polja prema indeksu 28.02.2005. u 18:31 · pre 263 meseci #7
Stvar je jednostavna.
Posto imam razlicite forme (kasa, prijem, faktura itd,), funkcija next clan mi
sa uslovom index dodeljuje novi broj za svaku formu.
Ali kad se vracam nazad sa previous ili idem napred na neki rekord sa next
nemam uslov index , i sa bilo koje forme se otvaraju isti rekordi.
Na pr. na formi faktura , odem na prethodni rekord da ga vidim, a vidim rekord prijema robe.
Znaci uslov koji smo postavili za novi broj, tj new record sa uslovom index,
slicno treba da se postavi i za previous i next dugme-kad sam u odredjenoj formi
i kliknem previous, da mi da prethodni rekord te forme , tj. prethodni broj.
Hvala
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 28.02.2005. u 22:22 · pre 263 meseci #8
Ti u stvari hoces da kad si na fromi fakture da se vide samo fakture, da ti Previous ne pokazuje nesto sto nije faktura, nego bas prethodnu fakturu. Za to treba da podesis record source za forme - dodaj
WHERE Index=sta vec odgovara svakoj formi.
Ne diraj kod na dugmadima.
Re: Autonumber + posebno brojanje polja prema indeksu 28.02.2005. u 23:16 · pre 263 meseci #9
Tako jednostavno !

Hvala ti puno !
Potpis
Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc
Re: Autonumber + posebno brojanje polja prema indeksu 06.12.2005. u 16:40 · pre 254 meseci #10
Zidar/miomirm
molim vas da mi, ako imate, uploadate neki primjer sa bazom koja koristi kreiranje rednog broja fakture, prijemnice otpremnice - razradjivano u ovom threadu. Takodjer molim pojasnjenje vezano za Previous i Next dugme.
Pocetnik sam u Accessu, a treba mi ovakvo rjesenje.
Hvala
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme