Login Form access vba probleempie

[janalleman123]

Private Sub Knop8_Click()
Dim soortgebruiker As String

[B]' checkt of het veld behandelaar is ingevuld[/B]
If IsNull(Me.Behandelaar) Or Me.Behandelaar = "" Then
      MsgBox "Selecteer eerst de behandelaar", vbOKOnly, "Vereist"
      Me.Behandelaar.SetFocus
    Exit Sub
End If

[B]' checkt of het wachtwoord is ingevuld[/B]
If IsNull(Me.Tekst17) Or Me.Tekst17 = "" Then
      MsgBox "Vul het wachtwoord in", vbOKOnly, "Vereist"
      Me.Tekst17.SetFocus
  Exit Sub
End If

[B]' Kijkt in de tabel Behandelaars en vergelijkt het ingevoerde wachtwoord met het wachtwoord in de tabel[/B]
     If Me.Tekst17.Value = DLookup("Wachtwoord", "Behandelaars", "[BehandelaarID]=" & Me.Behandelaar.Value) Then
     
     BehandelaarID = Me.Behandelaar.Value
Else
      MsgBox "Foutief Wachtwoord.", vbOKOnly, "Verkeerde invoer!"
      Me.Tekst17.SetFocus
      
   
End If
'[B] Checkt of de gebruiker een gebruiker is of een beheerder in het veld soort staat
Gebruiker of Beheerder gedefineerd (combobox)[/B]

soortgebruiker = DLookup("[Soort]", "Behandelaars", "[BehandelaarID]=" & Me.Behandelaar.Value & "")
        
        If soortgebruiker = "Gebruiker" Then
            DoCmd.Close acForm, "Loginscherm", acSaveNo
            DoCmd.OpenForm "Gebruikermenu"
Else
        
        If soortgebruiker = "Beheerder" Then
            DoCmd.Close acForm, "Loginscherm", acSaveNo
            DoCmd.OpenForm "Beheermenu"

End If
End If
End Sub

Het nadeel van deze code is dat hij het wachtwoord controleert vervolgens constateert dat het fout is en alsnog dan het formulier opent. Maar dat wil ik niet. ik wil dat het gelijk stopt.

Hoe doe ik dit.

 

[OctaFish]

Kun je de code eerst opmaken met de Code knop (knop met #)?

 

[huijb]

@janalleman123 http://www.helpmij.nl/forum/showthread.php/616127-Lees-dit-eerst-voor-je-een-vraag-plaatst. Lees dit even door, je doet er de helpers een groot plezier mee.

 

[janalleman123]

Hallo octo ik heb het al gevonden thanks.

Else
      MsgBox "Foutief Wachtwoord.", vbOKOnly, "Verkeerde invoer!"
      Me.Tekst17.SetFocus
[B]Exit SUB[/B]

Onderaan een exit sub defineren en de code werkt gelijk.

 

[janalleman123]

Kun je de code eerst opmaken met de Code knop (knop met #)?

Ik ben niet bekend met dit forum sorry. Ik zal het de volgende keer wel doen

 

[OctaFish]

Mag de vraag op slot, denk ik zo!

Overigens zou het laatste stukje beter kunnen;

    soortgebruiker = DLookup("[Soort]", "Behandelaars", "[BehandelaarID]=" & Me.Behandelaar.Value & "")
    DoCmd.Close acForm, "Loginscherm", acSaveNo
    Select Case soortgebruiker
        Case "Gebruiker"
            DoCmd.OpenForm "Gebruikermenu"
        Case "Beheerder"
            DoCmd.OpenForm "Beheermenu"
    End Select

 

[janalleman123]

Ja dat is goed. Ben alweer ergens anders tegen aan gelopen.

Database is bijna klaar. Alleen Het appenden van die query's loopt een beetje te rommelen

 

[OctaFish]

Daar zou ik dan een aparte vraag voor maken; dat klinkt als een ander onderwerp!