2012-06-12 40 views

回答

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 
相關問題