fout in inlogcode

  • Onderwerp starter Onderwerp starter N91
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

N91

Nieuwe gebruiker
Lid geworden
14 jul 2014
Berichten
4
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!
 
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!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan