Prikazi cijelu temu 19.01.2012 13:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Problem sa logiranjem
Sad sam sve sagledao i trebalo bi ovako da izgleda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function tkoRadiIme()
  2. If M_Oper.OperID = 0 Then
  3. UcitajOper
  4. End If
  5. tkoRadiIme = M_Oper.ImeO
  6. End Function
  7.  
  8. Function tkoRadiPrezime()
  9. If M_Oper.OperID = 0 Then
  10. UcitajOper
  11. End If
  12. tkoRadiPrezime = M_Oper.PrezO
  13. End Function
  14.  
  15. Function SifraID()
  16. If M_OperID.OperID = 0 Then
  17. UcitajOper
  18. endiif
  19. SifraID = M_Oper.OperID
  20. End Function
  21.  
  22. Function St_Kupac() As String
  23. St_Kupac = "1;Dobavljac;2;Kupac-individualni;3;kupac-veliki"
  24. End Function
  25.  
  26. Function UcitajOper()
  27. M_Oper.OperID = Forms![frmLogOn]![Korisnik].Column(0)
  28. M_Oper.KorImeO = Forms![frmLogOn]![Korisnik].Column(1)
  29. M_Oper.ImeO = Forms![frmLogOn]![Korisnik].Column(2)
  30. M_Oper.PrezO = Forms![frmLogOn]![Korisnik].Column(3)
  31. M_Oper.SifraO = Forms![frmLogOn]![Korisnik].Column(4)
  32. M_Oper.VrijemeLog = Now()
  33. 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.