[Resolvido]Gerar Consultas Automaticamente

Bom dia Mestres,


Estou fazendo alguns testes e gostaria de ajuda. É o seguinte, num formulário possuo um botão onde ao clicar ele duplica uma tabela e a renomeia no formato "mmyyyy". Gostaria que além de criar a tabela ele criasse a consulta com o mesmo nome "mmyyyy".

Código:



Private Sub Agendar_Click()

If MsgBox("Finalizar Mês?", vbQuestion + vbYesNo, "Finalizando Mês") = vbYes Then

DoCmd.CopyObject , Format(Now, "mmyyyy"), acTable, "Contatos"


DoCmd.OpenQuery "Agenda"
DoCmd.OpenQuery "Limpaligacoes"

MsgBox "Agendamento do Próximo Mês Efetuado!", vbOKOnly + vbInformation, "Agendamento"
MsgBox "Finalizado com Sucesso!", vbOKOnly + vbInformation, "Concluído!"
End If

End Sub




Boa tarde
Tabelas e consultas não podem ter o mesmo nome

Entendi, estou tentando criar essa uma consulta mensal automaticamente.

Boa tarde,
Sim, mas o que pretende e não consegue?

Então, em uma tabela eu armazeno todos os dados, só que tenho um campo "Data", que é trocado todo mês, eu consegui fazer com que no final ele duplicasse essa tabela com o nome do mês atual e "zerava" os campos que eu escolhi para "zerar". Meu problema estava na criação da consulta automática dessa tabela que ele duplicava. Dividi essa tabela que continha todos os dados, fiz os devidos relacionamentos, e estou finalizando essa consulta. Por enquanto está suprindo as necessidades.

Obrigado pela Atenção Major


Vou marcar como Resolvido. Quando eu conseguir viabilizar essa consulta "automática" eu posto o BD aqui.