[ xl_kid @ 17.10.2012. 12:19 ] @
Poštovani,
imam problem sa logovanim korisnikom. Imam tabelu

tblUsers
KorisnikID int 4 0
KorisnickoIme nvarchar 50 1
Password nvarchar 50 1
Ime nvarchar 50 1
Prezime nvarchar 50 1
Pristup bit 1 1
Mesto nvarchar 25 1
Adresa nvarchar 30 1
Tel nvarchar 9 1
Mob nvarchar 10 1
Sifra nvarchar 25 1
PristupID int 4 1
DatumU datetime 8 1
VrstaPID int 4 1

Kako da iz ovog koda dobijem trenutno logovanog korisnika?


Public Sub Login()

On Error GoTo ErrorHandler:

If IsNull([txtUserName]) = True Then 'Check UserName
MsgBox "Korisnicko ime je obavezno"

ElseIf IsNull([txtPassword]) = True Then 'Check Password
MsgBox "Lozinka je obavezna"

Else

'Compare value of txtPassword with the saved Password in tblUser
If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[KorisnickoIme]='" & Me.txtUserName.Value & "'") Then
strUser = Me.txtUserName.Value 'Set the value of strUser declared as Global Variable
strRole = DLookup("PristupID", "tblUsers", "[KorisnickoIme]='" & Me.txtUserName.Value & "'") 'set the value of strRole declared as Global Variable
'DoCmd.Close acForm, "frmLogOn", acSaveNo
MsgBox "Dobrodošli nazad, " & strUser, vbOKOnly, "Dobrodošli"
DoCmd.OpenForm "Form1", acNormal, "", "", , acNormal

Else
MsgBox "Pogrešna lozinka. Molim Vas pokušajte ponovo.", vbOKOnly, "Pogrešna lozinka"
intLogAttempt = intLogAttempt + 1
txtPassword.SetFocus

End If

End If

'Check if the user has 3 wrong log-in attempts and close the application
If intLogAttempt = 3 Then
MsgBox "Nemate pristup.Molim Vas kontaktirajte administratora." & vbCrLf & vbCrLf & _
"Aplikacija ce se ugasiti.", vbCritical, "Ogranicen Pristup!"
Application.Quit
End If

ErrorHandler:

End Sub

hvala
[ SLOJ.1973 @ 17.10.2012. 12:48 ] @
Postavis ovaj kod u neki od Modula(moze i novi modul)
Code:
Public strUser As String
.Posle toga na formi pozoves tu globalnu promenljivu nesto tipa Me.TvojeTextPolje.Value= strUser
Pozdrav.
[ xl_kid @ 17.10.2012. 13:04 ] @
A ime i prezime? :)
[ SLOJ.1973 @ 17.10.2012. 13:24 ] @
Pa
Code:
DLookup("Ime", "tblUsers", "[KorisnickoIme]='" & Me.TvojeTextPolje & "'") 
,gde TvojeTextPolje ima vrednost promenljive strUser.
[ xl_kid @ 17.10.2012. 13:44 ] @
Nikako ne mogu da ga nateram da mi ispiše na formi na unbound polju. Zabagovao sam skroz :(
[ crnjak1 @ 17.10.2012. 21:29 ] @
Private Sub Command4_Click()
Username.SetFocus
If Username = "1" And Password = "1" Then
MsgBox "", vbInformation, "Korisnik"
MsgBox "", vbInformation, "Radni Panel"
DoCmd.Close
DoCmd.OpenForm "Izbor posla"
ElseIf Username = "rale" And Password = "01072008" Then
MsgBox "ADMIN!", vbInformation, "ADMIN!"
MsgBox "PUN PRISTUP AUTORIZOVAN!", vbInformation, "ADMIN PANEL"
DoCmd.Close
DoCmd.OpenForm "Izbor posla2"
ElseIf Username = "nknezevac" And Password = "0901kneban" Then
MsgBox "Ulogovani ste kao korisnik", vbInformation, "Korisnik"
MsgBox "Prijatan rad", vbInformation, "Radni Panel"
DoCmd.Close
DoCmd.OpenForm "Izbor posla"
ElseIf Username = "opovo" And Password = "2912opoban" Then
MsgBox "Ulogovani ste kao korisnik", vbInformation, "Korisnik"
MsgBox "Prijatan rad", vbInformation, "Radni Panel"
DoCmd.Close
DoCmd.OpenForm "Izbor posla"
ElseIf Username = "admin" And Password = "lic" Then
MsgBox "PAŽNJA! PRISTUPANJE LICENCI!", vbInformation, "OGRANICEN PRISTUP AUTORIZOVAN!"
MsgBox "PRISTUP AUTORIZOVAN!", vbInformation, "K PANEL"
DoCmd.Close
DoCmd.OpenForm "Licenca"
Else
MsgBox "PODACI KOJI SU UNETI NISU AUTORIZOVANI ZA DALJI RAD!"
End If
End Sub


ovo ti je moj savet da uradis
napravi formu koja ce biti pocetna
napravi polja korisnicko ime, sifra zatim 2 buttona potvrdi i odustani ili logout kako hoces
zatim onaj gornji kod dodaj na dugme potvrdi kao proceduru i to je to
bolja je varijanta teze provaljuju nego da upisujes u tabelu :)