Compartilhar via

Objeto CurrentProject (Access)

O objeto CurrentProject refere-se ao projeto do projeto do Microsoft Access (.adp) ou banco de dados do Access atual.

Comentários

O objeto CurrentProject tem várias coleções que contêm objetos AccessObject específicos na base de dados atual. A tabela a seguir lista o nome de cada coleção e os tipos de objetos que ela contém.

Coleções Tipo de objeto
AllForms Todos os formulários
AllReports Todos os relatórios
AllMacros Todas as macros
AllModules Todos os módulos

Observação

[!OBSERVAçãO] As coleções listadas na tabela anterior contêm todos os respectivos objetos do banco de dados independentemente de estarem abertos ou fechados.

Por exemplo, um objeto AccessObject representando um formulário é membro da coleção AllForms, que é uma coleção de objetos AccessObject no banco de dados atual. Dentro da coleção AllForms, os membros individuais da coleção são indexados começando com zero. Veja um objeto AccessObject individual na coleção AllForms ao referenciar o formulário por nome ou ao referir-se ao respetivo índice na coleção. Se quiser referir-se a um objeto específico na coleção AllForms , é melhor referir-se ao mesmo pelo nome, porque o índice de coleção de um item pode ser alterado. Se o nome do objeto incluir um espaço, ele deverá vir entre colchetes ([ ]).

Sintaxe Exemplo
AllForms!formname AllForms!OrderForm
AllForms![form name] AllForms![Formulário Pedidos]
AllForms("formname") AllForms("OrderForm")
AllForms(index) AllForms(0)

Exemplo

O exemplo seguinte imprime algumas definições de propriedade atuais do objeto CurrentProject e, em seguida, define uma opção para apresentar objetos ocultos na aplicação.

Sub ApplicationInformation() 
 ' Print name and type of current object. 
 Debug.Print Application.CurrentProject.FullName 
 Debug.Print Application.CurrentProject.ProjectType 
 ' Set Hidden Objects option under Show on View Tab 
 'of the Options dialog box. 
 Application.SetOption "Show Hidden Objects", True 
End Sub

O exemplo seguinte mostra como utilizar o objeto CurrentProject com a Automatização de outra aplicação do Microsoft Office. Em primeiro lugar, a partir da outra aplicação, crie uma referência ao Microsoft Access ao selecionar Referências no menu Ferramentas na janela Módulo. Selecione a caixa de marcar junto a Biblioteca de Objetos do Microsoft Access e, em seguida, introduza o seguinte código num módulo do Visual Basic nessa aplicação e chame o procedimento GetAccessData.

O exemplo transmite um nome de base de dados e um nome de relatório para um procedimento que cria uma nova instância da classe Aplicação , abre a base de dados e verifica se o relatório especificado existe com o objeto CurrentProject e a coleção AllReports .

Sub GetAccessData() 
' Declare object variable in declarations section of a module 
 Dim appAccess As Access.Application 
 Dim strDB As String 
 Dim strReportName As String 
 
 strDB = "C:\Program Files\Microsoft " _ 
          & "Office\Office11\Samples\Northwind.mdb" 
 strReportName = InputBox("Enter name of report to be verified", _ 
                          "Report Verification") 
 VerifyAccessReport strDB, strReportName 
End Sub 
 
Sub VerifyAccessReport(strDB As String, _ 
                       strReportName As String) 
 ' Return reference to Microsoft Access 
 ' Application object. 
 Set appAccess = New Access.Application 
 ' Open database in Microsoft Access. 
 appAccess.OpenCurrentDatabase strDB 
 ' Verify report exists. 
 On Error Goto ErrorHandler 
 IsObject appAccess.CurrentProject.AllReports(strReportName) 
 MsgBox "Report " & strReportName & _ 
        " verified within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
Exit Sub 
ErrorHandler: 
 MsgBox "Report " & strReportName & _ 
        " does not exist within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
End Sub

Métodos

Propriedades

Confira também

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.

  • Last updated on