Slik beskytter du sensitive data med et påloggingsskjema i Access

Tilgangsløsninger September 29, 2025

Et påloggingsskjema er et must for databaser som inneholder sensitiv informasjon. Følg trinnene nedenfor slik at du kan lage ditt eget påloggingsskjema for å beskytte databasen mot ugyldig tilgang.

Last ned nå

Hvis du vil begynne å bruke funksjonen så snart som mulig, kan du:

Last ned prøvedatabasen med VBA-koder nå

Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.

Trinn for å opprette et påloggingsskjema i Access

1. Lag en påloggingstabell

Det første vi må gjøre er å lage en tabell som vil lagre all påloggingsinformasjon.

  1. Opprett en ny tabell og navngi den som tbl_login.
  2. Åpne tabellen i designvisning.
  3. Legg til følgende felt med tilhørende datatyper:
Feltnavn Data-type
BrukerID Autonummerering
Fornavn Korttekst
Etternavn Korttekst
UserName Korttekst
Passord Korttekst

 

  1. Rediger passordets inndatamaske slik at det vises som en serie stjerner (*).Rediger passordets inndatamaske
  • Velg feltet Passord.
  • Gå til kategorien Generelt > Inndatamaske > …
  • Når Input Mask Wizard dukker opp, velg Passord.
  • Klikk på Fullfør.
  1. Åpne tabellen i dataarkvisning og skriv inn den første posten (påloggingsdetaljene dine).Skriv inn påloggingsdetaljer
  2. Lukk tabellen og lagre endringene som er gjort.

2. Opprett påloggingsskjemaet

Lag et tomt skjema med 2 tekstbokser og 2 kommandoknapper (som vist nedenfor). Hopp over kommandoknappveiviseren.Lag innloggingsskjemaet

Vi skal referere til disse skjemakontrollene i koden vår senere, så det ville være best å gi dem nytt navn slik at de lett kan identifiseres:

  • txt_brukernavn
  • txt_password
  • cmd_login
  • cmd_avbryt

Deretter endrer du inndatamasken til passordtekstboksen slik at den også vises som en serie stjerner (*).

  1. Velg tekstboksen for passord mens du er i designvisning.
  2. Åpne egenskapsarket (ALT + Enter).
  3. Gå til kategorien Data > Inndatamaske.
  4. Velg Passord og klikk Fullfør.

Nå skal vi endre noen av egenskapene til skjemaet av estetiske årsaker, og viktigst av alt, for å sikre at brukere ikke kan omgå dette skjemaet uten å oppgi riktig innloggingsinformasjon.

  1. Mens du er i designvisning, velg skjemaet (som vist nedenfor).Velg Skjemaet
  2. Åpne egenskapsarket (ALT + Enter) og oppdater følgende egenskaper:
  • Under dannet tab
    • Bildetekst: Logg inn
    • Rekordvelgere: Nei
    • Navigasjonsknapper: Nei
    • Rullefelt: Ingen av delene
    • Kantstil: Dialog
    • Lukk-knapp: Nei
  • Under Annet tab
    • Pop Up: Ja
    • Modal: Ja
    • Snarveimeny: Nei
  1. Lagre skjemaet som frm_login.

3. Legg til koden

Legg til en On Click-hendelse til Logg inn-knappen.

  1. Velg påloggingsknappen mens du er i designvisning.
  2. Gå til egenskapsarket > Hendelse-fanen > Ved klikk > …
  3. Velg Kodebygger fra Velg byggmester-menyen og klikk OK.
  4. Dette vil åpne VBA Editor.
  5. Kopier koden nedenfor.
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

Denne koden vil:

  1. Sjekk om brukernavn- og passordfeltene ikke er tomme. Hvis de er det, vises en melding.
  2. Sjekk om påloggingsdetaljene er korrekte ved å sammenligne dem med verdiene i påloggingstabellen (tbl_login).
  3. Når påloggingsdetaljene er bekreftet, vises en melding som ønsker brukeren velkommen.

Neste trinn er å legge til koden for Avbryt-knappen slik at databasen lukkes når den er klikket.

  1. Legg til en On Click-hendelse til Avbryt-knappen (samme prosedyre som Logg inn-knappen).
  2. Kopier koden nedenfor.
Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Angi påloggingsskjemaet som visningsskjema

Til slutt, sett inn påloggingsskjemaet som standardskjemaet som brukere vil se når de åpner databasen.

  1. Gå til Fil > Alternativer > Gjeldende database.
  2. Sett Display Form til frm_login.
  3. Klikk på OK.

Du må lukke databasen og åpne den på nytt for å se hvordan den fungerer.

Gjenopprett tilgangsdatabasen din

Gratulerer! Du vet nå hvordan du beskytter din dyrebare database mot ugyldig tilgang. Nå skal jeg gi deg et ekstra tips. Hvis databasen din av en uheldig grunn har blitt ødelagt, IKKE få panikk. DataNumen Inc., en ekspert på datagjenopprettingsteknologier, tilbyr en programvare som reparerer ødelagt tilgang database. Databasen din kan fortsatt gjenopprettes.

Forfatterintroduksjon:

Jayme Stack er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og excel-programvareprodukter for gjenoppretting. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.