zxz 16.01.2012 18:26
Predmet:Re: Problem sa logiranjem

Uf u pravu si potpuno.
Ja nisam razmisljao da ti imas visekorisnicki sistem.
Znaci da treba odraditi ponovno logiranja kada se to desi a ne citati u bazi.
Znaci islo bi na svim ovim procedurama iz oper.
Function tkoRadiIme()
if format$(M_operID)="" Then
docmd.Openform "Imeformezalogovanje"
endif
tkoRadiIme = M_Oper.ImeO
End Function

pmiroslav 16.01.2012 19:00
Predmet:Re: Problem sa logiranjem

Zači onda mi viÅ¡e ne treba funkcija "UcitajOper"
A avo ću isprobati sutra na poslu.

zxz 16.01.2012 19:04
Predmet:Re: Problem sa logiranjem

Da ne treba ti.
To sam gore na pocetku negdje napisao da mozes rijesiti na 2 nacina.
Jedan je bio kada izgubis podatke da ih ucitas iz tabele logovanja a drugi da se ponovo logujes.
Eto mi smo odabrali ovaj da ucitamo iz tabele.

pmiroslav 16.01.2012 20:04
Predmet:Re: Problem sa logiranjem

Evo pokuÅ¡ao sam tvoj prijedlog primjeniti na ovom primjeru koji imam kod kuće i odmah kod otvaranja aplikacije dolazi do greÅ¡ke.
"Run-time error 2486:
You can't carry out this action at the present time."
Prilozi:
LogiranjePM_2.rar (Velicina datoteke:30.02 KB)

zxz 19.01.2012 11:45
Predmet:Re: Problem sa logiranjem

Greska ti je ovdje:
If Format$(M_Oper.OperID) = "" Then
Ti si napisao:
If Format$(M_OperID) = "" Then
Vjerovatno sam ja negdje pogrijesio a ti prepisao.
M_Oper-ime objeksta
OperID-Var u objektu

zxz 19.01.2012 12:30
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.