Exemple : modification d’un champ en fonction du groupe d’utilisateurs

Cet exemple montre comment vous pouvez modifier la valeur d’un champ en fonction du groupe d’utilisateurs de l’utilisateur qui saisit le défaut.

Dans cet exemple, le champ défini par l’utilisateur BG_USER_01 est un champ de mode de détection dans lequel l’utilisateur qui a détecté le défaut peut entrer la manière dont il a été découvert. Les valeurs possibles sont Test formel, Test informel et BTW.

L’exemple définit la valeur du champ mode de détection à BTW lorsqu’un défaut est ouvert par un utilisateur qui ne fait pas partie du groupe QA Tester. Si le défaut est ouvert par un utilisateur qui fait partie du groupe QA Tester, la valeur par défaut Test formel est définie.

Ajoutez le code à la procédure d’événement Bug_New, afin qu’elle soit déclenchée lorsqu’un défaut est ajouté.

Sub Bug_New
        On Error Resume Next
        If not User.IsInGroup("QATester") then
            Bug_Fields("BG_USER_01").Value = "BTW"
        Else
            Bug_Fields("BG_USER_01").Value = "Formal testing"
        End If
        PrintError "Bug_New"
        On Error GoTo 0
End Sub