MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Macro Executar Codigo

    avatar
    drimi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]Macro Executar Codigo Empty Macro Executar Codigo

    Mensagem  drimi 8/11/2012, 11:47

    Bom dia a todos.

    Eu quero criar uma macro que execute um modulo e nao estou conseguindo, tentei usar o executar codigo mas nao acontece nada, alguém, por favor, pode me ajudar, eu agradeço atenção.

    Abraços
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  criquio 8/11/2012, 12:04

    Como está tentando fazer isso? Detalhe o processo por gentileza.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    drimi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  drimi 8/11/2012, 12:08

    Bom dia!

    Criquio.

    Eu criei um modulo Enviar_email este modulo envia automaticamente e-mails com anexo, agora eu criei um formulario com um botão, e eu gostaria que ao clicar neste botao envio de email aciona-se este módulo Enviar_email .
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  criquio 8/11/2012, 12:14

    A princípio, para executar uma função, basta chama-la pelo nome:

    Call NomeDaFunção

    Mas tenha em mente que a função precisa estar declarada como pública caso ela seja chamada de outro local que não seja o local aonde ela foi criada. Tambem pode ser necessário passar parâmetros na chamada da função em certos casos. Se não conseguir, poste a função que está tentando chamar par vermos melhor.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    drimi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  drimi 8/11/2012, 12:26

    Olá
    Criquio

    O código é esse http://maximoaccess.forumeiros.com/t10170-resolvidoerro-na-condicao-no-attachmentsadd-enviando-varios-anexos-ao-mesmo-tempo
    que eu tb postei e solicitei ajuda eu gostaria de chama-lo através de um botáo, pensie em usar o Call, desculpe a ignorancia, como faze-lo, por favor.

    Abraços
    avatar
    drimi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  drimi 8/11/2012, 12:42

    Abaixo o código que eu preciso executar através do botão.

    Sub ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim file As Variant

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    On Error GoTo trata
    TB.MoveFirst

    Do While Not TB.EOF

    If file <> "" Then
    GoTo trata
    End If

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
    .To = TB!CD_LOGIN_RESPONSAVEL
    .Cc = TB!CD_LOGIN
    .Subject = "Extrato do Colaborador - " & TB!Data & " - " & TB!DEPTO

    .HTMLBody = TB!gestor & "Segue extrato de horas por colaborador sob sua gestão, dados referente ao mês de " & TB!mes
    .HTMLBody = .HTMLBody & "Atenciosamente."

    If TB!arquivo1 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo1 & ".xls"
    If TB!arquivo2 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo2 & ".xls"
    If TB!arquivo3 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo3 & ".xls"
    If TB!arquivo4 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo4 & ".xls"
    If TB!arquivo5 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo5 & ".xls"
    If TB!arquivo6 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo6 & ".xls"
    If TB!arquivo7 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo7 & ".xls"
    If TB!arquivo8 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo8 & ".xls"
    If TB!arquivo9 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo9 & ".xls"
    If TB!arquivo10 <> ";" Then
    .Attachments.Add "U:\Caminho da rede\" & TB!arquivo10 & ".xls"

    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If

    .Display

    End With

    trata:
    Set OutMail = Nothing
    Set OutApp = Nothing
    TB.MoveNext
    Loop
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  JPaulo 8/11/2012, 12:49

    Esse codigo você coloca num modulo e salve.

    Altere o sub para publico, assim:

    Public Sub ENVIAR()

    Entre nas proriedades do seu botão, no evento ao pressionar é só invocar a chamada:


    Private Sub SeuBotao_Click()
    Call ENVIAR
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro Executar Codigo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro Executar Codigo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro Executar Codigo Folder_announce_new Instruções SQL como utilizar...
    avatar
    drimi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 20/09/2010

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  drimi 8/11/2012, 12:53

    Funcionou perfeitamente, muito obrigado a todos pela ajuda e o breve retorno.

    Abraços
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  JPaulo 8/11/2012, 13:17

    Faltou o Resolvido.

    Desta vez eu coloco.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro Executar Codigo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro Executar Codigo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro Executar Codigo Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Macro Executar Codigo Empty Re: [Resolvido]Macro Executar Codigo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 17:29