Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 1 odgovor
  • 4.185 pregleda

Najnovija ↓

Baza za izdavanje racuna 03.09.2006. u 10:23 · pre 245 meseci
izmenjeno 1 put, poslednji put loko_1 06.09.2006. u 07:52
  1. loko_106.09.2006. u 07:52zapis iz teksta poruke
#1
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 !
Re: Baza za izdavanje racuna 06.09.2006. u 20:01 · pre 245 meseci #2
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.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme