fout in inlogcode

[N91]

Hoi allen,
ik ben een beetje aan het oefenen met access en heb via youtube een code gevolgd om een inlogfunctie te bouwen. Nu heb ik volgens mij alles goed gedaan maar toch geeft de code telkens als uitkomst dat het ww of de inlognaam foutief is, ziet iemand waar ik de fout in ga?

Private Sub Knop3_Click()
If IsNull(keuzelijsinlognaam) Then
MsgBox "Geef alstublieft een inlognaam in", vbInformation, "Inlognaam vereist"
ElseIf IsNull(Tekstwachtwoord) Then
MsgBox "Geef alstublieft een wachtwoord in", vbInformation, "Wachtwoord vereist"
Else
'uitvoeren controle
If (IsNull(DLookup("Inlognaam", "Medewerkers", "Inlognaam ='" & Me.keuzelijstinlognaam.Value & "'"))) Or _
(IsNull(DLookup("Wachtwoord", "Medewerkers", "Wachtwoord ='" & Me.Tekstwachtwoord.Value & "'"))) Then
MsgBox "Foutieve Inlognaam of Wachtwoord"

Else
MsgBox "Inlognaam en Wachtwoord correct"
DoCmd.OpenForm "Hoofdmenu"
End If
End If
End Sub

alvast bedankt voor de moeite!

 

[OctaFish]

Uiteraard welkom op HelpMij! Waarom zoeken op YouTupe als wij hier zulke mooie voorbeelden hebben? Met een database er bij? Dit voorbeeld gebruikt ook ongeveer dezelfde techniek, dus ik zou zeggen: bekijk 'm eens!