[Resolvido]Consuta que recebe dados de uma tabela que varia o nome

Pessoal é o seguinte, tenho um comando CREATE TABLE que cria uma tabela, cria a tabela com um nome variável de um INPUTBOX, entao dependendo do valor do INPUTBOX a tabela terá um nome diferente, mas sua estrutura será sempre a mesma. Até aí ok, o problema é como fazer pra criar um consulta simples que exiba os dados dessa tabela sendo que o nome dela varia! Alguem saberia como fazer isso?

Uma pergunta: por que criar tabelas diferentes com a mesma estrutura?

ola!

Bom Criquio é o seguinte na empresa em que trabalho estou desenvolvendo um aplicação em que vario planejadores trabalharão ao mesmo tempo em rede, eles geram informações do sistema corporativo da empresa e ele tratam essas informações numa planilha de excel, apos tradadas esse sistema que estou desenvolvendo ira importa-las para uma tabela onde o sistema fara vários processo que incluem concatenação, soma de qtde com tabela de estoque... e no final depois de tudo tratado essas informações serão inseridas em uma tabela variável criada conforme o plan e em sequência abria a consulta criada para q planejador analise se está tudo certo, onde talvez tenha necessidade de alteração de dados através dessa consulta, tipo inserção de linha, exclusão de linha, alteração de linha (campo qtde), e pos tudo verificado eles fecharam a consulta onde o sistema vai gerar um arquivo .xls com as informações alteradas, inserida uma cópia em uma tabela histórico e será excluída a tabela e a consulta variável. Então como processos serão feito varias vezes ao mesmo tempo por mais de 10 planejadores simultaneamente, terei q criar a tabela e consulta variável pra cada plan. oq vc acha?


Avelino, seu código funcionou perfeitamente! só fiz umas adaptações conforme abaixo:

Código:

Dim strNomeTabela As String
Dim strSql As String
Dim qry As QueryDef

strNomeTabela = InputBox("Informe o nome da tabela")

plan = Replace(strNomeTabela, " ", "")


CurrentDb.Execute "CREATE TABLE " & plan & " (Campo1 Text, campo2 Text, campo3 Text)"


strSql = " SELECT * FROM " & plan & ";"

Set qry = CurrentDb.CreateQueryDef("Consulta-" & plan, strSql)

DoCmd.OpenQuery "Consulta-" & plan

Set qry = Nothing

Agora eu pergunto como eu poderia executar uma ação ao fechar a consulta criada no código acima? ex: ao fechar a consulta criada pelo código acima seja exibido um msgbox com o botão ok/cancel confirmando ou não a exportação dos dados para excel e apos confirmar gere o arquivo .xls com os dados da consulta analisada e envie as informações para o a tela histórico depois exclua a consulta e a tabela criada!

como executo essas ações apos clicar no botão fecha da consulta?


desde já muito obrigado a ajuda!

Não teve jeito, tive q criar um form e incorporar a consulta nele!