Syntaxisfout bij DLOOKUp

[hermes79]

Ik wens via een inlogformulier gebruikers al dan niet toegang te verschaffen tot m'n database, maar ik krijg steeds ee fout.

Concreet:
Ik heb een tabel aangemaakt
Tabelnaam: Inloggen
Velden: Nummer (Nummeriek)
Login (tekst)
Paswoord (Tekst)

En heb daarnaast een formulier gemaakt;
Formuliernaam: Inlogscherm
Velden: gebruiker
password

En in VB heb ik volgende code toegevoegd:
Private Sub Knop12_Click()

If IsNull(Me.gebruiker) Or Me.gebruiker = "" Then
MsgBox "Je dient een gebruiker te selecteren.", vbOKOnly, "Foutmelding"
Me.gebruiker.SetFocus
Exit Sub
End If

If IsNull(Me.Password) Or Me.Password = "" Then
MsgBox "Je dient een paswoord in te geven.", vbOKOnly, "Foutmelding"
Me.Password.SetFocus
Exit Sub
End If

If Me.Password.Value = DLOOKup("Paswoord", "Inloggen", _
"[Login]= " & Me.gebruiker.Value) Then

lngMyEmpID = Me.gebruiker.Value

DoCmd.Close acForm, "Inlogscherm", acSaveNo
DoCmd.OpenForm "Uitgave-Bankoverschrijving"

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
"Invalid Entry!"
Me.Password.SetFocus
End If

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", _
vbCritical, "Restricted Access!"
Application.Quit
End If

End Sub

Het vet gedeelte heeft syntaxisfouten. Weet dat m'n veldnamen niet altijd even goed benoemd zijn, maar dat mag toch het probleem niet vormen.

Met vriendelijke groeten,

hermes79

 

[Bartuls]

If Me.Password.Value = DLOOKup("Paswoord", "Inloggen", _
"[Login]= " & Me.gebruiker.Value) Then

Gebruiker zal wel een tekst veld zijn, als je de waarde daarvan in een tabel wilt opzoeken of plaatsen dan moeten daar enkele quotjes omheen.

If Me.Password.Value = DLOOKup("Paswoord", "Inloggen", _
"[Login]= '" & Me.gebruiker.Value) & "'" Then

 

[hermes79]

Gebruiker is idd een tekstveld.
Maar heb die code uit t'laatste bericht gekopieerd, maar hij blijft een syntaxisfout geven.
Heeft idd iets te maken met de quotes en single quotes, maar ja; welke juist .

Groeten,

hermes79

 

[Bartuls]

Post je mdb, nu is het schieten in het donker.

 

[hermes79]

Voila bij deze vind je in bijlage m'n mdb.
Hopelijk kunnen jullie mij hier nu mee verder helpen.
alvast bedankt.

met vriendelijke groeten,

hermes

 

[Bakk4318]

Hallo Hermes,

Volgens mij staat het rode verkeerd.

If Me.Password.Value = DLOOKup("Paswoord", "Inloggen", _
"[Login]= '" & Me.gebruiker.Value) & "'" Then

Hij moet volgens mij hier staan.

If Me.Password.Value = DLOOKup("Paswoord", "Inloggen", _
"[Login]= '" & Me.gebruiker.Value & "')Then

mvg
Charles

 

[hermes79]

Charles,

alvast bedankt, is idd de oplossing voor dit probleem. Nu krijg ik de melding als ik een verkeerd paswoord ingeef.

Echter, nu loopt hij vast op de volgende stap nl.
lngMyEmpID = Me.gebruiker.Value
Hier bij zegt hij dat de Typen komen niet met elkaar overeen

Dus wel verder, maar nog niet op het einde, kan er mij iemand verder helpen?

Bedankt,

Groeten,

Hermes

 

[Bakk4318]

Daar heb ik geen last van. Zie bijlage. Ik heb wel een testformulier aangemaakt om het ontbrekende formulier in de code te vervangen.

mvg
Charles