Menssagem "impossível abrir nova tabela" após rodar o comando abaixo

Bom dia!

Depois de gerar alguns relatórios em PDF o access trava e apresenta a tela "impossível nova tabela"...
O que estou fazendo de errado no comando abaixo;

Dim rs As DAO.Recordset
Dim sql As String
sql = "Select * From Aluno"
Set rs = CurrentDb.OpenRecordset(sql)
Do While Not rs.EOF
idcdemons = rs.Fields(0)
DoCmd.OutputTo acOutputReport, "RelFinanceiro_porAluno_bt", acFormatPDF, "C:\Financeiro\Demonstrativo de Pagamento\Mensalidade\" & Ano & "\" & Mes & "\" & rs.Fields(1) & ".pdf"
DoCmd.OutputTo acOutputReport, "Relatorio Mensal de Horas Extras_btADM", acFormatPDF, "C:\Financeiro\Demonstrativo de Pagamento\Mensalidade\" & Ano & "\" & Mes & "\" & rs.Fields(1) & " - Demonstrativo Mensal de Hora Adicional" & ".pdf" & ""
rs.MoveNext
Loop
Set rs = Nothing
idcdemons = Empty
End Sub

Bom dia FábioR!

O problema pode estar sendo causado pela linha "idcdemons = rs.Fields(0)", que está tentando atribuir o valor do primeiro campo da tabela Aluno à variável idcdemons, mas a variável idcdemons não foi declarada em seu código. Se você não definiu essa variável em outro lugar do seu código, isso pode estar causando o erro "impossível nova tabela".

Uma solução seria declarar a variável idcdemons antes de usá-la, por exemplo:

Dim rs As DAO.Recordset
Dim sql As String
Dim idcdemons As Integer ' Declare a variável idcdemons
sql = "Select * From Aluno"
Set rs = CurrentDb.OpenRecordset(sql)
Do While Not rs.EOF
idcdemons = rs.Fields(0)
DoCmd.OutputTo acOutputReport, "RelFinanceiro_porAluno_bt", acFormatPDF, "C:\Financeiro\Demonstrativo de Pagamento\Mensalidade" & Ano & "" & Mes & "" & rs.Fields(1) & ".pdf"
DoCmd.OutputTo acOutputReport, "Relatorio Mensal de Horas Extras_btADM", acFormatPDF, "C:\Financeiro\Demonstrativo de Pagamento\Mensalidade" & Ano & "" & Mes & "" & rs.Fields(1) & " - Demonstrativo Mensal de Hora Adicional" & ".pdf" & ""
rs.MoveNext
Loop
Set rs = Nothing
idcdemons = Empty
End Sub

Obrigado por analisar o meu problema, mas a variável está declarada.
O que tem ocorrido é que a tabela Aluno tem mais ou menos 100 alunos e por volta do aluno 60 ele apresenta essa tela de "impossível abrir nova tabela".
Antes disso ele faz certinho a criação dos arquivos PDFs

Se você observar bem o código que postou na sua mensagem verá que a variável não está declarada. Mas para nos ajudar a te ajudar, poste o seu banco para analisar o problema.

Agora complicou Adriano.
Nao sei se me fiz entender. Variável não é pq alguns relatórios sao gerados certinhos.
O que ocorre é que em um determinado numero de registro ele trava e diz que nao pode abrir nova tabela ou simplesmente fecha o access.

De qualquer forma, criei um banco de dados novo só com o necessario para mostrar o erro, mas ele executou tudo sem dar o erro mencionado.
Nao sei como poderá me ajudar, pois nao posso mandar o original com as informações que tenho.

Hummm. Mas nesse caso, em que rodou tudo no novo banco sem erros, todos os processos esperados foram executados? Caso afirmativo, vale fazer a tentativa de compactar e reparar o banco de dados original. Caso não funcione, importe tudo para o qual o erro não aconteceu. E ao importar verifique se há objetos que não são mais necessários, mas que estão presentes no banco, isso as vezes acontece de deixarmos algo ali no banco que foi criado para algum teste, mas não é mais necessário agora, principalmente se envolver programação o que pode acarretar conflitos com os demais códigos. Tenta esses procedimentos e veja se surte algum efeito.

Aguardo o retorno.