Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

aktivni korisnik na reportu pomoc

[es] :: Access :: aktivni korisnik na reportu pomoc

[ Pregleda: 1078 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

xl_kid
Knjaževac

Član broj: 82420
Poruke: 157
109.93.203.*



Profil

icon aktivni korisnik na reportu pomoc25.02.2010. u 09:18 - pre 145 meseci
postovani,

imam 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
 
Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
*.148.91.0

Sajt: zoraneremija.wix.com/erem..


+47 Profil

icon Re: aktivni korisnik na reportu pomoc25.02.2010. u 09:47 - pre 145 meseci
Pogledajte deklaraciju

Public KorisnikID As Variant
....
.
.

a onda dole

Dim IdKorisnika As Integer
IdKorisnika = DLookup("IDKorisnika", "tblKorisnici", "[KorisnickoIme]='" & Me.Korisnik.Value & "' And [Password]='" & Me.Lozinka.Value & "'")
Korisnik = IdKorisnika

Mislim da je tu problem...

Da niste mozda permutovali KorisnikID u IdKorisnika ....?!?!?!? Sto se i meni cesto desava...

Ako biste napisali

KorisnikID = IdKorisnika

tada bi u svakom reportu i formi mogli da ubacite Unbound polje kojem bi mogli da dodelite

=DLookup("[KorisnickoIme]","tblKorisnici", "IDKorisnika=", & KorisnikID)
 
Odgovor na temu

xl_kid
Knjaževac

Član broj: 82420
Poruke: 157
109.93.203.*



Profil

icon Re: aktivni korisnik na reportu pomoc25.02.2010. u 10:38 - pre 145 meseci
prijavljuje mi gresku :(
INTRUDER
 
Odgovor na temu

[es] :: Access :: aktivni korisnik na reportu pomoc

[ Pregleda: 1078 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.