Access 2007 foutmelding VBA "If Username.....

[psnoeck]

Hallo allemaal,

Ik ben bezig een database te beveiligen. Hierbij onderstaande VBA script gevonden:

Option Compare Database

Private Sub Knop13_Click()
UserName.SetFocus
If UserName = "staff1" And Password = "staff1" Then
    MsgBox "Access Granted", vbInformation, "Opening"
    MsgBox "Welcome", vbInformation, "Opening"
    DoCmd.Close
    DoCmd.OpenForm "Login1"
ElseIf UserName = "manager1" And Password = "manager1" Then
    MsgBox "Access Granted", vbInformation, "Admin area"
    MsgBox "Welcom manager use caution when applying changes", vbInformation, "Opening"
    DoCmd.Close
    DoCmd.OpenForm "Login2"
Else
    MsgBox "Please re-enter your Username and Password"
End If
End Sub

Nu heb ik dit aan de knop in Access 2007 gekoppeld maar komt hij terug met een foutmelding. En dan komt het
onderstaande stuk in VBA in het geel gemarkeerd te staan:

If UserName = "staff1" And Password = "staff1" Then

Ik heb geen verstand van programmeren dus jullie kunnen mij vast helpen.

Alvast bedankt.

Mvg,

Patrick

 

[OctaFish]

Als je op die regel al een foutmelding krijgt, dan betekent dat simpel gezegd dat je naar de verkeerde (tekst)velden kijkt. Als je de code ergens van gekopieerd hebt, zal dat zo maar kunnn natuurlijk.
Als je zelf code maakt op een formulier, is het verstandig om formulierelementen op te vragen met Me.
Dus als je deze regel typt:

If Me.UserName = "staff1" And Me.Password = "staff1" Then

en je krijgt na het typen van Me.U of Me.P geen veldnaam aanvulling, dan bestaan die velden niet. Ergo: dan kun je er ook geen check op doen. Controleer dus eerst hoe de velden heten waarin username en password staan.

 

[psnoeck]

Ja, daarmee het is opgelost.....bedankt voor de ondersteuning. Is had inderdaad een tikfout gemaakt in de veldnaam.

 

[OctaFish]

Mag je de vraag nog op <Opgelost> zetten!