help, code levert fout op in Access runtime versie (2010)

[Bospeen]

Beste forumleden,

Onderstaande code gebruik ik om een formulier te openen na invoer van een (geldig) wachtwoord in een Inputbox.
Deze code werkt echter niet onder Access runtime (2010)... waarom niet? Werkt wel met mijn Pro versie.
Moet er iets aan de code veranderd worden?

Private Sub Knop_tabel_relaties_bewerken_Click()

Dim Password, Pword
    Password = "xxxxxx"
    Pword = InputBox("Wachtwoord")
    If Pword <> Password Then
        MsgBox "Ongeldig wachtwoord, toegang geweigerd"
        End
    End If
        If Pword = Password Then
        DoCmd.OpenForm "Frm_systeembeheer"
        End
    End If
    
End Sub

 

[OctaFish]

Geen idee waarom de code niet werkt in een runtime. Ik vermoed dat het probleem niks met de code te maken heeft, maar met het formulier dat geopend wordt.

 

[Bospeen]

Nu je dit zegt... bij openen van het formulier wordt ook een andere code gebruikt om het popup formulier te maximaliseren (docmd.maximize).
Zou dit mekaar in de runtime versie kunnen "bijten"? Misschien de maximize code toevoegen aan het wachtwoord-scriptje?

 

[OctaFish]

Of weglaten . Laat de gebruiker zelf bepalen hoe zijn scherm er uit ziet. De meest formulieren worden er ook niet fraaier van als je ze maximaliseert. Sowieso heb je nergens last van als je met tabbladen werkt. Of een navigatieformulier.

 

[Bospeen]

Vermoedelijk leverde "End" een probleem op in runtime. De volgende code werkt wel goed in runtime:

Private Sub Knop_tabel_relaties_bewerken_Click()

Dim Password, Pword
    Password = "xxxxxx"
    Pword = InputBox("Wachtwoord")
    If Pword <> Password Then
        MsgBox "Ongeldig wachtwoord, toegang geweigerd"
        Else: DoCmd.OpenForm "Frm_systeembeheer"
    End If
    
End Sub