Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
09.08.2003. MDIChild forma - pomoc
03.11.2003. Graficki login?
15.01.2004. Login forma, provjeta lozinke i username
03.11.2004. Source za stranicu u php-u
28.03.2005. Forma zasnovana na upitu???
12.09.2005. Forma preko taskbara
28.12.2005. Kako se ulogovati na bazu onCreate
23.03.2006. ALT+F4 zatvarnja programa
19.09.2006. mreza izmedju xp pro i xp home

Navigacija

Brisanje liste

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

Login Forma pomoc

[es] :: Access :: Login Forma pomoc

Strane: 1 2

[ Pregleda: 10659 | Odgovora: 20 ] > FB > Twit

Autor

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.178.*

Profil

Login Forma pomoc

^{05.11.2008. u 17:45 - pre 188 meseci}

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!

Code:
http://www.anonino.com/login.mdb

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Login Forma pomoc

^{06.11.2008. u 07:06 - pre 188 meseci}

Code:
Docmd.OpenForm "frm" & UserName

Ozbiljan i odgovoran mladić

Odgovor na temu

atom
Network

Član broj: 4158
Poruke: 46
195.178.47.*

Profil

Ovako je kod mene reseno

^{06.11.2008. u 11:02 - pre 188 meseci}

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

Odgovor na temu

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.155.*

Profil

Re: Login Forma pomoc

^{06.11.2008. u 16:06 - pre 187 meseci}

Citat:

atom: 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!

Odgovor na temu

atom
Network

Član broj: 4158
Poruke: 46
195.178.47.*

Profil

Re: Login Forma pomoc

^{07.11.2008. u 07:56 - pre 187 meseci}

Mislim da ce ti ovo pomoci.

Prikačeni fajlovi

LOZINKA.zip

LOZINKA.zip - 32.56k

Odgovor na temu

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.134.*

Profil

Re: Login Forma pomoc

^{07.11.2008. u 09:25 - pre 187 meseci}

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

Odgovor na temu

Okram_marko
Travnik

Član broj: 15736
Poruke: 445
77.221.7.*

Profil

Re: Login Forma pomoc

^{02.01.2009. u 00:48 - pre 186 meseci}

Pozdravljam,

Citat:

atom: Mislim da ce ti ovo pomoci.

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!

..::Photography::..

Odgovor na temu

AnoninO
Faruk Pasic
BIH, Sarajevo

Član broj: 78773
Poruke: 66
92.36.158.*

Profil

Re: Login Forma pomoc

^{08.01.2009. u 00:41 - pre 185 meseci}

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

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{21.04.2013. u 21:24 - pre 133 meseci}

Citat:

atom:
Mislim da ce ti ovo pomoci.

Hvala, i meni je mnogo pomogao ovaj tvoj primjer

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{24.04.2013. u 19:29 - pre 133 meseci}

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!

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Login Forma pomoc

^{24.04.2013. u 20:38 - pre 133 meseci}

Pišem iz glave,pa ako pogrešim u sintaksi,ne zameri. Prvo napraviš novi modul i nazoveš ga recimo ModPromenljive. U njemu ukucaš

Code:
public ulogovani as string

. U tvom delu koda

Code:
If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
Me.Visible = False

dodaš

Code:
ulogovani = DLookup("Id_korisnika", "tblKorisnika", "[Password]='" & Me.Text15.Value & "'")

,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 :

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

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

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

Jednog dana...

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{24.04.2013. u 21:12 - pre 133 meseci}

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

Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
212.178.233.*

Sajt: zoraneremija.wix.com/erem..

+47 Profil

Re: Login Forma pomoc

^{24.04.2013. u 21:22 - pre 133 meseci}

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

http://zoraneremija.wix.com/eremijacv

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Login Forma pomoc

^{24.04.2013. u 21:22 - pre 133 meseci}

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:

Code:
dlookup("username","tblKorisnika","ID='" & ulogovani & "'")

,a ako ti je polje ID tipa integer odnosno broj,onda stavi sledeće:

Code:
dlookup("username","tblKorisnika","ID=" & ulogovani )

i umesto public ulogovani as string stavi public ulogovani as integer ili as long.

Jednog dana...

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{24.04.2013. u 21:51 - pre 133 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Login Forma pomoc

^{25.04.2013. u 07:00 - pre 133 meseci}

Okaci primer.

Jednog dana...

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{25.04.2013. u 12:59 - pre 133 meseci}

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

hvala na uputama... evo ga sad okacen

_{[Ovu poruku je menjao Miki2013 dana 25.04.2013. u 15:03 GMT+1]}

Prikačeni fajlovi

Primjer.rar

Primjer.rar - 193.9k

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Login Forma pomoc

^{25.04.2013. u 13:26 - pre 133 meseci}

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.

Jednog dana...

Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 81
*.dynamic.sbb.rs.

+1 Profil

Re: Login Forma pomoc

^{25.04.2013. u 16:03 - pre 133 meseci}

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.

Prikačeni fajlovi

Popis predmeta-SLOJ.rar

Popis predmeta-SLOJ.rar - 81.13k

Odgovor na temu

Miki2013
Sarajevo

Član broj: 313952
Poruke: 69

+2 Profil

Re: Login Forma pomoc

^{25.04.2013. u 17:59 - pre 133 meseci}

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

Citat:

=Forms!LoginForma!text13

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!

Odgovor na temu

[es] :: Access :: Login Forma pomoc

Strane: 1 2

[ Pregleda: 10659 | Odgovora: 20 ] > FB > Twit

Srodne teme

06.10.2006. Rapidshare premium account!
09.10.2006. Programsko dodavanje jedne korisničke kontrole u..
15.11.2006. Login forma hitno
07.01.2007. login - user - role
26.04.2007. Problem sa logovanjem nakon instalacije joomfish-a
02.08.2007. SWT, modalni dialog
11.09.2007. Logout iz baze podataka (promjena korisnika)
02.02.2008. Problem oko logina...
05.03.2008. Potrebna LogIn forma - Ako moze:)

Navigacija

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