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 回答