MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    jrrocha
    jrrocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/11/2013

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

    Mensagem  jrrocha em 21/10/2016, 19:06

    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..


    Última edição por jrrocha em 21/10/2016, 20:04, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 21/10/2016, 19:42

    Algo parecido com isso

    Call EnviarWordIndicador()
    jrrocha
    jrrocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/11/2013

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

    Mensagem  jrrocha em 22/10/2016, 12:59

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

    Obrigado e aguardo..
    jrrocha
    jrrocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/11/2013

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

    Mensagem  jrrocha em 22/10/2016, 13:02

    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..
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 22/10/2016, 14:05

    Bom dia...

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 13/08/2013

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

    Mensagem  jeanrocha em 4/3/2017, 01:06

    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 18:20