Kako zaštititi svoje osjetljive podatke obrascem za prijavu u Accessu

Pristup rješenja 29. rujna 2025.
Podijeli sada:

Obrazac za prijavu neophodan je za baze podataka koje sadrže osjetljive podatke. Slijedite dolje navedene korake kako biste mogli stvoriti vlastiti obrazac za prijavu kako biste zaštitili svoju bazu podataka od nevažećeg pristupa.

Preuzmite sada

Ako želite što prije početi koristiti značajku, možete:

Odmah preuzmite oglednu bazu podataka s VBA kodovima

Inače, ako želite DIY, možete pročitati sadržaj u nastavku.

Koraci za stvaranje obrasca za prijavu u Accessu

1. Napravite tablicu za prijavu

Prvo što trebamo napraviti je napraviti tablicu koja će pohraniti sve podatke za prijavu.

  1. Napravite novu tablicu i nazovite je kao tbl_login.
  2. Otvorite tablicu u prikazu dizajna.
  3. Dodajte sljedeća polja s pripadajućim vrstama podataka:
Naziv polja Tip podataka
ID korisnika Automatski broj
Ime Kratki tekst
Prezime Kratki tekst
Korisničko ime Kratki tekst
Lozinka Kratki tekst

 

  1. Uredite masku za unos lozinke tako da bude prikazana kao niz zvjezdica (*).Uredite masku za unos lozinke
  • Odaberite polje Lozinka.
  • Idite na karticu Općenito > Maska unosa >...
  • Kada se pojavi čarobnjak za masku unosa, odaberite Lozinka.
  • Pritisnite Finish.
  1. Otvorite tablicu u prikazu podatkovne tablice i unesite prvi zapis (vaše podatke za prijavu).Unesite svoje podatke za prijavu
  2. Zatvorite tablicu i spremite promjene.

2. Kreirajte obrazac za prijavu

Napravite prazan obrazac s 2 tekstualna okvira i 2 naredbena gumba (kao što je prikazano u nastavku). Preskočite čarobnjaka za naredbeni gumb.Napravite obrazac za prijavu

Kasnije ćemo se pozvati na ove kontrole obrasca u našem kodu pa bi bilo najbolje preimenovati ih tako da se mogu lako prepoznati:

  • txt_korisničko ime
  • txt_lozinka
  • cmd_login
  • cmd_cancel

Zatim promijenite masku unosa tekstualnog okvira lozinke tako da se također prikazuje kao niz zvjezdica (*).

  1. Dok ste u prikazu dizajna, odaberite tekstni okvir lozinke.
  2. Otvorite list sa svojstvima (ALT + Enter).
  3. Idite na karticu Podaci > Maska unosa.
  4. Odaberite Lozinka i kliknite Završi.

Sada ćemo promijeniti neka svojstva obrasca iz estetskih razloga i, što je najvažnije, kako bismo osigurali da korisnici ne mogu zaobići ovaj obrazac bez unosa ispravnih podataka za prijavu.

  1. Dok ste u prikazu dizajna, odaberite obrazac (kao što je prikazano u nastavku).Odaberite obrazac
  2. Otvorite list sa svojstvima (ALT + Enter) i ažurirajte sljedeća svojstva:
  • Ispod Format kartica
    • Natpis: Prijava
    • Selektori zapisa: br
    • Gumbi za navigaciju: Ne
    • Trake za pomicanje: Nijedno
    • Stil obruba: dijaloški
    • Gumb za zatvaranje: Ne
  • Ispod Ostalo kartica
    • Skočni prozor: Da
    • Modalno: Da
    • Izbornik prečaca: Ne
  1. Spremite obrazac kao frm_prijava.

3. Dodajte kod

Dodajte događaj na klik gumbu Prijava.

  1. Dok ste u prikazu dizajna, odaberite gumb Prijava.
  2. Idite na List sa svojstvima > Kartica Događaj > Na klik > …
  3. odabrati Graditelj koda iz izbornika Choose Builder i kliknite OK.
  4. Ovo će otvoriti VBA Editor.
  5. Kopirajte kod ispod.
Private Sub cmd_login_Click()

  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim strSQL As String
 
  If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
    Me.txt_username.SetFocus
    Exit Sub
  End If
 
  If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
    Me.txt_password.SetFocus
    Exit Sub
  End If
 
  'query to check if login details are correct
  strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
 
  Set db = CurrentDb
  Set rst = db.OpenRecordset(strSQL)
  If rst.EOF Then
    MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
    Me.txt_username.SetFocus
  Else
    MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
    DoCmd.Close acForm, "frm_login", acSaveYes
  End If
 
 Set db = Nothing
 Set rst = Nothing

End Sub

Ovaj kôd će:

  1. Provjerite nisu li polja za korisničko ime i zaporku prazna. Ako jesu, pojavit će se upit.
  2. Provjerite jesu li podaci za prijavu ispravni uspoređujući ih s vrijednostima u tablici za prijavu (tbl_login).
  3. Nakon što se podaci za prijavu potvrde, pojavit će se upit koji pozdravlja korisnika.

Sljedeći korak je dodavanje koda za gumb Odustani tako da će se baza podataka zatvoriti nakon što se klikne.

  1. Dodajte događaj On Click gumbu Odustani (isti postupak s gumbom Prijava).
  2. Kopirajte kod ispod.
Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Postavite obrazac za prijavu kao obrazac za prikaz

Na kraju, postavite Obrazac za prijavu kao zadani obrazac koji će korisnici vidjeti nakon otvaranja baze podataka.

  1. Idite na Datoteka > Opcije > Trenutna baza podataka.
  2. Postavite obrazac za prikaz na frm_login.
  3. Kliknite U redu.

Morat ćete zatvoriti bazu podataka i ponovno je otvoriti da vidite kako radi.

Oporavite svoju pristupnu bazu podataka

Čestitamo! Sada znate kako zaštititi svoju dragocjenu bazu podataka od nevažećeg pristupa. Sada ću vam dati dodatni savjet. Ako je iz nesretnog razloga vaša baza podataka oštećena, NEMOJTE paničariti. DataNumen Inc., stručnjak za tehnologije za oporavak podataka, nudi softver koji popravlja pokvaren pristup baza podataka. Vaša se baza podataka još uvijek može oporaviti.

Uvod za autora:

Jayme Stack je stručnjak za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i excel softverski proizvodi za oporavak. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.