Propriété LookupTableEntry.FullName (Project)

Obtient le nom complet du niveau spécifié et des niveaux parents de l’objet LookupTableEntry du code hiérarchique, en y incluant la chaîne de séparation des niveaux. Valeur String en lecture seule.

Syntaxe

expression. Fullname

Expression Variable qui représente un objet LookupTableEntry .

Exemple

L’exemple de macro CreateLocationOutlineCode définit trois niveaux de LookupTableEntry d’un code hiérarchique personnalisé de tâche appelé Emplacement. Une fois la macro CreateLocationOutlineCode exécutée, l’entrée de la ligne suivante dans la fenêtre Exécution de Visual Basic Editor (VBE) renvoie le résultat affiché.

Print ActiveProject.OutlineCodes.Item(1).LookupTable.Item(4).FullName 
WA.KING.RED

La macro CreateLocationOutlineCode se présente comme suit :

Sub CreateLocationOutlineCode() 
    Dim objOutlineCode As OutlineCode 
    On Error GoTo ErrorHandler 
 
    Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
        pjCustomTaskOutlineCode1, "Location") 
 
    objOutlineCode.OnlyLookUpTableCodes = True 
 
    DefineLocationCodeMask objOutlineCode.CodeMask 
    EditLocationLookupTable objOutlineCode.LookupTable 
 End 
 
ErrorHandler: 
    MsgBox "CreateLocationOutlineCode(): Error Number: " 
 & Err.Number & _ 
    vbCrLf & " Error Description: " & Err.Description 
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.