LookupTableEntry.FullName-Eigenschaft (Project)

Ruft den vollständigen Namen der angegebene Ebene und der übergeordneten Ebenen des LookupTableEntry für den vollständigen Gliederungscode mit Trennzeichenfolge zwischen den Ebenen ab. Schreibgeschützter String-Wert.

Syntax

Ausdruck. Fullname

Ausdruck Eine Variable, die ein LookupTableEntry-Objekt darstellt.

Beispiel

Das CreateLocationOutlineCode -Makro-Beispiel legt drei LookupTableEntry -Ebenen für einen benutzerdefinierten Aufgabenbereich Gliederungscode namens Speicherort fest. Nachdem das CreateLocationOutlineCode -Makro ausgeführt wird, gibt die folgende Zeile eingeben, im Direktfenster des Visual Basic-Editor (VBE) das Ergebnis angezeigt.

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

Es folgt das CreateLocationOutlineCode -Makro.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.