Vraag & Antwoord

Programmeren

[Access97]Knop afschermen met wachtwoord

Anoniem
Wim Sturkenboom
1 antwoord
  • Ik ben bezig met het maken van een bonnen registratie database. De gebruiker mag alleen bonnen invoeren en geen rapporten uitdraaien. In het eerste scherm kunnen gebruikers kiezen voor welke locatie ze een bon willen invoeren ook staat er een knop die leidt naar het rapporten menu, deze knop wil ik afschermen met een wachtwoord.
    De knop heeft de volgende code:
    [code:1:d1393d953a]
    Private Sub rapporten_knop_scherm1_Click()
    On Error GoTo Err_rapporten_knop_scherm1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "rapporten_intro"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_rapporten_knop_scherm1_Click:
    Exit Sub

    Err_rapporten_knop_scherm1_Click:
    MsgBox Err.Description
    Resume Exit_rapporten_knop_scherm1_Click

    End Sub
    [/code:1:d1393d953a]

    Ik heb al van iemand een stukje code gekregen, maar dat was alleen voor het afschermen van het eigenlijke rapport. En ik wil graag de knop die er naar toe leidt afschermen.
    Dit is de code die ik heb gekregen:
    [code:1:d1393d953a]
    Private Sub Report_Open(Cancel As Integer)

    var = InputBox("Wachtwoord:")
    If var <> "password" Then
    Cancel = 1
    End If

    End Sub
    [/code:1:d1393d953a]
    Kan ik deze code hier evengoed in verwerken of moet ik een nieuwe code hebben.

    Dank

    :evil: MajinBuu :evil:

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.