Prikazi cijelu temu 11.01.2012 21:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Problem sa logiranjem
Pa ja sam ovo napamet kucao bez tvojih tabela.
Mislio sam da ces popraviti.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function UcitajOper()
  2. Dim Rs As Recordset
  3. Dim Db As Database
  4.  
  5. Set Db = CurrentDb()
  6. Set Rs = Db.OpenRecordset("SELECT TOP 1 * FROM A_Logiranje ORDER BY VrijemeLog DESC")
  7. M_Oper.OperID = Rs!KorisnikID
  8. Rs.Close
  9. Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori WHERE KorisnikID=" & M_Oper.OperID)
  10. M_Oper.ImeO = Rs!FirstName
  11. M_Oper.PrezO = Rs!LastName
  12. 'M_Oper.KorImeO = Rs!KorIme ovo neznam odkle citas i dali jos sta citas.
  13. Rs: Close
  14. Set deb = Nothing
  15. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.