Login Forma pomoc

Naime, problem je sledeci nasao sam na internetu Login formu radjenu u Accessu, sada me interesuje prilikom provjere Username-a, kako da se za svakog usera otvara druga forma primjer za Demo Usera otvori se frmDemo, a za Admina pr. frmAdmin, u prilogu vam dostavljam login formu.
Nisam dobar toliko sa programiranjem pa ako mozete da mi pomognete.
Hvala unaprijed!

Potpis

Ozbiljan i odgovoran mladić

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, "Paznja"
Me.Lozinka.SetFocus
Exit Sub
End If

If Grupa = "Admin" Then 'Proverava ko je pristupio
DoCmd.OpenForm "frmAdmin" 'Otvara Admin formu
Else
If Grupa = "korisnik" Then
DoCmd.OpenForm "frmkorisnik"
End If
End If

Else

MsgBox "Uneli ste pogresnu lozinku. Molim pokusajte ponovo.", vbCritical, "Netacan unos!"
Me.Lozinka.SetFocus

End If
End Sub

nije mi jasno ovo, kako definisati, nisam neki programer! ako moze objasnjenje ili da ubacis u kod vec postavljene baze, unaprijed hvala!

Mislim da ce ti ovo pomoci.

hvala atom, to je to sto sam trazio, jos jednom hvala Puno!

Pozdravljam,



Evo ja sam otvorio ovo sa 2007 i ne radi. Da li je kompatibilno sa 2007-icom ili kod mene nesto nije ok?

I meni treba upravo ovo sto si postavio. Svaka cast!

Potpis

..::Photography::..

dosta stvari na 2007-ici ne radi... ja se vratio na staro... bas zbog toga!

Hvala, i meni je mnogo pomogao ovaj tvoj primjer

Pozdrav!

Zanima me kako na odredjeno mjesto u report automatski upisati trenutno logovanog korisnika u bazu.

Dakle, konkretno potrebno mi je da se prilikom stampanja izvjestaja automatski popuni polje korisnika koji je stampao taj izvjestaj.


Login dugme na akciju click ima sljedeći sadrzaj:

Private Sub Command6_Click()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim UserID As String
Dim Password As String

If IsNull(Text13) Or Text13 = "" Then
MsgBox "Morate odabrati korisnika.", vbOKOnly, "OBAVJEŠTENJE"
Me.Text13.SetFocus
Exit Sub
End If

If IsNull(Text15) Or Text15 = "" Then
MsgBox "Morate unijeti šifru.", vbOKOnly, "OBAVJEŠTENJE"
Me.Text15.SetFocus
Exit Sub
End If

If iBrojiPokusaje > 3 Then
MsgBox "Unijeli ste pogrešnu šifru 4 puta. Program se zatvara!", vbExclamation, "Netacan unos 3 puta"
DoCmd.Quit
End If

UserID = Me.Text13.Value 'vrijednost koju unosi korisnik
Password = Me.Text15.Value 'vrijednost koju unosi korisnik
strUser = UserID
strSQL = " SELECT * FROM tblKorisnika " & _
" WHERE tblKorisnika.Username = '" & UserID & "'" & _
" AND tblKorisnika.Password = '" & Password & "'"

Set db = CurrentDb()
'Set rst = db.OpenRecordset(strSQL)

'If rst.RecordCount = 1 Then 'znaci ako postoji trazeni korisnik

If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
Me.Visible = False 'Sakriva formu frmLogin, NE ZATVARA JE!

If Grupa = "Administrator" Then 'Proverava da li je pristupio Admin
DoCmd.OpenForm "frmOsnovnaAdmin" 'Ako jeste otvara Admin formu
Else
If Grupa = "Operater" Then
DoCmd.OpenForm "frmOsnovna"
End If

Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Set db1 = CurrentDb()
Set rst1 = db1.OpenRecordset("tbllogovanja", dbOpenDynaset)
rst1.AddNew
rst1!tblKorisnikaID = Me.Text13.Value
rst1!DatumPristupa = Date
rst1!VrijemePristupa = Time()
rst1.Update
rst1.Close
Me.Text15 = cls
End If
Else
iBrojiPokusaje = iBrojiPokusaje + 1 'dodaj vrijednost 1 za svaki pogresan pokusaj
MsgBox "Šifra je netacno unešena!", vbCritical, "Pogrešan unos"
Me.Visible = True
Me.Text15.SetFocus
Exit Sub
End If

