Compartilhar via

Método Pages.Add (Access)

  • Artigo

O método Add adiciona um novo objeto Page à coleção Pages de um controle de guia.

Sintaxe

expressão. Adicionar (antes)

Expressão Uma variável que representa um objeto Pages .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Before Opcional Variantes Um Integer que especifica o índice do objeto Page antes do qual o novo objeto Page seria adicionado. O índice do objeto Page corresponde ao valor da propriedade PageIndex desse objeto Page. Se você omitir esse argumento, o novo objeto Page será adicionado ao final da coleção.

Valor de retorno

Page

Comentários

O primeiro objeto Page na coleção Pages corresponde à página mais à esquerda no controle guia, tendo um índice de 0. O segundo objeto Page está imediatamente à direita da primeira página e tem um índice de 1 e assim por diante, para todos os objetos Page no controle guia.

Se você especificar 0 para o argumento Before, o novo objeto Page é adicionado antes do primeiro objeto Page na coleção Pages. Em seguida, o novo objeto Page se torna o primeiro objeto Page da coleção com um índice de 0.

Você pode adicionar um objeto Page à coleção Pages de um controle guia somente quando o formulário está no modo de design.

Exemplo

O exemplo a seguir adiciona uma página a um controle guia em um formulário que está no modo de design. Para experimentar este exemplo, crie um novo formulário chamado Form1 com um controle de guia chamado TabCtl0. Cole o código a seguir em um módulo padrão e execute-o.

Function AddPage() As Boolean 
 Dim frm As Form 
 Dim tbc As TabControl, pge As Page 
 
 On Error GoTo Error_AddPage 
 Set frm = Forms!Form1 
 Set tbc = frm!TabCtl0 
 tbc.Pages.Add 
 AddPage = True 
 
Exit_AddPage: 
 Exit Function 
 
Error_AddPage: 
 MsgBox Err & ": " & Err.Description 
 AddPage = False 
 Resume Exit_AddPage 
End Function

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.