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.
I tako ...
Registrovani: 61 ( probaproba, cnc3dart, stankeee, Picsel, bokipe, maliradojca, berakd, Milan Gligorijevic, todorl, alexeigovorukhin, veselinmarkovic, easyyu, StORM48, zeoN_Rider, maxxex, neshke, the_tosic, Misirac76, D@RkLoRd, Mikelly, somikg, Binary Mind, Marko_L, utopija, TommyRa, commissar, beogradpc, Džeronimo, Sapphire, tedi97, pl4stik, calexx, NoneVi, Darko2223, vladakru, Danijel Krmar, Safet Beriša, reb0rn, ybeelsec, vidan kv, neca, enko, smars, Sopocanac2, Aleksandar Ilić, PedjaZ, Legionar_, Dushko_NS, jockeal, vladastruja, coldcova, sasa.f, denter, Kiro, Aleksandar Vasic, flylord, Fica82, krza, Stexman, barcode, rdragan79 )
Redni broj racuna
Re: Redni broj racuna