Share via

Objeto CurrentProject (Access)

  • Artigo

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 no banco 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. Consulte um objeto AccessObject individual na coleção AllForms , referindo-se ao formulário pelo nome ou referindo-se ao seu índice dentro da coleção. Se você quiser se referir a um objeto específico na coleção AllForms , é melhor se referir a ele 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 a seguir imprime algumas configurações de propriedade atuais do objeto CurrentProject e, em seguida, define uma opção para exibir objetos ocultos dentro do aplicativo.

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 próximo exemplo mostra como usar o objeto CurrentProject usando Automação de outro aplicativo do Microsoft Office. Primeiro, no outro aplicativo, crie uma referência ao Microsoft Access escolhendo Referências no menu Ferramentas na janela Módulo. Selecione a caixa de seleção ao lado da Biblioteca de Objetos do Microsoft Access e insira o código a seguir em um módulo do Visual Basic dentro desse aplicativo e chame o procedimento GetAccessData .

O exemplo passa um nome de banco de dados e um nome de relatório para um procedimento que cria uma nova instância da classe Application , abre o banco de dados e verifica se o relatório especificado existe usando 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.