[ Pike79 @ 29.08.2005. 15:11 ] @
Ovo je u neku ruku nastavak iste teme, samo sa malo drukcijim sada problemom, ali se radi o istoj bazi!

*** Dodao Zidar:
Originalna tema bila je: http://www.elitesecurity.org/tema/105090

Naime imam neku koncepciju kako bi izgledala ova moja baza, ali imam problem pri unosenju podataka u formu
frmPrimljeniRacuni. Desava se to da mi za svaku sifru repromaterijala izbacuje podatke samo od sifre materijala broj 1.
Pri unosenju prodaje kroz formu frmFakturisanje sve radi kako treba iako se podaci povlace iz iste tabele tblrepromaterijal.
Neznam od cega ovo zavisi i da li moze to da se resi na neki nacin?
HVALA PUNO!
P.S. Pozivam sve koji imaju neku ideju da nastavimo sa ovom aplikacijom.

[Ovu poruku je menjao Zidar dana 31.08.2005. u 19:52 GMT+1]
[ miomirm @ 29.08.2005. 22:14 ] @
Moze ovako :

Private Sub SifraRepromaterijala_AfterUpdate()
Dim strFilter As String
' Evaluate filter before it's passed to DLookup function.
strFilter = " SifraArtikla = " & Me!SifraRepromaterijala

Me!FakturnaCena = DLookup("CenaRepromaterijala", "tblRepromaterijal", strFilter)
Me!PDV = DLookup("[StopaPDV]", "tblRepromaterijal", strFilter)
Me!ProdajnaCena = DLookup("[ProdajnaCena]", "tblRepromaterijal", strFilter)
End Sub

U tvojoj fukciji ne nalazi polje SifraArtikla.

Pozdrav
[ Pike79 @ 30.08.2005. 01:17 ] @
Nisam te bas razumeo, ne znam gde ja sada da postavim ovaj tvoj cod?
Ako ti nije tesko ubaci ti ovo gde treba ili mi napisi sta da radim!
HVALA!
[ miomirm @ 30.08.2005. 01:45 ] @
Kao sto pise - na AfterUpdate Event - SifraRepromaterijala
[ Pike79 @ 31.08.2005. 00:14 ] @
Ovo radi! Videcemo sta ce dalje da zafali!
Hvala ti puno!
VELIKI POZDRAV!
[ Pike79 @ 31.08.2005. 01:19 ] @
Evo vec sam stvorio novo pitanje, a to je:
Da li moze i kako ako moze da se umesto broja fakture u formi frmFakturisanje koji je sada autonumber da podesi neka funkcija koja ce uvek uvecavati novu fakturu za jedan broj vise, a da to polje ne bude autonumber?

Ovaj problem sa nekoliko puta pokusavao da resim i postavljao pitanja ali nista nije bilo!
Nadam se da neko zna odgovor na ovo pitanje?
P.S. Mozda sam malo zakomplikovao pitanje, SORRY!!!
[ bdrago @ 31.08.2005. 06:29 ] @
Bilo je vec na forumu. Pretrazi stare teme.
[ mkaras @ 01.09.2005. 04:04 ] @
On Wed, 31 Aug 2005 02:19:33 CEST, "Majdanpek (draki.mpek)" wrote:


Citat:

Evo vec sam stvorio novo pitanje, a to je:

Da li moze i kako ako moze da se umesto broja fakture u formi frmFakturisanje koji je sada autonumber da podesi neka funkcija koja ce uvek uvecavati novu fakturu za jedan broj vise, a da to polje ne bude autonumber?



Moze. Jedna se tabela koristi za cuvanje broja poslednje fakture. Kada

zatreba novi broj uzme se iz tabele, uveza za jedan i ponovo upise u

tabelu. To radi u momentu kada si siguran da ces snimiti fakturu da ne

bi doslo do preskakanja brojeva
[ miomirm @ 01.09.2005. 17:10 ] @
Pogledaj Zidarev odgovor na moje pitanje :