End Sub

********

Nekad mi uspije dati ono sto zelim (uz uslov da je korisnik mijenjao neki rekord) a nekada ne.

Kreirao sam unbound polje i pokusao koristiti:

=[Korisnik] - ovo mi nekada uspije dati ono sto zelim

=CurrentUser() - ovo mi daje logovanog korisnika u Windows a to mi ne treba

= Environ("username") - ovo mi daje svaki put rezultat kao Admin


Zapetljao sam se potpuno i vise ne mogu da se snadjem (najvise zbog toga sto mi ponekad uradi bas ono sto mi treba). Ako iko moze analizirati ovaj kod i reci mi gdje grijesim bio bih veoma zahvalan.

Hvala unaprijed!

Pišem iz glave,pa ako pogrešim u sintaksi,ne zameri. Prvo napraviš novi modul i nazoveš ga recimo ModPromenljive. U njemu ukucaš. U tvom delu koda dodaš ,gde ti je Id_korisnika u stvari id u tabeli tblKorisnici (recimo redni broj korisnika).
Javna promenljiva Ulogovani će imati vrednost dokle god ne zatvoriš bazu i ne uloguješ se sa novim passwordom. Znači uvek je prisutna.
Na izveštaju samo staviš da to neko polje ima vrednost :

_{[Ovu poruku je menjao SLOJ.1973 dana 24.04.2013. u 22:28 GMT+1.Dodate zagrade]}

Potpis

Jednog dana...

Prije svega hvala na brzom odgovoru.... Odradio sam sve kako si napisao s tim da mi je jos ostalo nerijeseno

dlookup("Ime","tblKorisnika","Id_korisnika='" & ulogovani & "'" & " " & dlookup("Prezime","tblKorisnika","Id_korisnika='" & ulogovani & "'"

pokusavao sam zamijeniti ime sa username i obrisati "visak" coda & " " & dlookup("Prezime","tblKorisnika","Id_korisnika='" & ulogovani & "'" i zatvoriti zagradu ali ne ide i dalje....

struktura tabele korisnika sadrzi ove elemente

ID
username
password
Grupa

Svojevremeno sam postavio u ovoj temi primer http://www.elitesecurity.org/t416085-0#2753542

Potpis

http://zoraneremija.wix.com/eremijacv

Mislio sam da imaš i polja tipa Ime ,odnosno Prezime korisnika,što je po meni logično,jer ovako otkud znaš ko je ko po passwordu i username. Dobro,znači želiš da ti se prikaže samo username na izveštaju.Onda ovako:,a ako ti je polje ID tipa integer odnosno broj,onda stavi sledeće: i umesto public ulogovani as string stavi public ulogovani as integer ili as long.

Potpis

Jednog dana...

Zorane, iskreno ovaj tvoj primjer sam skinuo i pogledao i ranije ali je za mene previse komplikovano jer ipak sam ja jos uvijek u neku ruku pocetnik

Sloj, jos uvijek ne ide ID je bio kao Autonumber, promijenio sam ga u number (integer) ali mi i dalje prijavljuje gresku u sintaxi....

imao sam naporan dan na poslu pa mi ni mozak ne funkcionise bas najbistrije ali ne mogu da dokucim u cemu je "kvaka"

inace, u pitanju je MS Access 2003

Okaci primer.

Potpis

Jednog dana...

Nisam ranije postavljao primjere ovdje pa se i ne snalazim ali evo jedan externi link

hvala na uputama... evo ga sad okacen

Ne moze da se skine.Potrebno je da se registrujemo. Postupak postavljanja primera na elitu> Napises poruku,posaljes,u donjem desnom uglu imas dugme Upload uz poruku-kliknes pa na browse,nadjes svoj primer i posaljes.To je to.

Potpis

Jednog dana...

Ja bih da pomognem sa mojim veoma skromnim znanjem. Meni je davno trebalo nešto vrlo slično, pa mi je kolega SLOJ pomogao. Evo je baza u prilogu, pa vidi da li ti odgovara.

Covjece, ne mogu da vjerujem da sam sve probao osim ovoga



Hvala ti sto si mi pomogao da "progledam"

Sada kada i sam analiziram kod, vidim da je ovo vise nego logicno rjesenje.

Hvala mnogo svima na pomoci.... Lijep pozdrav!