Propriété OutlineCode.OnlyLookUpTableCodes (Project)

True si seules les entrées répertoriées dans la table de recherche de code hiérarchique local peuvent être utilisées. Boolean (en lecture/écriture).

Syntaxe

expression. OnlyLookUpTableCodes

expression Variable qui représente un objet OutlineCode .

Remarques

Pour les champs textuels d’entreprise avec des tables de choix, la propriété OnlyLookUpTableCodes a toujours la valeur True et est toujours protégée en écriture.

Exemple

L’exemple suivant montre comment ajouter un code hiérarchique personnalisé pour stocker l’emplacement des ressources et configurer ce code de sorte que seules les valeurs spécifiées dans la table de choix peuvent être associées à une ressource.

Remarque

La propriété OnlyLookUpTableCodes peut être définie seulement une fois que la table de choix contient des entrées. Si vous essayez de définir OnlyLookUpTableCodes avant de créer des entrées de table de choix, l’erreur d’exécution 7 indique que la mémoire est insuffisante.

Sub CreateLocationOutlineCode()
    Dim objOutlineCode As OutlineCode 
 
    Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
        pjCustomResourceOutlineCode1, "Location") 
 
    DefineLocationCodeMask objOutlineCode.CodeMask 
    EditLocationLookupTable objOutlineCode.LookupTable 
 
    objOutlineCode.OnlyLookUpTableCodes = True 
 
End Sub 
 
 
Sub DefineLocationCodeMask(objCodeMask As CodeMask) 
    objCodeMask.Add _
        Sequence:=pjCustomOutlineCodeUppercaseLetters, _
        Length:=2, Separator:="." 
 
    objCodeMask.Add _ 
        Sequence:=pjCustomOutlineCodeUppercaseLetters, _
        Separator:="." 
 
    objCodeMask.Add _ 
        Sequence:=pjCustomOutlineCodeUppercaseLetters, _
        Length:=3, Separator:="." 
End Sub 
 
 
Sub EditLocationLookupTable(objLookupTable As LookupTable) 
    Dim objStateEntry As LookupTableEntry 
    Dim objCountyEntry As LookupTableEntry 
    Dim objCityEntry As LookupTableEntry 
 
    Set objStateEntry = objLookupTable.AddChild("WA") 
    objStateEntry.Description = "Washington" 
 
    Set objCountyEntry = objLookupTable.AddChild("KING", _
        objStateEntry.UniqueID) 
    objCountyEntry.Description = "King County" 
 
    Set objCityEntry = objLookupTable.AddChild("SEA", _
        objCountyEntry.UniqueID) 
    objCityEntry.Description = "Seattle" 
 
    Set objCityEntry = objLookupTable.AddChild("RED", _
        objCountyEntry.UniqueID) 
    objCityEntry.Description = "Redmond" 
 
    Set objCityEntry = objLookupTable.AddChild("KIR", _
        objCountyEntry.UniqueID) 
    objCityEntry.Description = "Kirkland" 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.