[ Pike79 @ 07.07.2005. 00:36 ] @
Radim fakturisanje neke robe pa mi treba automatski odredjivanje broja racuna (fakture).
Kada stavim da mi bude autonumber i na pola unosa nesto prekinem meni se desi da ostanem bez

tog broja racuna, e da mi se to ne bi desilo ne znam da li moze nekako da se namesti da mi

broj racuna ide kao autonumber a da nije autonumber polje i kako to da odradim.
HVALA!
[ Toyo @ 07.07.2005. 01:35 ] @
Sve zavisi kavu strukturu imaju tvoje tabele. U principu unosis fakturu, kada kliknes za kraj, onda skocis na dno tabele faktura, uzmes broj (to je zadnji broj fakture), uvecas ga za 1 i upises u sve stavke koje si fakturisao. Te stavke ce ti biti zadnje u tabeli, pa kada sledeci put budes fakturisao, naici ces bas na ovaj broj. Broj ces uvecati za 1 i tako to...

:)
[ Pike79 @ 07.07.2005. 15:27 ] @
Objasni mi malo kako to treba da funkcionise, nije mi bas jasno.
Kako da postavim tabele ili forme, ne znam nasta mislis!
POZ!
[ Gomatami @ 07.07.2005. 16:44 ] @
Ovaj kod stavis na FORMIN OnOpen Event:

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.brfakture = NextClan

Exit_Form_Open:
Exit Sub

End Sub



Onda napravi novi modul i u njemu sledeci kod:

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


Napomena:

brfakture - naziv polja na formi i u tabeli fakture
tbl_fakture - naziv tabele za unos faktura

E sad, ako ces fakture unositi za redom, vise njih, glupo je da otvaras formu svaki put. Onda code sa pocetka povezi sa dugmetom koje prvo ide na novi zapis a onda izvrsava pomenuti kod.