MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

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

    Mensagem  FabioR 26/4/2023, 17:50

    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
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

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

    Mensagem  adriano.ig 3/5/2023, 16:07

    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
    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

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

    Mensagem  FabioR 4/5/2023, 07:49

    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
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

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

    Mensagem  adriano.ig 4/5/2023, 09:47

    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.
    avatar
    FabioR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 27/10/2021

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

    Mensagem  FabioR 5/5/2023, 06:56

    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.
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

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

    Mensagem  adriano.ig 5/5/2023, 09:16

    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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/5/2024, 04:13