zxz 07.04.2011 11:13
Predmet:Re: Provjera duplog unosa

Ovo je sad dosta profesionalnije napravljeno.
Ostalo je samo ovo:
U tabeli tblProdaja imas polje KorisnikID. Mislimda sam ga ja napravio.
Sad vidim da u tabeli tblPartneri imas izmedju ostalih polja:
OperID-->Sto bi trebalo da bude isto sto i KorisnikID
i jos:
DatumU
Brisanje

Ova tri polja podjscaju me na moje tabele.
Sad po meni ovo polje datumU treba staviti u sve tabele.
Isto tako polje brisanje ili izbrisi i ovo.
To sam vec negdje opisao cemu sluzi.

pmiroslav 07.04.2011 12:53
Predmet:Re: Provjera duplog unosa

Ispravio sam u tablicama kako si predložio i dodao sam tanlice za skladište

Tbl_TransakcijeVrsta
Tbl_Transakcije
Tbl_UlazIzlaz

Dali je to sada dovoljno da se počnu raditi forme
Prilozi:
KnjizenjeMP_04.rar (Velicina datoteke:33.01 KB)

zxz 07.04.2011 13:05
Predmet:Re: Provjera duplog unosa

Da po meni to je to.
Iako bi se naslo nesto nece remetiti nista. Moze se desiti eventualno u najgorem slucaju da su pokaze potreba za nekim poljem u nekoj tabeli ali ovo mi izgleda sasvim ok.
DatumU polje.
Bolje je da stavis u Default value umjesto date() --->Now()
Tako ces biljeziti i datum i vrijeme.
Polja:
brisanje
datumU
KorisnikId
ne onosi operater.
Ona se automatski trebaju unositi i biti zakljucana za unos od strane korisnika u svim formama.
Polje brisanje nemora biti niti vidljivo nigdje.
Ostala 2 mogu biti na dnu forme i uvijek na istom mjestu.

Sretan rad.

pmiroslav 07.04.2011 13:15
Predmet:Re: Provjera duplog unosa

Ja bih sada pio nekoj logici prvo napravio forme za upisivanje artikala u Tbl_Atikli i nakon toga Forme za upis ulaza u skladište. Jer da bi se nešto Prodavalo to prvo treba imati stanje na skladištu.

zxz 07.04.2011 13:30
Predmet:Re: Provjera duplog unosa

Da upravo se tako i radi.
Prvo odradis kodne tabele.
Unos, brisanje, izmjena.

pmiroslav 08.04.2011 09:12
Predmet:Re: Provjera duplog unosa

Da idemo malo dalje.
Kao prvo molio bi te da ako možeš ovu temu preimenuješ u recimo: '“Baza za skladište i prodaju'' jer ovaj sadašnji naslov nije baš adekvatan ovome o čemu razgovaramo.

Napravio sam par novih formi, između ostalog i formu za logiranje gdje sam koristio upute koje si negdje prije dao.
Napravi sam formu za upisivanje artikala, formu i subformu za upis ulaza u skladište.

Na frmGrupe proizvoda napravio sam dugme za brisanje podatka koje u tablici u polje Brisanje upisuje 0, pa molim da se izjasniš da li je to dobro riješenje.
Prilozi:
KnjizenjeMP_05.rar (Velicina datoteke:76.42 KB)

zxz 08.04.2011 10:54
Predmet:Re: Provjera duplog unosa

Da i ja sam tebe htio pitati da promijenim naslov teme.
Ovo sto si nakacio cu pogledati pa ti javim.

zxz 08.04.2011 11:52
Predmet:Re: Baza za skladište

Evo jedan dio da ti odgovorim. Nisam jos sve pogledao.
Imas kod na formi sifri koji pocinje:
Citat:
Private Sub Sifra_AfterUpdate()

If Me.Korisnik.Column(4) = Me.Sifra Then
Dim Db As Database
Dim Rs As Recordset
M_Oper.OperID = Me.Korisnik
M_Oper.ImeO = Me.Korisnik.Column(1)
M_Oper.PravaO = Me.Korisnik.Column(5)

Ovo sa M_Oper sam ja dodao jer sam vidio da imas klasu M_Oper
U ovom kodu mozes popuniti i ostale var. klase ako hoces.

sada trebas otvoriti novi modul (Ne Klas modul).
U njemu mozes napraviti procedure za poziv ovih var iz M_Oper
Primjer:
Function SifraID()
SifraID = M_Oper.SifraO
End Function

Ovo Vec imas vjerovatno na svim formama.
Imas polje OperID i u default value imas ovu proceduru odnosno pozvas proceduru SifraID() a ona nije postojala.
Po uzoru na ovu proceduru mozes napraviti i ostale procedure ako ti zatrebaju.

Primjer:
Ako ti treba da iscitas ime trenutnog operatora onda napravis proceduru.
Function ImeOP()
ImeOp=M_Oper.ImeO
end Function

Baravno ako si pri ilazu upisao u ovu varianlu vrijednost sa
M_Oper.ImeO = Me.Korisnik.Column(1)

Znaci ucitavas pri reganju u M_Oper.ImeO vrijednost iz druge kolone iz forme sifra me.Korisnik
Kolone se broje 0,1,2
Znaci klolona nuka je prva.

pmiroslav 08.04.2011 12:33
Predmet:Re: Baza za skladište

Napravio sam modul koji sam nazvao
modUlazniPodaci i u njega satavio

Option Compare Database
_______________________
Function SifraID()
SifraID = M_Oper.SifraO
End Function
________________________

Function ImeOp()
ImeOp = M_Oper.ImeO
End Function

_____________________
Function PrezimeOP()
PrezimeOP = M_Oper.PrezO
End Function
_________________________
Function Prava()
PravaO = M_Oper.PravaO
End Function

zxz 08.04.2011 12:39
Predmet:Re: Baza za skladište

Citat:
Private Sub Sifra_AfterUpdate()

If Me.Korisnik.Column(4) = Me.Sifra Then
Dim Db As Database
Dim Rs As Recordset
M_Oper.OperID = Me.Korisnik
M_Oper.ImeO = Me.Korisnik.Column(1)
M_Oper.PravaO = Me.Korisnik.Column(5)

Moras i ovdje napuniti one var. koje nisi.
ja vidim ovu prezimeO
Znaci treba dodati:
M_Oper.PrezimeO= Me.Korisnik.Column(Brojkolone)'Kolone se broje od 0.