[ xl_kid @ 25.02.2010. 09:18 ] @
| 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 |