Predmet:Re: Program za stvaranje kviza

---

Trebao si skinuti bazu iz ove teme:
http://www.icentar.ba/...t&id=9488
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.

---