[Resolvido]Macro/código para executar outras macros.

Passo a tentar explicar.
Tabela "codigo" com um unico registo que pode oscilar entre 1 e 20.
20 macros (mk1, mk2, mk3...)
Pretendo colocar um unico "botão" no formulário "Painel" que execute as diversas makros conforme opção prévia na tabela "codigo".
Aguardo a v/ ajuda

Tente:

Código:

Dim TMK As Integer

For TMK = 1 To DLookup("NomeCampo", "NomeTabela")
    DoCmd.RunMacro "mk" & TMK
Next

MsgBox "Foram acionadas " & TMK & " macros. Processo concluído", vbInformation, "Concluído"

Está a funcionar, mas entrou em looping.

Como assim, entrou em looping? Poste o código completo que está usando.

Anexei ficheiro com BD de teste.

Aqui parece rodar normal, a não ser o fato de abrir uma caixa de diálogo pedindo Valor do parâmetro, o qual, verifiquei ser por causa de uma parâmetro que existe nas consultas. Como não sei a que se destina esse parâmetro e nem o restante do código que está na função, como por exemplo o FindNext, não posso opinar mais.

A questão é que só deveria abrir a macro indicada na tabela control e uma única vez.
abre sempre a macro 1 e depois entra e ciclo.
mvilela

Já tentou retirar esse parâmetro das consultas para ver? Tambem acredito que tenha outras funções a mais no clique desse botão, certo? Pois ele veio apenas com o botão, mas o restante do código não é justificável com esse botão apenas. Então imagino que o original tenha outros controles e funções que possam estar influenciando tambem.

O parametro nas consultas serve para detetar qual a macro aberta.
Se possivel efectue a alteração directamente na BD.
mvilela

Detectar a macro aberta? Qual a finalidade? Se for apenas para saber qual macro abriu, melhor colocar um rótulo no formulário para exibir o nome dela. Basta incluir uma ou duas linhas de código:

Código:

Dim TMK As Integer

For TMK = 1 To DLookup("NomeCampo", "NomeTabela")
    Me.NomeDoRótulo.Caption = "Rodando a macro mk" & TMK
    DoCmd.RunMacro "mk" & TMK
Next

Me.NomeDoRórulo.Caption = " "
MsgBox "Foram acionadas " & TMK - 1 & " macros. Processo concluído", vbInformation, "Concluído"

Adicionei o - 1 na mensagem que informa a quantidade de macros senão dá uma a mais.

O efeito é o mesmo
Não abre a "unicamente" a macro previamente escolhida na tabela control, mas cria um ciclo que abre até á macro indicada em control.
Ex:( se indicado 1 em control abre a macro 1 e termina. Se indicado 5 em control abre as macros 1 até á 5)
Anexo a BD para poder comprovar.
mvilela

Se indicado 5 em control abre as macros 1 até á 5

Mas não era para ser assim mesmo? Foi isso que entendi no primeiro post. Que se tivesse o número 3, abriria as macros mk1, mk2 e mk3. Entendi que seria do número 1 até o número que estivesse cadastrado na tabela. Então, no caso, você quer abrir números aleatórios? Por exemplo, cadastrar os números 1, 5, 6, 7 e 10 e abrir as macros mk1, mk5 a mk7 e mk10?

Olha só, abrindo suas consultas no modo SQL, temos:

SELECT mestre.id, mestre.nome, mestre.cidade, mestre.bi, mestre.cp
FROM mestre
WHERE (((mestre.cidade)=[macro1]));

Não existem macro1, macro2, etc. Por isso sempre abrirá aquela janelinha. Eu ainda não entendi esse WHERE (((mestre.cidade)=[macro1])); mas criando outras consultas sem essa cláusula WHERE ou retirando essa cláusula das consultas, funciona como deves.

Alterei o código e ficou a funcionar como pretendia.
Obrigado pela ajuda
mvilela

Dim TMK As Integer

For TMK = DLookup("control", "control") To DLookup("control", "control")
Me.Rótulo3.Caption = "Rodando a macro mk" & TMK
DoCmd.RunMacro "mk" & TMK
Next

Me.Rótulo3.Caption = " "
MsgBox "Foi acionada a macro " & TMK - 1 & ". Processo concluído", vbInformation, "Concluído"

Ainda não entendi direito o que você queria. Se era rodar apenas a macro cadastrada na tabela, ou seja, apenas uma, nem precisaria da variável. Poderia ser apenas assim:

DoCmd.RunMacro DLookup("control", "control") & TMK