Propiedad OutlineCode.OnlyCompleteCodes (Project)
True si sólo códigos de esquema con valores en todos los niveles de la máscara de código puede utilizar. Boolean de lectura y escritura.
Sintaxis
expresión. OnlyCompleteCodes
Expresión Variable que representa un objeto OutlineCode .
Comentarios
Para los campos de texto de empresa con una tabla de búsqueda, OnlyCompleteCodes es siempre False y no se puede escribir.
Ejemplo:
En el siguiente ejemplo se agrega un código de esquema personalizado para almacenar la ubicación de los recursos y configurar el código de esquema para que solo se pueda asociar al recurso el nombre completo de un código.
Nota:
[!NOTA] La propiedad OnlyCompleteCodes puede establecerse sólo después de la tabla de búsqueda contiene entradas. Si intenta establecer OnlyCompleteCodes antes de crear entradas de la tabla de búsqueda, el resultado es el error de tiempo de ejecución 7, "memoria insuficiente."
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.