MyTetra Share
Делитесь знаниями!
Метод Application.Run
16.03.2019
23:43
Текстовые метки: Application.Run
Раздел: !Закладки - VBA

Метод Application.Run (доступ)

office 365 dev account|Последнее обновление: 29.09.2017

|

1 Участник

Метод Run можно использовать для выполнения указанного Microsoft Access или процедуры Function или Sub , определенной пользователем. Variant.

Синтаксис

выражение. Запуск (** Процедуру, ** Arg1, ** Arg2, ** Arg3, ** Arg4, ** Arg5, ** Arg6, ** Arg7, ** Arg8, ** Arg9, Arg10, ** Arg11, ** Arg12, ** Arg13, ** Arg14, ** Arg15, ** Arg16, ** Arg17, ** Arg18, ** Arg19, ** Arg20, ** Arg21, ** Arg22, ** Arg23, ** Arg24, ** Arg25, ** Arg26, ** Arg27, ** Arg28, ** Arg29, ** Arg30)

выражение Переменная, которая содержит объект приложения .

Параметры


Имя

Обязательный или необязательный

Тип данных

Описание

Процедура

Обязательное

String

Имя процедуры Function или Sub для запуска. При вызове процедуры в другой базе данных используйте имя проекта и имя процедуры, разделенных точкой в формате: « имя_проекта. имя процедуры«. При выполнении кода Visual Basic, содержащий метод Run в базе данных библиотеки поиск процедуры в библиотеку базы данных, а затем в текущей базе данных.

Arg1 Arg2... Arg30

Необязательный

Variant

Аргументы, которые должны быть переданы в Function или Sub , указанный в аргументе процедуры .

Возвращаемое значение

Variant

Заметки

Этот метод полезен, когда вы управляете Microsoft Access из другого приложения через средство автоматизации, ранее — OLE-автоматизации. Например можно использовать метод запустите из компонента ActiveX для выполнения процедуры Sub , определенным в базе данных Microsoft Access.

Можно задать ссылку на библиотеку типов Microsoft Access из любого другого компонента ActiveX и использовать объекты, методы и свойства, определенные в эту библиотеку в вашем коде. Тем не менее нельзя задать ссылку на отдельной базы данных Microsoft Access из любого приложения, отличного от Microsoft Access.

Например предположим, что определены процедуру с именем NewForm в базе данных с помощью его свойства имя_проекта «WizCode». Процедура NewForm принимает строковый аргумент. В Visual Basic, можно вызвать NewForm следующим образом:

Dim appAccess As New Access.Application 
appAccess.OpenCurrentDatabase ("C:\My Documents\WizCode.mdb") 
appAccess.Run "WizCode.NewForm", "Some String"

Если другой процедуры с тем же именем могут размещаться в другую базу данных, Указание аргумента процедуры , как показано в предыдущем примере, с именем базы данных, в котором находится нужное процедуры.

Можно также использовать метод Run вызова процедуры в указанной базе данных Microsoft Access из другой базы данных.

Пример

Следующий пример запускает процедуры Sub , определенной пользователем в модуле в базе данных Microsoft Access из другого приложения, который выступает в качестве компонента Active X.

Для проверки работы примера, создайте новую базу данных с именем WizCode.mdb и задать его свойство имя_проекта WizCode. Откройте новый модуль в этой базе данных и введите следующий код. Сохраните модуль и закройте базу данных.

Примечание Задайте имя_проекта , выбрав Инструменты, свойства WizCode, в главном меню редактора Visual Basic.

Public Sub Greeting(ByVal strName As String) 
 MsgBox ("Hello, " &; strName &; "!"), vbInformation, "Greetings" 
End Sub

После выполнения этого этапа выполните следующий код из Microsoft Excel или Microsoft Visual Basic. Убедитесь в том, что добавления ссылки на библиотеку типа Microsoft Access щелкните ссылки в меню Сервис и выберите Библиотека объектов Microsoft Access 12.0 в диалоговом окне " ссылки ".

Private Sub RunAccessSub() 

 Dim appAccess As Access.Application 

 ' Create instance of Access Application object. 
 Set appAccess = CreateObject("Access.Application") 

 ' Open WizCode database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase "C:\My Documents\WizCode.mdb", False 

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования