[Resolvido]quando digitar um valor de evento e este é debito, o numero fica negativo

Boa tarde!

Estou aqui de novo para solicitar uma ajuda na questao  abaixo:


Descricao: Despesas com medico

Custo a digitar: ????(-) " preciso que fique negativo 20,00.... (-20,00)

Evento : [d] Debito

Alguem conhece uma rotina que faca isso? isso é uma mascara? é um codigo vb

Grato.

No evento Apos atualizar desse campo onde vc digita o Valor coloque:

Private Sub Texto14_AfterUpdate()


If Me.txtTipo= "Debito" Then
Me.Texto14 = "-" & Me.Texto14
End If


End Sub


Nesse Caso, eu digito no Campo chamado Texto14 o Valor (1000,00)
Se no campo txtTipo tiver selecionado "Debito" significa que sai... entao eu automaticamente coloco um sinal de - no valor

Me.Texto14 = "-" & Me.Texto14