Predmet:Re: Problem sa logiranjem
Sad sam sve sagledao i trebalo bi ovako da izgleda.
PreuzmiIzvorni kôd (Visual Basic):Function tkoRadiIme()
If M_Oper.OperID = 0 Then
UcitajOper
End If
tkoRadiIme = M_Oper.ImeO
End Function
Function tkoRadiPrezime()
If M_Oper.OperID = 0 Then
UcitajOper
End If
tkoRadiPrezime = M_Oper.PrezO
End Function
Function SifraID()
If M_OperID.OperID = 0 Then
UcitajOper
endiif
SifraID = M_Oper.OperID
End Function
Function St_Kupac() As String
St_Kupac = "1;Dobavljac;2;Kupac-individualni;3;kupac-veliki"
End Function
Function UcitajOper()
M_Oper.OperID = Forms![frmLogOn]![Korisnik].Column(0)
M_Oper.KorImeO = Forms![frmLogOn]![Korisnik].Column(1)
M_Oper.ImeO = Forms![frmLogOn]![Korisnik].Column(2)
M_Oper.PrezO = Forms![frmLogOn]![Korisnik].Column(3)
M_Oper.SifraO = Forms![frmLogOn]![Korisnik].Column(4)
M_Oper.VrijemeLog = Now()
End Function
OperID je broj nije string a nisam gledao do sad.
Forma frmLogOn je stalno otvorena pa je netreba otvarati i u njoj imas sve podatke o korisniku.
E sad bez obzira na sve ovo treba naci gresku koja se pojavljuje jer kako sam naveo samo zbog greske se gube podaci u oper.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.