[es] - Baza za izdavanje racuna

loko_1

Član broj: 84376
Poruke: 19
*.adsl.net.t-com.hr.

Profil

^{03.09.2006. u 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]}

^{03.09.2006. u 09:23}

medaemhco

Član broj: 107992
Poruke: 33
*.dlp28.bih.net.ba.

Profil

Re: Baza za izdavanje racuna

^{06.09.2006. u 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.

^{06.09.2006. u 19:01}