Exemple : validation d’un objet

Cet exemple montre comment vous pouvez effectuer des validations de tous les champs en utilisant la procédure d’événement CanPost. Par exemple, ce segment de code garantit qu’un utilisateur ne peut pas rejeter un défaut sans ajouter un commentaire.

Dans cet exemple, un utilisateur ne peut pas afficher un défaut dont le statut (BG_STATUS) a été changé en Rejeté, à moins qu’un texte explicatif n’ait été saisi dans le champ Commentaire R&D (BG_DEV_COMMENTS).

Ajoutez le code à la procédure d’événement Bug_CanPost afin que la vérification soit effectuée lorsque l’utilisateur tente de soumettre le défaut.

Function Bug_CanPost
        ' Initialize the function's return value 
	 ' to avoid unpredictable behavior.
        Bug_CanPost =  False 
        On Error Resume Next
        If Bug_Fields("BG_STATUS").IsModified and _
        Bug_Fields("BG_STATUS").Value = "Rejected" and _
        not Bug_Fields("BG_DEV_COMMENTS").IsModified then
            Bug_CanPost = False
            msgbox "You must enter a comment when rejecting a defect."
        Else
            Bug_CanPost = True
        End If
        PrintError "Bug_CanPost"
        On Error GoTo 0
End Function