como chamar essa sua função de um click de botão?

Prezados amigos, boa tarde!

Peguei essa função aqui do Maximo Access, mas não sei como chamar ela através de um botão em um formulãrio.
FUNÇÃO:

Lembrando que esta função esta dentro do próprio formulário que tem o botão é uma Public Sub

Public Sub EnviarWordIndicador(argNome, argCargo, argDataNascimento)
Dim oApp As Object 'Cria uma variável objeto
Dim PastaArq, ArqModelo

   'seta pasta do banco de dados
   PastaArq = CurrentProject.Path

   'Indicar nome do arquivo
   'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
   ArqModelo = "REQ.dot"
       
   ' Inicia o MS Word
   Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
   ' Torna o MS Word visível
   oApp.Visible = True
   ' Abre o documento base
   oApp.Documents.Add (PastaArq & "\" & ArqModelo)
       
   'Move cada campo para o indicador definido no documento
   oApp.ActiveDocument.Bookmarks("cargo").Select
   oApp.Selection.Text = (argCargo)
   oApp.ActiveDocument.Bookmarks("nomeFuncionario").Select
   oApp.Selection.Text = (argNome)
   oApp.ActiveDocument.Bookmarks("dataNascimento").Select
   oApp.Selection.Text = (argDataNascimento)

   oApp.Application.Quit

   Set oApp = Nothing

End Sub

AGORA EU TENHO UM BOTÃO NO MEU FORMULÁRIO DE NOME:

Private Sub btnContrato_Click()

Call EnviarWordIndicador(argNome, argCargo, argDataNascimento)

End Sub

COMO CHAMAR ESSA FUNÇÃO ATRAVÉS DESTE BOTÃO?
Tentei com o call mas da errro..


Obrigado aguardo retorno..

Algo parecido com isso

Call EnviarWordIndicador()

Amigos alguém poderia me responder?
Esse procedimento fica dentro do próprio formulário onde irei colocar o botão..

Obrigado e aguardo..

Prezado Silvio, ja havia tentado com o comando Call
Mas não funciona..

Agora se observar essa é uma Public Sub, ou seja ela está no módulo do próprio formulário onde está o botão que vai chamar ela..

Obrigado..

Bom dia...

Poste aqui as partes envolvidas para uma melhor analise do problema.

Olá, Jrrocha

Tente colocar direto no botão,


Private Sub btnContrato_Click()
Dim oApp As Object 'Cria uma variável objeto
Dim PastaArq, ArqModelo

'seta pasta do banco de dados
PastaArq = CurrentProject.Path

'Indicar nome do arquivo
'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
ArqModelo = "REQ.dot"

' Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
' Torna o MS Word visível
oApp.Visible = True
' Abre o documento base
oApp.Documents.Add (PastaArq & "\" & ArqModelo)

'Move cada campo para o indicador definido no documento
oApp.ActiveDocument.Bookmarks("cargo").Select
oApp.Selection.Text = (argCargo)
oApp.ActiveDocument.Bookmarks("nomeFuncionario").Select
oApp.Selection.Text = (argNome)
oApp.ActiveDocument.Bookmarks("dataNascimento").Select
oApp.Selection.Text = (argDataNascimento)

oApp.Application.Quit

Set oApp = Nothing

End Sub



Se não funcionar você pode criar um módulo com a função da seguinte forma

Function EnviarWordIndicador(argFrm As Form)

Dim oApp As Object 'Cria uma variável objeto
Dim PastaArq, ArqModelo

'seta pasta do banco de dados
PastaArq = CurrentProject.Path

'Indicar nome do arquivo
'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
ArqModelo = "REQ.dot"

' Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
' Torna o MS Word visível
oApp.Visible = True
' Abre o documento base
oApp.Documents.Add (PastaArq & "\" & ArqModelo)

'Move cada campo para o indicador definido no documento
oApp.ActiveDocument.Bookmarks("cargo").Select
oApp.Selection.Text = (argCargo)
oApp.ActiveDocument.Bookmarks("nomeFuncionario").Select
oApp.Selection.Text = (argNome)
oApp.ActiveDocument.Bookmarks("dataNascimento").Select
oApp.Selection.Text = (argDataNascimento)

oApp.Application.Quit

Set oApp = Nothing
End Function

No evento clicar do botão você coloca

Private Sub btnContrato_Click()
Call EnviarWordIndicador(Me)
Me.Refresh
End Sub


Boa sorte.