[Resolvido]Erro de tempo de execução "3078"

Boa tarde Amigos, estou com problemas ao tentar emitir um relatório, ao tentar gerar o relatório me deparo com o seguinte erro:

"ERRO DE TEMPO DE EXECUÇÃO "3078"



Porém o depurador me mostra a seguinte linha de comando:

     'Carrega a tabela temporária ''tb_tmpContasAPagar'' para gerar o relatório de análise das contas pagas.
       stNomeTabela = "tb_CPagas"
       If Not IsNull(Me.OpcaoFornec) Then
           stCondicaoConsulta = stNomeTabela & "." & stCondicaoConsulta
       End If
       stConsultaBase = "INSERT INTO tb_tmpContasPagasePagar (CodigoConta, Parcelas, DtReg, DtPrev, DtEmis, DtVenc, DtPag, Hist1, VlPrev, VlParce, VlPag, CodFornec, Observacoes) " & _
                        "SELECT " & stNomeTabela & ".CodCPagas, NumParc & '/' & TotalParc AS Parcelas, " & stNomeTabela & ".DtRegistro, " & stNomeTabela & ".DtPrevisao, " & stNomeTabela & ".DtEmissao, tb_cpagar_parcela.VenctoParc, tb_lancamentocc.DtLancamento, [NomeFornec] & ' // ' & [DescTipoDocumento] & ' - Nº ' & [NumDoc] AS Historico1, " & stNomeTabela & ".VlPrevisto, tb_cpagar_parcela.ValorParc, (tb_lancamentocc.VlLancamento * -1), tb_Fornec.CodFornec, " & stNomeTabela & ".Observacoes " & _
                        "FROM (tb_tipodocumento INNER JOIN (tb_cpagar_parcela INNER JOIN (tb_fornec INNER JOIN " & stNomeTabela & " ON tb_fornec.CodFornec = " & stNomeTabela & ".CodFornec) ON tb_cpagar_parcela.CodCPagar = " & stNomeTabela & ".CodCPagas) ON tb_tipodocumento.IdTipoDocumento = " & stNomeTabela & ".TpDoc) INNER JOIN tb_lancamentocc ON tb_cpagar_parcela.CodLancamentoCC = tb_lancamentocc.CodLancamentoCC " & _
                        "WHERE " & stCondicaoConsulta & ";"
End Select

DoCmd.SetWarnings False
'Limpa a tabela temporária p/ receber novos registros.
DoCmd.RunSQL "DELETE from tb_tmpContasPagasePagar" <<- DEPURADOR
'Executa o acréscimo dos registros na tabela temporária para carregar o relatório.
DoCmd.RunSQL stConsultaBase
DoCmd.SetWarnings True

'Carrega o relatório de escolha
stNomeRelatorio = Me.OpcaoRelatorio.Column(2)
DoCmd.OpenReport stNomeRelatorio, acViewPreview

End Sub

Acredito que ele não está conseguindo criar essa tabela temporaria e na hora de limpa-la não acha a mesma.

Estou começando a analisar e tentar resolver problemas em VB, será que alguém pode me dar uma força nessa empreitada?

Agradeço muito.

Att,

teste

DoCmd.RunSQL DELETE * from tb_tmpContasPagasePagar

Ola Silvio, Obrigado.

Modifiquei a expressão do código SQL e o problema é o mesmo, depurando na mesma linha.

Muito obrigado.

Matheus, eu utilizo essa instrução ao salvar um registro...

Código:

 DoCmd.Save
        CurrentDb.Execute ("delete * from tblcadastrocliente Where cliente IS NULL")
        DoCmd.RunCommand acCmdRefresh
          MsgBox " Cadastro salvo com sucesso !", vbOKOnly, Me.Caption

onde:
a- tblcadastrocliente é a minha tabela.
b- where é a minha condição (cliente IS NULL)
c- cliente é um campo da tabela, que se estiver vazio, será deletado.

traduzindo o código acima......apague tudo na tabela cadastro de cliente onde o cliente está vazio.

Regras do Fórum

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Amigo Erick, observe que apenas letras maiúsculas no título ou nas mensagens não são permitidos nesse fórum.
Peço que corrija por favor.

Marcelo perdão, não prestei atenção nesse detalhe.

Silvio, não deu certo o erro persiste, acredito que ele não esta criando essa tabela e não acha.

Grato

erickluz,

Com a licença dos Amigos gostaria só de deixar um dica: Se você está suspeitando que a tabela temporária não está sendo criada, faça o teste sem a instrução de limpeza, ou seja, após executar o código - sem a instrução de limpeza - verifique se o objeto (tb_tmpContasPagasePagar) foi criado ou não.


Abraços,

Complementando na esperança de ajudar:

A sugestão do Silvio está correta, pois entre o DELETE e o FROM há de ter o asterístico ou campo.

O erro permanece porque a tabela temporária identificada como "tb_tmpContasAPagar" não foi criada, pelo menos é o que dá pra perceber no código apresentado.

Haveria de ter algo:
tabelaTemp = "tb_tmpContasAPagar"

e na hora de deletar, algo como:

"DELETE * FROM " & tabelaTemp

Editado:
#Mensagem n° 6, 7 e 8: As suspeitas foram para o mesmo lado.

Uilson, sua sugestão deu certo.

Havia alguns erros no script de criação que eu resolvi, e apaguei a função que limpava a tabela e funcionou.

Muito grato a todos os amigos.

Caso resolvido.

erickluz,

Que bom que resolveste ...


Abraços,