Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Paßwortabfrage für Bericht





Frage

Ich brauche eine Paßwortabfrage vor meiner Berichtserstellung in Access 2000. Kann jemand helfen?

Antwort 1 von Coolpix

hallo Dieter,

hier eine Möglichkeit, die beim Report-Öffnen Ereignis ein Passwort abfrägt:


Private Sub Report_Open(Cancel As Integer)
    Dim varPassWort As String
    Dim fixPasswort As String
    Dim Vergleich As Variant

    fixPasswort = "Osterhase" 'Hier dein Passwort eintragen
    
    varPassWort = InputBox("Bitte geben sie das Passwort für den Bericht ein", "Passwort")
    Vergleich = StrComp(varPassWort, fixPasswort, vbBinaryCompare)
    
    If Vergleich = 0 Then
        DoCmd.Maximize
    Else
        Cancel = True
        Exit Sub
    End If
End Sub



den o.a Code einfach im Codefenster des gewünschten Berichts einfügen.
Ich hoffe das hilft dir erstmal weiter !
Feedback wäre nett !

Greetings ;-)