[Resolvido]Tipos Incompatíveis - Erro Tempo de Execução 13

Antes de Postar li diversos, mais de 20, tópicos com esse problema. Porém, não encontrei a solução.

Converti um banco de dados do access 2000 para o access 2007. Após a conversão um dos relatórios não está abrindo.

O erro apresentado é Erro Tempo de Execução 13 - Tipos Incompatíveis

A parte do código que é mostrada para depuração é:

#############

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim lngVermelho As Long, lngAmarelo As Long, lngBranco As Long, lngPreto As Long
lngVermelho = RGB(255, 0, 0)
lngPreto = RGB(0, 0, 0)
lngAmarelo = RGB(255, 255, 0)
lngBranco = RGB(255, 255, 255)

'Identificador de número negativo
   If Me![SomaSoma 3] < 0 Then
   Me![SomaSoma 3].ForeColor = lngVermelho
   Else
       Me![SomaSoma 3].ForeColor = lngPreto
   End If

End Sub

################

Será que alguém poderia me ajudar?

Boa noite, e bem-vindo ao fórum
Coloque
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'Identificador de número negativo
If Me![SomaSoma 3] < 0 Then
Me![SomaSoma 3].ForeColor = RGB(255, 0, 0)
Else
Me![SomaSoma 3].ForeColor = RGB(0, 0, 0)
End If

End Sub

Obrigado por responder.

Continuou com o mesmo erro. Tipos incompatíveis e apontou para a mesma linha ao depurar.

Tente
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'Identificador de número negativo
If Val(Me![SomaSoma 3]) < 0 Then
Me![SomaSoma 3].ForeColor = RGB(255, 0, 0)
Else
Me![SomaSoma 3].ForeColor = RGB(0, 0, 0)
End If

End Sub

Se não funcionar, disponibilize a parte da bd para se analisar

Obrigado pela ajuda.
Infelizmente não deu certo.

Segue parte do código.

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim lngVermelho As Long, lngAmarelo As Long, lngBranco As Long, lngPreto As Long
lngVermelho = RGB(255, 0, 0)
lngPreto = RGB(0, 0, 0)
lngAmarelo = RGB(255, 255, 0)
lngBranco = RGB(255, 255, 255)

'Identificador de número negativo
If Me![SomaSoma 3] < 0 Then
Me![SomaSoma 3].ForeColor = lngVermelho
Else
Me![SomaSoma 3].ForeColor = lngPreto
End If

No access 2000 esse código funciona perfeitamente, após a conversão para o access 2007 o código pára nesse ponto.
Desde já agredeço a ajuda.

End Sub

Tentei as duas sugestões mas não deu certo.

Está ficando amarelo exatamente nessa linha:

If Me![SomaSoma 3] < 0 Then

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

MsgBox Me![SomaSoma 3]

End sub



Erro Tempo de Execução 13
  Tipos Incompatíveis

E marca de amarelo a linha
MsgBox Me![SomaSoma 3]


Não sei se ajuda, mas o campo [SomaSoma 3] é o resultado de:

[SomaSoma 1]-[SomaSoma2]

Quando eu coloco
MsgBox Me![SomaSoma 1]

MsgBox Me![SomaSoma 2]

Dá o mesmo erro: Tipos Incompatíveis.

Após limpar a função o problema passou para outra parte do código.

Segue:

   Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim lngVermelho As Long, lngAmarelo As Long, lngBranco As Long, lngPreto As Long
lngVermelho = RGB(255, 0, 0)
lngPreto = RGB(0, 0, 0)
lngAmarelo = RGB(255, 255, 0)
lngBranco = RGB(255, 255, 255)

'Identificador de número negativo
   If Me![Diferença Estruturas Temporárias] < 0 Then
       Me![Diferença Estruturas Temporárias].ForeColor = lngVermelho
   Else
       Me![Diferença Estruturas Temporárias].ForeColor = lngPreto
   End If
  If Me![Total BB Diferença] < 0 Then
       Me![Total BB Diferença].ForeColor = RGB(255, 0, 0)
   Else
       Me![Total BB Diferença].ForeColor = RGB(0, 0, 0)
   End If

   If Me![Diferença Total Geral] < 0 Then
       Me![Diferença Total Geral].ForeColor = RGB(255, 0, 0)
   Else
       Me![Diferença Total Geral].ForeColor = RGB(0, 0, 0)
   End If

   If Me![Diferença TOTAL GERAL ] < 0 Then
       Me![Diferença TOTAL GERAL ].ForeColor = RGB(255, 0, 0)
   Else
      Me![Diferença TOTAL GERAL ].ForeColor = RGB(0, 0, 0)
   End If
End Sub


E ficou amarelo no local que grifei! Informando:

Tipos Incompatíveis - Erro Tempo de Execução 13

Agradeço demais a sua ajuda e dos colegas do forum, mas o banco de dados é muito grande, são mais de 200MB e não posso enviar.

Infelizmente não posso.



Agredeço muito a sua ajuda e vou continuar tentando alternativas para resolver.

Observer que todos os campos de soma do relatório estão aparecendo a palavra: tipo!

Na conversão alguma coisa deve ter sido alterada.

Avelino e Alexandre,

consegui resolver o problema e queria dar um retorno a vocês.

No access 2000 fiz referência a um campo que estava em um formulário... funciona perfeitamente.
No access 2007 ou 2010 a mesma referência dava erro Tipo Incompatíveis, eu mudei a referência para o mesmo campo só que em um relatório. O fato é que funcionou. Não sei o motivo, mas funcionou.

Muito obrigado pela ajuda


PS.: A coletânea ensina Access desde o começo? Quero indicar para alguns colegas da empresa e eu mesmo quero revisar e me aprofundar em alguns assuntos.

Muito Obrigado pela ajuda de todos.

Boa tarde,
Sendo utilizador com algum tempo do fórum, deveria saber que:
- o título do tema deve servir para condensar a dúvida e não ser utilizado para mensagem.
- quando resolver, agradecemos que informe a forma de resolução, para que possa ajudar outros
- deve marcar Resolvido no botão apropriado.

Alexandre, não entendi a sua mensagem.

Pois:
1- não sou utilizador com algum tempo;
2- informei a solução;
3- marquei resolvido no botão apropriado.

Dessa forma, não entendi a sua grosseiria, mas exatamente por você ter sido tão grosseiro, dou o assunto por encerrado.

Olá,
De facto, está registado desde 27 de Janeiro último. Foi lapso meu
Quando ao título, aparece "Muito obrigado pela ajuda de todos"
Não apareceu o Resolvido. Pode ter premido duas vezes o botão e a segunda marcação anulou a primeira.
Apesar de ser improvável, tudo pode ter acontecido por alguma inconsistência após a manutenção do fórum
Releve, então a mensagem anterior que lhe dirigi e entenda que estamos habituados a lembrar alguns esquecimentos e não sabemos distinguir claramente entre esquecimentos e descuidos.
Obrigado.