[Access] VB Logincode in database

[Carpenter]

Beste mensen,

Ik heb een loginscriptje geprobeerd te maken voor mijn access database (zie onderstaand)

--------------------------------------------------------------------------
Private Sub btn_inloggen_Click()

Dim dbs As Database, rst As Recordset, rstLogin As Recordset
Dim rstRolf

Set dbs = CurrentDb
Set rstLogin = dbs.OpenRecordset("SELECT medewerker_profiel_pass FROM tbl_medewerker_profiel WHERE medewerker_profiel_user = '" & [txt_username] & "'", dbOpenDynaset, dbReadOnly)

txt_username.SetFocus
If txt_username.Text = "" Then
MsgBox "U dient een gebruiksersnaam op te geven", vbOKOnly, "Inloggen"
Else
txt_password.SetFocus
If txt_password.Text = "" Then
MsgBox "U dient een password op te geven", vbOKOnly, "Inloggen"
ElseIf rstLogin.EOF Then
MsgBox "De gebruikersnaam die u heb ingevult bestaat niet", vbOKOnly, "Inloggen"
ElseIf rstLogin.Fields(0) <> txt_password.Value Then
MsgBox "Het password dat u hebt ingevoerd is niet correct", vbOKOnly, "Inloggen"
Else
DoCmd.OpenForm "frm_bevinding", acNormal
End If
End If

rstLogin.Close
Set dbs = Nothing

End Sub
--------------------------------------------------------------------------

Nou heb ik dit gemaakt met een recordset, maar dit vind ik eigenlijk geen goede oplossing. Ik zou dit liever met tabellen willen doen maar ik ben er nog niet echt uit gekomen.
Heeft misschien iemand anders een voorbeeldje van een dergelijk loginscriptje (ik heb ook al op internet en op tweakers gezocht maar niets gevonden) en/of zou iemand mij misschien kunnen helpen hoe dit anders kan?

Carpenter

[ Voor 14% gewijzigd door Carpenter op 08-10-2003 15:27 ]

[whoami]

Scriptrequests zijn niet toegestaan.