Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim Sifre, DogruSifre As Variant



Sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)

DogruSifre = "accesstr.net"



Select Case Len(Sifre)

Case 0

    Exit Sub

Case Else



    If Sifre = DogruSifre Then

        DoCmd.OpenForm "Form1", acNormal

    Else

        MsgBox ("hatalı şifre yazdınız")

    Exit Sub

    End If

End Select