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

2 participantes

    [Resolvido]Módulo para executar outros módulos

    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Módulo para executar outros módulos

    Mensagem  andre lindolfo 4/9/2012, 21:09

    Oi Feras de plantão,

    Criei um formulário com alguns botões e estes executam a tarefa de exportar uma consulta criando um arquivo excel.
    Os botões são por regional de vendas e os tipos de canais.
    Quero criar uma botão "master" para gerar os arquivos de todas as regionais do canal direto ao invés de ficar apertando botão por botão, por exemplo.
    Nome dos códigos que tenho:
    Private Sub CmdPesquisaDirBA_Click()
    Private Sub CmdPesquisaDirCE_Click()
    Private Sub CmdPesquisaDirCO_Click()
    ....

    Quero um código que execute todos estes códigos.


    []s


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    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]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  criquio 4/9/2012, 21:16

    Se estão todos no mesmo formulário, tente:

    Código:
    Call CmdPesquisaDirBA_Click()
    Call CmdPesquisaDirCE_Click()
    Call CmdPesquisaDirCO_Click()
    ....

    Podes ainda colocar um label e ir mudando o texto dele entre cada chamada para ir informando o processo:

    Código:
    Me.NmeLabel.Caption = "Executando passo 1"
    Call CmdPesquisaDirBA_Click()
    Me.NmeLabel.Caption = "Executando passo 2"
    Call CmdPesquisaDirCE_Click()
    Me.NmeLabel.Caption = "Executando passo 3"
    Call CmdPesquisaDirCO_Click()
    ....


    .................................................................................
    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
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 4/9/2012, 22:17

    Oi Criquio,

    Quase funcionou....rs
    Desculpe, mas não mencionei que coloquei duas caixas de opção onde tenho que selecionar a regional e o canal(vide arquivo).
    Quando coloco o comando Call ele roda os arquivos com os nomes diferentes, até ai tudo certo, mas como nas caixas os valores atribuidos permanecem inalterados os dados de todos arquivos são iguais.
    A caixa de opção da regional os valores são de 1 a 9 e do canal de 1 a 6, estes valores são caregados na consulta para servirem de critério.

    dê uma olhado no arquivo, acho que vai te ajudar a entender melhor.
    Anexos
    [Resolvido]Módulo para executar outros módulos Attachmentdúvida_maximoAccess.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (174 Kb) Baixado 6 vez(es)


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    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]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  criquio 4/9/2012, 22:40

    Não entendi muito bem ainda. Poste a função completa de uma das subs para ver se clareia mais. Por exemplo da Private Sub CmdPesquisaDirBA_Click()


    .................................................................................
    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
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 4/9/2012, 22:55

    Segue ....

    Private Sub CmdPesquisaDirBA_Click()
    Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE ((([Dt PEDIDO]) Between #" & Format(Me![DataInicial], "dd/mm/yyyy") & "# And #" & Format(Me![DataFinal], "dd/mm/yyyy") & "#));"

    DoCmd.OutputTo acOutputQuery, "Gera_RelRegionais", acFormatXLSB, "\\netprd03\suprimentos\LOGÍSTICA DE HANDSETS\CONTROLE\HANDSETS\Transforme\ArqSaída\ArquivosXLSB\RelRegional_detalhado - Direto-BA.xlsb", False, "", 0, acExportQualityPrint

    End Sub


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 4/9/2012, 23:01

    Coloquei o pdf com 1 dos critérios da consulta... no caso regional.
    O outro é para o canal

    Anexos
    [Resolvido]Módulo para executar outros módulos Attachmentdúvida_maximoAccess.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (342 Kb) Baixado 6 vez(es)


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    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]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  criquio 5/9/2012, 13:59

    Tente adaptar algo assim:

    Código:
    Dim R As Integer, C As Integer

    For R = 1 To 9
        Me.Regional.Value = R
            For C = 1 To 6
                Me.Canal.Value = C
                    Me.NmeLabel.Caption = "Executando passo 1 - Regional " & R & " - Canal & " & C
                    Call CmdPesquisaDirBA_Click()
                    Me.NmeLabel.Caption = "Executando passo 2 - Regional " & R & " - Canal & " & C
                    Call CmdPesquisaDirCE_Click()
                    Me.NmeLabel.Caption = "Executando passo 3 - Regional " & R & " - Canal & " & C
                    Call CmdPesquisaDirCO_Click()
                    ....
            Next
    next
    No lugar de Regional e de Canal, coloque o nome correto desses grupos.
    Se tiver alguma propriedade em comum nesses botões cujos cliques serão chamados, eles podem ser usados para simplificar ainda mais o código. Por exemplo, se tiverem nomes com algo em comum apenas à eles.


    .................................................................................
    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
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 5/9/2012, 14:05

    Criquio,

    Estava pensando em melhorar a consulta, acho que não preciso usar as duas caixas de seleção (por regional e por canal), se tiver como eu atribuir o critério da consulta no módulo e carrega-lo da consulta...
    Assim elimino as caixas de seleção e resolvo o problema que estou tendo.
    O que vc acha, tem como fazer isso?

    []s


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 5/9/2012, 16:29

    Oi,
    Agora que vi seu post anterior...
    Tenho sim dados específicos, como havia mencionado o botão clicado é uma interseção entre o código da Regional e do Canal.
    Por exemplo, a arquivo excel:
    - Canal indireto Bahia é CodTpCanal=2 e CodRegional=1
    - Canal indireto Ceará é CodTpCanal=2 e CodRegional=2

    Tentei usar isso, mas não está funcionando.
    Qdo clico no botão abre a caixa de mensagem me pedindo o CodRegional.

    Private Sub CmdPesquisaDirCE_Click()
    'Carrega datas - inicial e final
    Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE ((([Dt PEDIDO]) Between #" & Format(Me![DataInicial], "dd/mm/yyyy") & "# And #" & Format(Me![DataFinal], "dd/mm/yyyy") & "#));"

    'Define a regional
    Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE CodRegional ='" & 2 & "' ;"

    'Define o canal
    Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE CodTpCanal ='" & 2 & "' ;"

    'Exporta
    DoCmd.OutputTo acOutputQuery, "Gera_RelRegionais", acFormatXLSB, "\\netprd03\suprimentos\RelRegional_Indireto-CE.xlsb", False, "", 0, acExportQualityPrint

    End Sub


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010
    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Módulo para executar outros módulos Empty Re: [Resolvido]Módulo para executar outros módulos

    Mensagem  andre lindolfo 6/9/2012, 14:10

    Oi Criquio,

    Consegui resolver...
    Peguei o exemplo que vc deu e fiz uma adaptação.

    Funcionou do jeito que quero.


    Private Sub CmdPesquisaDirBA_Click()
    Dim Canal As Integer, Regional As Integer
    For Canal = 1 To 1
    For Regional = 1 To 1
    Me.QuadroCanal_x = Canal
    Me.QuadroRegional_X = Regional
    Me.RecordSource = "SELECT * FROM Gera_RelRegionais WHERE ((([Dt PEDIDO]) Between #" & Format(Me![DataInicial], "dd/mm/yyyy") & "# And #" & Format(Me![DataFinal], "dd/mm/yyyy") & "#));"
    DoCmd.OutputTo acOutputQuery, "Gera_RelRegionais", acFormatXLSB, "\\netprd03\suprimentos\RelRegional_detalhado - Direto-BA.xlsb", False, "", 0, acExportQualityPrint
    Next
    Next
    End Sub

    Obrigado pela ajuda.

    []s


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010

      Data/hora atual: 25/1/2022, 17:23