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 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. Referir-se a um objeto AccessObject individual na coleção AllForms referindo-se ao formulário por 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 fazer referência a ele pelo nome, pois o índice de coleção de um item pode mudar. 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 exemplo a seguir mostra como usar o objeto CurrentProject usando a 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. Marque a caixa de marcação ao lado de Biblioteca de Objetos do Microsoft Access, 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.

  • Last updated on