[Resolvido]Corrigir erro 13

Boa tarde amigos

Estou a tentar corrigir o erro 13 conforme "On Error GoTo TrataErro" abaixo, mas não está a resultar.

Alguém tem uma ideia ??

Private Sub Form_Current()
On Error GoTo TrataErro

If Me.Texto42.Value < 0 Then
Me.Texto42.Visible = False
ElseIf Me.Texto42 > 0 Then
Me.Texto42.Visible = True
End If

TrataErro:
If Err.Number = 13 Then
Resume Next
End If

End Sub

If Err.Number = 13 Then
       Err.Number=0
       Exit Sub
   Else

       MsgBox "Nº Erro: " & Err.Number & " - " & Err.Description
       Exit Sub
   End If

Tente assim...

Obrigado Fabio

Mas continua igual

Não entendi bem.....

Se o valor da caixa de texto menor que zero então
caixa de texto é desabilitada
Senão se o valor da caixa de texto mairo que zero então
caixa de texto é habilitada.

If Me.Texto42.Value < 0 Then
Me.Texto42.Visible = False
If Me.Texto42 > 0 Then
Me.Texto42.Visible = True
End If
End If


Acho que pode ser assim.

Olá Amigos,
Assim não deve resolver, está a dar um erro Type Mismatch (verifique o tipo de dados)
Poste em que parte do código é que está a dar o erro e qual é o valor e tipo da variável (String,date.intenger,...).
Abraço

Olá Assis, tente assim:

If val(nz( Me.Texto42.Value , 0)) < 0

Abraço

Olá de novo, fica melhor invertendo, caso o campo tenha só texto:

If nz( val ( me.Texto42.Value ), 0) < 0 then...

No telemóvel não é fácil, abraço

Boa noite

Teixeira

Aqui acertou - está a dar um erro Type Mismatch (verifique o tipo de dados)

Mas nenhuma das formulas resulta.

O campo "texto42" tem uma formula na origem do controle:

=(Nz([cg])-Nz([UContagemgas]))*[cvg]*[PC]

=Nz([cg],0)-Nz([UContagemgas],0)*[cvg]*[PC]

Bom dia amigos

Resolvi tirando a formula da origem do controle, e fiz em VBA.

Olá Assis, obrigado pelo retorno.

O teste que indiquei era para ser efetuado através do VBA (que acho que era onde estava a dar erro).
Não sei se era nesta linha de código que estava a dar o erro (If Me.Texto42.Value < 0 Then).
A questão do Type Mismach ocorre quando estamos a "trabalhar" diferentes tipo de dados, exemplos:
- Verificar se é menor que zero um campo de texto
- Comparar um campo tipo data com um boleano (true/false)

Fica a dica
Abraço