Método Application.Run (Access)

Use o método Run para realizar um procedimento de Função ou Sub definido pelo usuário ou microsoft access especificado pelo usuário. Variant.

Sintaxe

expressão. Executar (Procedure, 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, Arg25, Arg26 , Arg27, Arg28, Arg29, Arg30)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Procedure	Obrigatório	String	O nome do procedimento Function ou Sub a ser executado. Se você estiver chamando um procedimento em outro banco de dados, use o nome do projeto e o nome do procedimento separados por um ponto no formulário: "projectname. nome de procedimento" Se você executar o código do Visual Basic que contém o método Run em um banco de dados de biblioteca, o Access procurará o procedimento primeiro no banco de dados da biblioteca e, em seguida, no banco de dados atual.
Arg1, Arg2, ...Arg30	Opcional	Variantes	Os argumentos que devem ser passados à palavra-chave Function ou Sub especificada no argumento Procedure.

Valor de retorno

Variant

Comentários

Esse método é útil quando você está controlando o Microsoft Access em outro aplicativo através de Automação, anteriormente denominada automação OLE. Por exemplo, você pode usar o método Run de um componente ActiveX para realizar um procedimento Sub definido em um banco de dados access.

Você pode definir uma referência à biblioteca de tipos access de qualquer outro componente ActiveX e usar os objetos, métodos e propriedades definidos nessa biblioteca em seu código. No entanto, você não pode definir uma referência a um banco de dados de acesso individual de qualquer aplicativo que não seja o Access.

Por exemplo, suponha que você tenha definido um procedimento chamado NewForm em um banco de dados com sua propriedade ProjectName definida como "WizCode". O procedimento NewForm usa um argumento de cadeia de caracteres. Você pode chamar NewForm da maneira a seguir no Visual Basic:

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

Se for possível que um outro procedimento com o mesmo nome resida em um banco de dados diferente, qualifique o argumento procedure com o nome do banco de dados no qual o procedimento desejado reside, conforme mostrado no exemplo anterior.

Você também pode usar o método Run para chamar um procedimento em um banco de dados do Access referenciado de outro banco de dados.

Exemplo

O exemplo a seguir executa um procedimento Sub definido pelo usuário em um módulo em um banco de dados access de outro aplicativo que atua como um componente Active X.

Para testar esse exemplo, crie um novo banco de dados denominado WizCode.mdb e defina sua propriedade ProjectName como WizCode. Abra um novo módulo nesse banco de dados e insira o código a seguir. Salve o módulo e feche o banco de dados.

Observação

Você define o ProjectName selecionando Ferramentas>WizCode Properties no menu principal do VBE.

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

Depois de concluir esta etapa, execute o código a seguir do Microsoft Excel ou do Visual Basic. Verifique se você adicionou uma referência à biblioteca de tipos do Access escolhendo Referências no menu Ferramentas e escolhendo a Biblioteca de Objetos do Microsoft Access 12.0 na caixa de diálogo Referências .

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 
 
 ' Run Sub procedure. 
 appAccess.Run "Greeting", "Joe" 
 Set appAccess = Nothing 
 
End Sub

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.