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 ...