[ loko_1 @ 03.09.2006. 09:23 ] @
Molio bih za pomoc !! Napravio sam bazu za izdavanje racuna, medjutim trebao bih pomoc, kada idem na new record da mi se u text box broj racuna upisuje sljedeci record uvecan za 1 !

Problem!

Kada stisnem na new record i unesem podatke, te opet kada idem na new record ispise mi se greska tek kada zatvorim i otvorim ponovno bazu mogu ici na sljedeci record. Zasto mi to steka nemam pojma, saljev vam u prilogu mdb file pa pogledajte.

Probao sam sljedece !!

1.)

Dim intSledeciBroj as integer
intSledeciBroj = 1 + Nz(DMax("Ime_Polja", "Ime_Tabele"), 0)

2.)

=DMax("ProductID";"Product")+1

Molio bih pomoc !



[Ovu poruku je menjao loko_1 dana 06.09.2006. u 07:52 GMT+1]
[ medaemhco @ 06.09.2006. 19:01 ] @
If IsNull(Me![KasaID]) Then
MsgBox "Unesite podatak."
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "KasaA5", acNormal, , "[KasaID] = " & [KasaID]
End If
DoCmd.GoToRecord , , acNewRec
Broj = Nz(DMax("[Broj]", "KasaPC")) + 1

Pozdrav.