Ciao a tutti,
Sto cercando di formattare il contenuto di una TextBox in modo tale da aggiungere "." e "," sull'evento Change ovvero mentre l'utente scrive il prezzo di vendita di un prodotto.
la procedura su cui sto lavorando è la seguente:
'************************************************* ***********
Private Sub txt_prezzo_vendita_Change()
Dim Prezzo As Currency
Dim Prezzoformattato As Currency
If Trim(Me.txt_prezzo_vendita) <> "" And Not IsNull(Trim(Me.txt_prezzo_vendita)) Then
Prezzo = txt_prezzo_vendita.Text
txt_prezzo_vendita.Text = FormatNumber(Prezzo, 2)
End If
End Sub
'************************************************* *************
Il problema è che ogni qualvolta la funzione FormNumber aggiunge il "." il pront di scrittura della casella di testo appare all'inizio e non nella posizione seguente al carattere appena digitato, dando origine in questo modo a una sequenza di caratteri assurdi.
La procedura funziona bene invece sull'evanto "Validate"
Rispondi quotando
