[Resolvido]Erro de impressão no relatório para o grafico

Olá,

Desenvolvi um pequeno aplicativo contábil que gera um relatório de inadimplência. Ele é executado através de um formulário. O relatório é composto por dados e um gráfico, durante a visualização as informações são geradas corretamente, mas quando solicitada a impressão ele apresenta uma janela solicitando as informações do formulário e não imprimi o gráfico. Já tentei de tudo, peço alguma ajuda, por favor. Abaixo esta o link com banco de dados.


https://mega.nz/#F!DBpVFAjD!mWVsAYSlrZwwiSh_uvth4g


Grato,

Peço mais uma vez ajuda dos nobres colegas. Depositei quase 3 meses neste projeto e não conseguir a quase duas semanas resolver o problema em questão.

Grato,

Olá Darlan Sandro,
Está a dar formato base de dados não reconhecido.
Sei que está em MDB, verifique o poste novamente.

Se a sua base de dados estiver com problemas, não compacte, efectue o seguinte:

1º backup (pode ser para zip)
2ª Criar MDB novo
3º Importar todos os obejctos (tabelas,consultas, forms, ... etc) da base de dados original
4º compactar /repara

Abraço

Bom dia Teixeira,

A reparação foi efetuada e deixei no link abaixo os dois tipos de arquivo. Fico no aguardo pelo seu auxilio, já não sei mais como proceder.

https://mega.nz/#F!DBpVFAjD!mWVsAYSlrZwwiSh_uvth4g


Grato,

Olá Darlan, compreendo a situação, no entanto não consigo abrir o seu projecto.

O seu problema está :

a) impressão de relatório; ou
b) base de dados em formato não reconhecido?

Caso seja a opção B, não consigo fazer nada, posso sugerir aquisição deste programa para reparação:
http://www.stellarinfo.com/access-database-repair.php

É possível ver os seus obejectos a partir da versão demo, veja:


Abraço

Bom dia Teixeira,

Veja se consegue abrir agora. Havia fragmentado o projeto, mas depositei todo o projeto agora. Acredito que consiga visualiza-lo. Uso o Office 2010. Abra-o segurando a tecla "Shift". Verifica o relatório "frm_rtl_inadimplencia", usei este relatório como exemplo, mais todos os relatórios do meu aplicativo estão com o mesmo problema. Peço perdão pela insistência, mas é porque não sei a quem recorrer. Veja enviei um vídeo demonstrativo do erro em mp4.


https://mega.nz/#F!DBpVFAjD!mWVsAYSlrZwwiSh_uvth4g

Olá, já compreendi.
Ainda não baixei, aqui só tenho o 2007.
Amanhã tento verificar no trabalho.
Abraço

Grato pela ajuda. Fico no aguardo

No entanto parece que você está a fechar o formulario onde coloca a empresa e o ano, se minimizar irá funcionar.
Caso pretenda fechar mesmo, terá que fazer a passagem dos valores escolhidos no form, poderá usar o OpenArg ou uma funcao para guardar os valores escolhidos pelo utilizador na aplicação.
Ajustando na consulta para ler esses valores.
Confirme e veja o que consegue.
Se não amanhã vejo como posso ajudar.
Abraço e bom Domingo

Teixeira,

Deixando a janela aberta funciona, a impressão esta correta. Mas o ideal seria não deixar a janela aberta. Desta forma, usei a função "OpenArgs" no formulário, "frm_rtl_inadimplencia", de execução do relatório

Código:


Private Sub btn_visualizar_Click()
DoCmd.OpenReport "rtl_inadimplencia", acViewPreview, OpenArgs
End Sub


Mas não funcionou. Não querendo abusar de sua boa vontade, você poderia dá-me um exemplo do uso desta função para o nosso caso.


Grato,

Olá, apesar de ter dito o openArgs, no caso será melhor uma função pública.
Pois você tem na consulta a dizer que é igual ao form....
Estou no telemóveis e não posso ajudar muito.

Explicando depois de o utilizador colocar os dados no formulário, ao clicar no botão antes do código que vai abrir o reporte, deve passar para a variável pública , exemplo

xVarPublicaEmpresa = me.nomecampo

Depois tem que criar uma funcaopublica para retornar o valor da variável para a consulta.

Efectue uma pesquisa aqui no fórum obter variável pública.

Abraco

Olá Darlan Sandro, para o pretendido foi efectuado o seguinte:

1º - Criado o módulo mod_VarGlobais, ficando assim:

Código:

Option Compare Database
Option Explicit

'AHTEIXEIRA 2015 - MaximoAccess
'Definir variáveis globais
Global GBL_Filial As Double
Global GBL_Ano As Integer

Public Function GetGBL_Filial()
   GetGBL_Filial = GBL_Filial
End Function

Public Function GetGBL_Ano()
   GetGBL_Ano = GBL_Ano
End Function

2º - No botão do formulário , ficou o seguinte código:

Código:

Private Sub btn_visualizar_Click()
    
    'verificar se preencheu
    If IsNull(Me.txt_filial) Then
        MsgBox "Escolha a filial", vbInformation, ""
        Me.txt_filial.SetFocus
        Exit Sub
    End If
    
    'verificar se preencheu
    If IsNull(Me.txt_ano) Then
        MsgBox "Escolha o ano pretendido.", vbInformation, ""
        Me.txt_ano.SetFocus
        Exit Sub
    End If
    
    'Atribuir às variáveis globais os valores
    GBL_Filial = Me.txt_filial.Column(0)
    GBL_Ano = Me.txt_ano
    
    'fechar form
    DoCmd.Close
    
    'abrir report
    DoCmd.OpenReport "rtl_inadimplencia", acViewPreview
    
End Sub

Verifica se os campos são preenchidos e atribuiu os valores do formulário às variáveis globais.


3º - Alterar na consulta, para ir buscar às variáveis globais, ficando assim:



Segue o meu teste Gestor_versao2010.zip
Nota: o ficheiro foi reduzido, apenas com a parte envolvida.
Abraço

Boa tarde Teixeira,


Agradeço imensamente sua ajuda. Na noite de hoje vou refazer o código. Amanhã informo se foi bem sucedido.

Grato

Teixeira muito obrigado, funcionou com perfeição.

Olá, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço