Uso do Backspace no textbox

[Erika Tímpano]

:blink:

Quando o usuário utiliza o Backspace para limpar o campo, dá o seguinte erro:

Erro em tempo de execução 13

Tipo incorreto :wacko:

'Trava percentual - MA
Private Sub percMA_Change()
If percMA.Value > 100 Or percMA.Value = "" Then
MsgBox ("Percentual máximo = 100%"), vbOK
percMA.Value = 100
End If
End Sub

Alguém pode me ajudar a solucionar este problema?

Obrigada!

[kuroi]

acho q é porque você ta tentando comparar numeros quando o conteudo do textbox não é numerico (o q inclui quando ele esta em branco). o percMA.Value > 100 vai retornar erro porque o percMA.Value não é numerico. você pode testar antes se é numerico com a funcao IsNumeric().

[Erika Tímpano]

perfeito!