2012-06-12 2 views

Répondre

0

J'ai réussi à résoudre ma question! @HansUp merci pour votre aide! Je n'avais pas activé les contrôles.

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 
Questions connexes