OutlineCode.OnlyLookUpTableCodes-Eigenschaft (Project)

True, kann Wenn nur die Einträge in der lokalen Gliederungscode-Nachschlagetabelle aufgelistet verwendet werden. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. OnlyLookUpTableCodes

Ausdruck Eine Variable, die ein OutlineCode-Objekt darstellt.

Hinweise

Für Enterprise-Textfelder mit Nachschlagetabellen ist OnlyLookUpTableCodes immer true und schreibgeschützt.

Beispiel

Im folgenden Beispiel wird ein benutzerdefinierter Gliederungscode hinzugefügt, um den Speicherort von Ressourcen zu speichern, und der Gliederungscode wird so konfiguriert, dass einer Ressource nur die in der Nachschlagetabelle angegebenen Werte zugeordnet werden können.

Hinweis

[!HINWEIS] OnlyLookUpTableCodes -Eigenschaft kann festgelegt werden, nachdem die Nachschlagetabelle Einträge enthält. Wenn Sie versuchen, OnlyLookUpTableCodes vor dem Erstellen der Nachschlagetabelle Tabelleneinträge festlegen, ist das Ergebnis Laufzeitfehler 7, "nicht genügend Arbeitsspeicher."

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

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.