Centar za edukaciju-BiH

Predmet:Problem sa logiranjem

---

U aplikaciji koristim formu za logiranje na kojoj imam Kod:
U modulu imamfunkcije:

I konačno na formi
Text Box: KorisnikID
Default Value =tkoRadiIme() & " " &tkoRadiPrezime()

Problem je u tome Å¡to se često desi da se u tablicu u polje KorisnikID ne upiÅ¡e podatak, a on se koristi za potpis na računu itd.

Å to bi mogao biti uzrok toga?

Slicice prilozenih slika:

---

Predmet:Re: Problem sa logiranjem

---

Pretpostavljam sta se desava.
Imas formu za logovanje gdje se korisnik identifikuje i to drzis u memorijskim lokacijama:
M_Oper.OperID
M_Oper.KorImeO
M_Oper.ImeO
M_Oper.PrezO

E sad ja nevidim da imas tabelu logovanja te da zapisujes vrime logovannja no nije to uzrok praznih polja.
Prazna polja se upisuju onda kada dodje negdje do greske u kodu jer tada ove memorijske lokacije izgube vrijednosti.
M_Oper je cini mi se moji nazivi koji su smjesteni u jednan klas modul i pored toga imamklasu za linkovanje kao i proceduru za presretanje gresaka i njihpv upis ako nisu predvidjene od programera tako da se nikako nemoze desiti ovo kao kod tebe.

Sta trebas uraditi?
Mozes jednostavno napraviti provjeru kodom:
If M_operID="" Then
Ovdje kod ili da se ponovo loguje ili ako imas tabelu logovanja ta ucita sve podatke ponovo?

Function tkoRadiIme()
if format$(M_operID)="" Then
UcitajOper
endif
tkoRadiIme = M_Oper.ImeO
End Function

Function tkoRadiPrezime()
if format$(M_operID)="" Then
UcitajOper
endif
tkoRadiPrezime = M_Oper.PrezO
End Function

Function UcitajOper()
Dim Rs as recordset
Dim Db as database

Set db=Currentdb()
set Rs =db.Openrecordset("SELECT * FROM LOGOVANJE"
itd.
ako ima tabela logovanje ako ne moras ponovo pozvati formu za logovanje.

End function

---

Predmet:Re: Problem sa logiranjem

---

Imam tabelu za logovanje, a zove se A_Logiranje

---

Predmet:Re: Problem sa logiranjem

---

Function UcitajOper()
Dim Rs as recordset
Dim Db as database

Set db=Currentdb()
set Rs =db.Openrecordset("SELECT TOP 1 *
FROM A_Logovanje
ORDER BY VrijemeLog DESC"
M_Oper.ID=Rs!KorisnikID
rs.close
set Rs=db:Openrecordset("SELECT * FROM L_Operatori WHERE OperID=" & M_OperID)
M_Oper.ImeO=Rs!Ime
M_Oper.Prezime=Rs!Prezime
M_Oper.KorIMeO=Rs!KorIme
Rs:close
set deb=Nothing
End function

---

Predmet:Re: Problem sa logiranjem

---

Pokušao sam primjeniti kako si mi rekao ali mi se kod unosa novog podatka zaustavi procedura i javlja grešku

Prilozi:

---

Predmet:Re: Problem sa logiranjem

---

Pa ja sam ovo napamet kucao bez tvojih tabela.
Mislio sam da ces popraviti.

---

Predmet:Re: Problem sa logiranjem

---

Ovo stvarno ne citam i ostalo je tu u brzini.
Čitam joÅ¡ prava korisnika i time pravim zabrane na otvaranje pojedinih formi.

Inače primjenio sam tvoj kod i za sada radi dobro jedino sada moram pratiti kako će se ponaÅ¡ati ubuduće.

---

Predmet:Re: Problem sa logiranjem

---

Radit ce to svoj posao sigurno.
Samo moras popuniti sve variable M_Oper.
Ja nisam znao sve sta ti je sta.

---

Predmet:Re: Problem sa logiranjem

---

Izgleda da ovdje ipak imamo problem.
Naime recimo da se ja ulogiram pod svojim imenom u 7:00 sati i ne izlazim iz aplikacije i sada se drugi korisnik ulogira sa drugog kompjutera u recimo 7:30 sati i on je sada zadnji na popisu logiranja.
Ja sa svom kompjuteru pišem neki dokument i u potpisu dobijem ime kolege koji se ulogirao nakon mene.

SELECT TOP 1 * FROM A_Logiranje ORDER BY VrijemeLog DESC

---

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

---