Объект CurrentProject (Access)

Объект CurrentProject ссылается на проект текущего проекта Microsoft Access (ADP) или базы данных Access.

Примечания

Объект CurrentProject состоит из нескольких семейств, содержащих определенные объекты AccessObject в текущей базе данных. В следующей таблице перечислены имена всех семейств и типы объектов, которые они содержат.

Коллекции Тип объектов
AllForms Все формы
AllReports Все отчеты
AllMacros Все макросы
AllModules Все модули

Примечание.

Семейства, приведенные в приведенной выше таблице, содержат все соответствующие объекты базы данных независимо от того, открыты они или закрыты.

Например, объект AccessObject , представляющий форму, является членом коллекции AllForms , которая является коллекцией объектов AccessObject в текущей базе данных. В коллекции AllForms отдельные элементы коллекции индексируются, начиная с нуля. Ссылайтесь на отдельный объект AccessObject в коллекции AllForms , ссылаясь на форму по имени или на его индекс в семействе. Если вы хотите сослаться на определенный объект в коллекции AllForms , лучше ссылаться на него по имени, так как индекс коллекции элемента может измениться. Если имя объекта содержит пробел, имя должно быть заключено в квадратные скобки ([ ]).

Синтаксис Пример
AllForms!имя_формы AllForms! Форма заказа
AllForms![ имя_формы] AllForms! [Форма заказа]
AllForms("имя_формы") AllForms("OrderForm")
AllForms(index) AllForms(0)

Пример

В следующем примере выводится печать некоторых текущих параметров свойства объекта CurrentProject и настройка параметра для отображения скрытых объектов в приложении.

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

В следующем примере показано, как использовать объект CurrentProject с помощью автоматизации из другого приложения Microsoft Office. Сначала в другом приложении создайте ссылку на Microsoft Access, выбрав "Ссылки " в меню "Сервис " в окне модуля. Установите флажок проверки рядом с библиотекой объектов Microsoft Access, а затем введите следующий код в модуль Visual Basic в этом приложении и вызовите процедуру GetAccessData.

В примере имя базы данных и имя отчета передаются процедуре, которая создает новый экземпляр класса Application , открывает базу данных и проверяет существование указанного отчета с помощью объекта CurrentProject и коллекции 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

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

  • Last updated on