Prikazi cijelu temu
08.04.2011 12:52
08.04.2011 12:52
Predmet: Re: Baza za skladište
Evo jedan dio da ti odgovorim. Nisam jos sve pogledao.
Imas kod na formi sifri koji pocinje:
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.
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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.