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

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

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

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.

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()

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

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

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.

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

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

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