[Resolvido]Erro se nao conter dados

prezados, em um relatorio aberto atraves de um formulario que determina o periodo pretendido, quando nao possue nenhuma informacao referente ao periodo este me retorna as seguintes telas:

erro em tempo de execucao  '-2147352567 (80020009)':
voce inseriu uma expressao que nao tem valor.

com os botoes (ativos) "fim", "depurar", "ajuda"

Se clicar no "depurar" pede depuracao nesta linha:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
booDetalhe = True
xsoma = Nz(xsoma, 0) + (Nz(Me!Credito, 0) - Nz(Me!Debito, 0))
Me!SaldoDia = Me!vi + xsoma
If Me!SaldoDia < 0 Then
   Me!SaldoDia.ForeColor = vbRed
Else
    Me!SaldoDia.ForeColor = vbBlue
End If
End Sub

se clicar em "fim" volta para o formulario principal como se nada tivesse acontecido.

tauron
Pode postar a BD para tentar obter ajuda ?

Algo assim

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
dim xsoma
booDetalhe = True
xsoma = Nz(xsoma, 0) + (Nz(Me!Credito, 0) - Nz(Me!Debito, 0))
Me!SaldoDia = Me!vi + xsoma
If Me!SaldoDia < 0 Then
Me!SaldoDia.ForeColor = vbRed
Else
Me!SaldoDia.ForeColor = vbBlue
End If
End Sub

Obrigado segue o bd. (Me desculpem mas não consegui atraves do forum)

https://www.dropbox.com/s/r6ix1jwamkiejpe/ErroFinc.zip?dl=0

Tente

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
booDetalhe = True
Dim X
X = Nz(xsoma, 0) + (Nz(Me!Credito, 0) - Nz(Me!Debito, 0))
Me!SaldoDia = Me!vi + xsoma
If Me!SaldoDia < 0 Then
Me!SaldoDia.ForeColor = vbRed
Else
Me!SaldoDia.ForeColor = vbBlue
End If
End Sub

Boa noite

Será isto ?

https://dl.dropboxusercontent.com/u/8169944/Finc.zip

Assis, show de bola !!

Obrigado Silvio

Show de bola !! Era o Péle, Jairzinho e o Tostão.

Abraço

Concordo contigo Assis !

Muito obrigado Assis, funfou legal. E a definicao da conta no formulario de filtro seria a proxima meta e vc já solucionou pois nao achava legal aquela pop up depois.
Valeu mesmo!!!!