Predmet:Re: Program za stvaranje kviza
Trebao si skinuti bazu iz ove teme:
http://www.icentar.ba/...t&id=9488
Citat:Ako ti je u "zivotu" jos onaj program koji sam ti poslao, zamolio bih te da mi prema njemu (naravno ako imas vremena i volje) napravis modul i posaljes.
ovo neznam jeli se odnosi na meni i ako jeste na koju bazu.
Ovaj kod se nalazi pri izlazu iz polja sifra na formi logovanje.
da napomenem da imam modul Klas pod imenom M_Oper i u njemu variable:
OperID itd.. sto je i opisano sta je sta.
Klas modul cuva podatke sve dok se ne izadje iz app. a podaci se upisuju pri izlazu iz polja sifra iz comba Korisnik iz kolona 0,1,2,3,4.
Mozes i pogledati podatke u rowsorcw Query-u ovog comba.
Private Sub Sifra_Exit(Cancel As Integer)
M_Oper.OperID = Me.Korisnik.Column(0)
M_Oper.ImeO = Me.Korisnik.Column(1)
M_Oper.PrezO = Me.Korisnik.Column(2)
M_Oper.SifraO = Me.Korisnik.Column(3)
M_Oper.PravaO = Me.Korisnik.Column(4)
M_Oper.VrijemeLog = Now()
AktivniOper
End Sub
Pored ovoga upisuje se i vrijeme kada se korisnik logovao te na kraju se poziva procedura za upis imena korisnika u meni bar.
evo te procedure
Function AktivniOper()
CommandBars("Glavni_Meni").Controls(6).Caption = "Operator: " & M_Oper.ImeO
End Function
Naredba je commandBars(ImeKomandnogbara.RedniBrojKontrolenanjemu.Caption=
Upisuje rijec Operato: I vrijednost iz Memorijeske klase M_Oper.Imeo.
nadam se da sam uspio ako ne pitaj dalje.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.