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

---