Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Baza za izdavanje racuna

[es] :: Access :: Baza za izdavanje racuna

[ Pregleda: 3242 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

loko_1

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



Profil

icon Baza za izdavanje racuna03.09.2006. u 09:23 - pre 213 meseci
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]
 
Odgovor na temu

medaemhco

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



Profil

icon Re: Baza za izdavanje racuna06.09.2006. u 19:01 - pre 213 meseci
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.
 
Odgovor na temu

[es] :: Access :: Baza za izdavanje racuna

[ Pregleda: 3242 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.