OutlineCode.OnlyCompleteCodes-Eigenschaft (Project)

True, kann Wenn nur Gliederung mit Werten auf allen Ebenen des Codeformats codes verwendet werden. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. OnlyCompleteCodes

Ausdruck Eine Variable, die ein OutlineCode-Objekt darstellt.

Hinweise

Für Enterprise-Textfelder mit einer Nachschlagetabelle OnlyCompleteCodes ist immer False 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 der vollständige Name eines Codes zugeordnet werden kann.

Hinweis

[!HINWEIS] OnlyCompleteCodes -Eigenschaft kann festgelegt werden, nachdem die Nachschlagetabelle Einträge enthält. Wenn Sie versuchen, OnlyCompleteCodes 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.OnlyCompleteCodes = 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.