aktivni korisnik na reportu pomocimam problem kako da iz dole datog koda (login forma) uradim funkciju za ispisivanje logovanog korisnika na formi. imam dve tabele tblKorisnici i tblLogPristupa.
u tabeli korisnici imam polja: IDKorisnika, KorisnickoIme, Password, Grupa, ImeIPrezime, DatumUnosa, VrstaPID. Login formu sam pronasao na ovom forumu ali nikako da izvucem ime korisnika na izvestaju.
evo i koda sa login forme
***************************************************************************
Option Compare Database
Public KorisnikID As Variant
Private Sub cmdIzlaz_Click()
Odgovor = MsgBox("Da li ste sigurni da zelite da izadjete?", vbQuestion + vbYesNo, "Izlaz")
If Odgovor = vbYes Then
DoCmd.Quit
Else
Exit Sub
End If
End Sub
'Ovaj deo koda proverava da li korisnik ima pravo pristupa
Private Sub cmdOK_Click()
If IsNull(Me.Korisnik) Or Me.Korisnik = "" Then
MsgBox "Morate uneti korisnicko ime.", vbOKOnly, "Potrebni podaci"
Me.Korisnik.SetFocus
Exit Sub
End If
If IsNull(Me.Lozinka) Or Me.Lozinka = "" Then
MsgBox "Morate uneti lozinku.", vbOKOnly, "Potrebni podaci"
Me.Lozinka.SetFocus
Exit Sub
End If
If Me.Lozinka.Value = DLookup("Password", "tblKorisnici", "[KorisnickoIme]='" & Me.Korisnik.Value & "'") Then
Me.Visible = False
If Grupa = "Administrator" Then 'Proverava da li je pristupio Admin
DoCmd.OpenForm "frmAdmin" 'Ako jeste otvara Admin formu
Else
If Grupa = "Korisnik" Then
DoCmd.OpenForm "frmOperater"
End If
End If
Dim IdKorisnika As Integer
IdKorisnika = DLookup("IDKorisnika", "tblKorisnici", "[KorisnickoIme]='" & Me.Korisnik.Value & "' And [Password]='" & Me.Lozinka.Value & "'")
Korisnik = IdKorisnika
Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Set db1 = CurrentDb()
Set rst1 = db1.OpenRecordset("tblLogPristupa", dbOpenDynaset)
rst1.AddNew
rst1!IdKorisnika = IdKorisnika
rst1!DatumPristupa = date
rst1!VremePristupa = Time()
rst1.Update
rst1.Close
Else
MsgBox "Uneli ste pogresnu lozinku. Molim pokusajte ponovo.", vbCritical, "Netacan unos!"
Me.Lozinka.SetFocus
End If
End Sub
'Upisuje vreme i datum odjave
Private Sub Form_Close()
Dim strSQL As String
Dim db2 As DAO.Database
Dim rst2 As DAO.Recordset
Set db2 = CurrentDb()
strSQL = "SELECT tblLogPristupa.IdPristupa, tblLogPristupa.DatumOdjave, tblLogPristupa.VremeOdjave FROM tblLogPristupa WHERE ((tblLogPristupa.IdPristupa)=(Select Max(IdPristupa)from tblLogPristupa));"
Set rst2 = db2.OpenRecordset(strSQL, dbOpenDynaset)
rst2.Edit
rst2!DatumOdjave = date
rst2!VremeOdjave = Time()
rst2.Update
rst2.Close
End Sub
*******************************************************
unapred hvala na pomoci
INTRUDER
