1

有没有办法在 access 2010 中创建受密码保护的表单或按钮?

我试过这个(http://technologytraining.psu.edu/node/728)但是当我输入错误的密码时,它仍然可以工作。

请问有什么想法吗?

4

1 回答 1

0

我设法解决了我的问题!@HansUp 谢谢你的帮助!我没有启用控件。

  Private Sub MyButton_Click()
      Const cstrPassWord As String = "open"
      Dim strPassWord As String
      strPassWord = InputBox("Password:")
      If strPassWord = cstrPassWord Then
            Forms!Pharmacy.Form!pharmacy_warehouse_stock_Subform.Form!delete_query_button.Enabled = True

     Else
        MsgBox "Incorrect password."
     End If
  End Sub
于 2012-06-13T13:46:18.667 回答