Propriedade OutlineCode.OnlyLookUpTableCodes (Project)

True se apenas as entradas listadas na tabela de pesquisa de código de estrutura de tópicos local pode ser usado. Boolean de leitura/gravação.

Sintaxe

expression. OnlyLookUpTableCodes

expressão Uma variável que representa um objeto OutlineCode .

Comentários

Para campos de texto da empresa com tabelas de pesquisa, OnlyLookUpTableCodes sempre será true e não gravável.

Exemplo

O exemplo a seguir adiciona um código de estrutura personalizado para armazenar o local dos recursos e configura o código de estrutura de modo que somente os valores únicos especificados na tabela de pesquisa possam ser associados a um recurso.

Observação

[!OBSERVAçãO] A propriedade OnlyLookUpTableCodes pode ser definida somente depois que a tabela de pesquisa contém entradas. Se você tentar definir OnlyLookUpTableCodes antes de criar entradas da tabela de pesquisa, o resultado é o tempo de execução erro 7, "sem memória."

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.