Textbox omzetten naar Valuta

[JacquesL]

Goedemiddag,

Na heel veel zoeken op Google en dit Forum kan ik helaas (nog) niet het juiste antwoord vinden. Graag jullie hulp, zal wel iets kleins zijn wat ik over het hoofd zie

Als ik onderstaande code gebruik en ik wil in de Textbox b.v. het bedrag € 225,00 invullen verschijn er direct € 2,00 daarna kan ik hier niets meer mee.
Waar moet ik de code in wijzigen?

Private Sub txtFactuurbedrag_Change()
    txtFactuurbedrag.Value = Format(txtFactuurbedrag, "Currency")
End Sub

Alvast bedankt
Jacques

 

[gast0660]

Gebruik

Private Sub txtFactuurbedrag_AfterUpdate()

 

[JacquesL]

Top Philiep,

Werkt. Nog één klein vraagje. Als je op het numerieke gedeelte van het toetsenbord een bedrag invult met een punt maakt hij er een heel groot bedrag van. gebruik je de komma niet. Om het gemak te bevorderen. Kan de punt van het numerieke toetsenbord automatisch omgezet worden naar een komma?

Groetjes
Jacques

 

[gast0660]

Private Sub txtFactuurbedrag_AfterUpdate()
txtFactuurbedrag = Replace(txtFactuurbedrag, ".", ",")
txtFactuurbedrag.Value = Format(txtFactuurbedrag, "Currency")
End Sub

 

[JacquesL]

Bedankt Philiep,

Alles werkt.

Groet
Jacques

 

[gast0660]

Dank voor de terugkoppeling.:thumb:
Suc6

 

[HSV]

txtFactuurbedrag = format(Replace(txtFactuurbedrag, ".", ","), "currency")

 

[snb]

Ik zie geen reden in de textbox wijzigingen aan te brengen: laat de gebruiker gegevens invoeren in de vorm 12,30 of 12.30. Gewoon laten staan.
Pas als je met de gegevens in VBA gaat werken is de aanpassing - komma vervangen door punt- nodig.
Het Euroteken hoeft niet in het tekstvak te staan; dat kan ervoor of erachter.