[Resolvido]Atualização de várias tabelas com um botão

Olá, gostaria de saber como editar o código abaixo de forma correta para abrir as consultas de criação e atualização de meu BD.

Código:

Private Sub Comando67_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery ("M1-Cria Mapa Atualizado")
DoCmd.SetWarnings True
End Sub

No meu caso, seriam 4 consultas,e gostaria de usar apenas um botão.
Muito obrigado!

Coloque cada uma em uma linha:

DoCmd.OpenQuery "NomeConsulta1"
DoCmd.OpenQuery "NomeConsulta2"
DoCmd.OpenQuery "NomeConsulta3"
DoCmd.OpenQuery "NomeConsulta4"

Se não for isso, retorne.

Funcionou perfeitamente, só gostaria de saber se essa mesma linha de código serve para abrir todos os objetos do BD?
Obrigado!

Quando você digita DoCmd.Open já é exibido todas as opções com a propriedade Open, correto? Basta você dar uma olhada nas outras opções e verá que existe opção para abrir tabelas, formulários, relatórios, funções, etc.

Criquio, funcionou perfeitamente, é que antes eu não havia digitado o comando, tinha apenas colado...
Obrigado!

Fica a dica. O Access tem um assistente muito bom que auxilia na programação. Se você digitar um termo e colocar um .(ponto), abrirá as opções que a propriedade fornecer, caso existam e nos casos aonde se abre formulários, relatórios, etc, se você colocar vírgulas na frente de cada opção, verá opções de filtros e outras. Por exemplo, tente digitar em um módulo de um formulário:

DoCmd.OpenForm "NomeForm",

Quando você colocar a vírgula, lhe serão mostradas opções para aquela seção. Se você colocar outra vírgula, mesmo deixando aquele espaço em branco, lhe serão mostradas outras opções para aquela posição.

Estou passando esse tópico para [Resolvido]. Sempre que resolver uma dúvida, você pode clicar no botão [Resolvido].

Obrigado Criquio, esse editor e sua dica me ajudaram muito.