[Resolvido]Erro tempo de execucao imprimir relatorio.

Bom dia alguém tem alguma solução, ao carregar relatório para imprimir o software informa erro de tempo de execução.
Relatório é uma folha A4 com dois subrelatórios iguais que fazem referência as mesmas consultas.

Grato

Claudemir

Se Esse relatório tem código VBA.

Abra a folha do VBA e no menu Depurar escolha Compilar (nomedoteuaplicativo) , é a primeira opção.

Caso esteja tudo ok com o código, retire um subformulário e teste, pra ver se "funfa".

Se sim, então Copie e cole ele novamente.

Abraços

Noob

Noobezinho, a chamada do relatório é por VBA:

Private Sub BtImprimOS_Click()
On Error Resume Next
DoCmd.Save
Form.Refresh
DoCmd.OpenReport "Rel_OSImpressa", acViewPreview, , "CodAssistencia=" & [CodAssistencia], acWindowNormal
End Sub

Ao carregar relatório tem uma macro para maximar a janela.

E o erro é intermitente, geralmente tenho que desligar o BD de todas estações de trabalho para voltar conseguir imprimir.

Claudemir

Experimente mudar o Docmd.Save para:

Docmd.RunCommand acCmdSave

Abraços


Noob

Utilizei o comando, e continuou funcionando sem erros. Porém logo que várias estações abriram o aplicativo ocorreu novamente o erro.

Grato

Claudemir

Qual é o erro?

Tire uma ss e poste aqui pra gente ver

Noob

Não sei o que significar esta abreviação. Estou mandando a foto do erro.

Grato

A foto não veio


ss= Scree Save =Print = foto    


Aguardando

Desculpa, a extensão da imagem estava errado.

Claudemir

É, a mensagem não ajudou muito.

Mas caso  use o FE também nesse servidor (no computador onde estão as tabelas - BE), verifique o caminho de vinculação desas tabelas.

Se estiver por exemplo dessa maneira: C:\PastadoBE\ BaseDeDados.accdb, mude para o caminho UNC
( //servidor/c/pasta/BaseDados.accdb ).

TEM que se usar o caminho UNC mesmo no servidor, já que o BE está compartilhado, caso contrário, cada vez que abrir o FE no servidor, o mesmo irá bloquear o BE para as estações.

Veja se é isso

Editando: Outra Dica: Crie um outro relatório com base nessa(s) mesma(s) tabelas e experimente imprimir.

Abraços

Noob

Bom dia Noob

Não esta dividido o BD e também já havia criado outro relatório, também executado sem êxito.

Porém na filosofia tentativa-erro-tentativa, voltou a operar sem erro a modificar o código para:

Function ImprimirOS()
DoCmd.RunCommand acCmdSave
DoCmd.RefreshRecord
DoCmd.OpenReport "Rel_OSImpressa", acViewPreview, , "CodAssistencia=" & [Form_Form_AssistenciaLista].[CodAssistencia], acWindowNormal
DoCmd.PrintOut
End Function

Grato

Claudemir

Obrigado pelo retorno.

Pergunta que não querem calar:

Como que está usando um aplicativo compartilhado com estações de trabalho se ele não está dividido?

Como você faz quando precisa alterar algo no aplicativo? E como fica a consistência dos dados nas tabelas quando fizer isso?

Melhor repensar isso meu amigo, ou vai ter mais problemas no futuro.

Não precisa responder, foi só uma sugestão.

Boa sorte!

Abraços

Noob

Noob

Utilizo diretório compartilhado (pasta pública), o acesso parece ser mais rápido.

Felizmente há quase um ano não houve problemas.

Grato