[url]http://www.elitesecurity.org/tema/87761[/url]

Pozdrav
[ Pike79 @ 02.09.2005. 01:20 ] @
Pogledao sam sta je Zidar dao kao primer i primenio ali mi nije nesto funkcionisalo, verovatno ne znam kako to da izvedem, pa ako neko to moze neka ubaci u primera 1.04.mdb.zip koji vec postoji na ovoj stranici.
Jos nesto kod zastite recorda, u formi u kojoj unosimo podatke sada na ovom primeru ne moze da se izmeni record, ali ne bi trebalo ni da moze da se brise niti da se dodaje nova stavka pri fakturisanju! Da li neko moze da resi i ovaj po meni malo tezi problem (u skladu sa vestinom i poznavanja ACCESS-a)
HVALA!
VELIKI POZDRAV!
[ Zidar @ 02.09.2005. 14:10 ] @
Novi broj fakture, da ne bude Autonumber:

1) U tabeli tblFakture polje SifraFakture treba da bude Number, Long Integer a ne Autonumber. Da bi ovo promenio, moras prvo da ubijes relaciju sa tblFakture na tblFaktureDetalji. Dakle, ubij relaciju, promeni tip polja. Ne zaboravi da ponovo sagradis relaciju.

2) Kreiraj novi modul, modLocalFunctions i ubaci ovu fukciju:
Code:

Function NoviBrojFakture() As Long
'Namena: izracunavanje sledeceg broja za SifraFakture
'Poziva se sa Form_BeforeUpdate eventa ssa forme frmFakturisanje
'Napomena: ne mora da se koristi funkcija, moze izraz da se otkuca i direktno u before_Update
'Pozivanje: me!SifraFakture=NoviBrojFakture()

NoviBrojFakture = 1 + Nz(DMax("SifraFakture", "tblFaktura"), 0)


End Function


3) U formi frmfakturisanje, uesi sledeci kod:
Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
'Odredi novi broj fakture:
Me!SifraFakture = NoviBrojFakture()
'Novi broj fakture videse se kad udjes u subformu.
End Sub


To bi trebalo da resi taj problem.

:-)
[ Pike79 @ 03.09.2005. 22:27 ] @
Ovo super radi Zidar!

Neznam kako da mi kada udjem u formu frmFakturisanje da mi fokus bude odmah na novu fakturu?
[ miomirm @ 05.09.2005. 12:46 ] @
U On Open Event Forme stavi:
DoCmd.GoToRecord , , acNewRec
GDEHOCES.SetFocus
[ Zidar @ 06.09.2005. 14:01 ] @
miomirm prvao kaze :-)

Ali, sta ce ti fokus na polju FaktturaId ako je to sto hoces? To polje se izracunava i ti ne treba da ga menjas. trebalo bi cak da bude Locke=yes i da upopste ne dobija fokus (AutoTab=No). Fokus treba da ti bude na nekom polju gde ti unsoi informaciju, na primer Kupac/Dobavljac. To je prvo polje gde ces ti da das neku informaciju.
[ Pike79 @ 06.09.2005. 15:10 ] @
Pa meni i ne treba focus na polje ID nego na polje datum ali ne znam kako da to namestim? ja sam pitao uopste kako da namestim focus na neko polje koje zelim da mi bude u focusu.
Ako znas mozes mi napisati kako to da izvedem?
HVALA!
[ izonic @ 06.09.2005. 18:25 ] @
me.ImePolja.SetFocus
[ Pike79 @ 08.09.2005. 22:37 ] @
Hteo bih da napravim izvestaj tako da izgleda kao trgovaska knjiga (TK), ali imam taj problem sto ne znam kako da mi ne prikazuje sve stavke fakture i primljenih racuna, nego samo konacan iznos fakture i konacan iznos primljenog racuna, kao i uplate na ziro racun sto predstavljaju glavne elemente za sastavljanje jedne TK?
HVALA!
Pozdrav!
P.S. Nadam se da me neko razume sta hocu da uradim!!!