[Resolvido]MsAccess fecha-se quando não tem resultados ao executar o extrato

Exmos
Tenho este código para gerar extratos de conta corrente.
No entanto se não existirem dados o Access cai e tenho de voltar a entrar o que se torna numa chatice.
Existe alguma forma de fazer uma validação antes de iniciar?
Se não tiver dados, mostra uma janela informativa a dizer que não tem dados para apresentar, se tiver dados executa o procedimento.
Como posso adaptar isso no código?


A consulta que alimenta o extrato, chama-se Tabela1

Código:



SELECT Movimentos.Data, Movimentos.Montante AS Valor, Movimentos.Cliente, Movimentos.Descrição, Movimentos.Tipo
FROM Movimentos
WHERE (((Movimentos.Descrição)<>"Saldo Abertura"));



O código que faz o calculo do extrato é este:

Código:


Option Compare Database
Dim dblAcumulado As Double


Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Dim strFiltro$
strFiltro = "Cliente ='" & Forms!frmExtrato!cboTexto & "' and "
strFiltro = strFiltro & "[data] < #" & Format(Forms!frmExtrato!dataInicial, "mm/dd/yyyy") & "#"
Me!SaldoAnterior = Nz(DSum("Valor", "Tabela1", strFiltro), 0)
dblAcumulado = Me!SaldoAnterior
End Sub

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
dblAcumulado = Me!Valor + dblAcumulado
Me!saldo = dblAcumulado
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub Report_Open(Cancel As Integer)
Dim strFiltro$
strFiltro = "[Cliente] ='" & Forms!frmExtrato!cboTexto & "' and "
strFiltro = strFiltro & "([data] between #" & Format(Forms!frmExtrato!dataInicial, "mm/dd/yyyy") & "# "
strFiltro = strFiltro & "AND #" & Format(Forms!frmExtrato!DataFinal, "mm/dd/yyyy") & "#)"
Me.RecordSource = "SELECT * FROM Tabela1 WHERE " & strFiltro & " ORDER BY [data];"
End Sub

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
dblAcumulado = 0
End Sub


Olá Nelio,

Tente em primeiro apertar as teclas ALT+F11 -> Debug ->Compile e verificar se tem erros, se tiver corrigir.
Experimente fazer Compatar/Reparar.
Se mantiver o erro, tente criar uma nova base de dados e importar todos os objetos e testar.

Abraço

Obrigado pela colaboração.
O código corre bem desde que existam dados para projetar, por isso essa não será a solução.
O problema está quando não existem dados para projetar, e aí sim o programa fecha-se, porque se existirem valores na BD para realizar este código está tudo ok.
A solução que vejo possível, embora não o saiba fazer será:
Se não existirem dados para projetar mostrar uma mensagem "Não existem dados para mostrar" e faço ok para fechar a msgbox terminando o procedimento, caso existam valores a mostrar, executar o código dos extratos.
Assim, quando não existirem dados na fonte, já não fará o MsAccess ir abaixo.
Mas não sei como fazer essa construção no VBA.
Abraço

Boas, apenas um pitaco.


Tente usar a função NZ. Abaixo em teu código, apenas um exemplo, terá que adequar a tua realidade.

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
NZ(dblAcumulado) = NZ(Me!Valor) + NZ(dblAcumulado)
NZ(Me!saldo) = NZ(dblAcumulado)
End Sub

Olá a todos,

Olá Nelio, caso a sugestão do colega Silvio não ajude.
Eu sou da opinião que não é normal o programa fechar (a menos que tenha a instrução quando der erro sair do programa).
Uma solução seria verificar se tem os tais ditos dados e se não tiver não executar.
Outra seria colocar no modo parar em todos os erros e verificar qual o erro.

Abraço a todos

Obrigado a todos

Boa Tarde
Deixo a solução do problema.

Código:

Private Sub btRelatorio_Click()
If DCount("*", "[Tabela2_val_extr]") > 0 Then
        DoCmd.OpenReport "rltMovimento", acViewPreview
Else
        MsgBox "Não tem registos para mostrar"
    End If
End Sub


Assim faz uma validação pela existência de dados evitando que o MsAccess se feche por falta de dados.
Obrigado a todos, tenho aprendido mais aqui que em muitas formações que comprei....