• Home
 · 
• Custom Controls/Forms/Menus
 · 
• A simple textbox is used in currency format and mask. for example 1234567.000 is shown as 1,234,567

A simple textbox is used in currency format and mask. for example 1234567.000 is shown as 1,234,567

A simple textbox is used in currency format and mask. for example 1234567.000 is shown as 1,234,567.00.

Rate A simple textbox is used in currency format and mask. for example 1234567.000 is shown as 1,234,567

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'the code below
'create a text box ont the form and name it txtamount
Private Sub txtamount_KeyPress(KeyAscii As Integer)
    Dim c
    Dim l As Integer
    Dim digit As Integer
    digit = 0
    Dim value As String
    Dim newvalue As String
    If (KeyAscii >= 48 And KeyAscii <= 57) Then
        DoEvents
        If InStr(1, txtAmount, ".") > 0 And Len(txtAmount) - InStr(1, txtAmount, ".") > 1 Then
            KeyAscii = 0
            Exit Sub
        End If
        txtAmount = txtAmount & Chr(KeyAscii)
    ElseIf KeyAscii = 46 Then
        If InStr(1, txtAmount, ".") > 0 Then
            KeyAscii = 0
            Exit Sub
        End If
        txtAmount = txtAmount & Chr(KeyAscii)
        KeyAscii = 0
        Exit Sub
    
    ElseIf KeyAscii <> 8 Then
        KeyAscii = 0
    Else
        If txtAmount <> "" Then txtAmount = Mid(txtAmount, 1, Len(txtAmount) - 1)
    End If
        c = InStr(1, txtAmount, ".")
        If c = 0 Then c = Len(txtAmount) + 1
        For l = 1 To c - 1
            If Mid(txtAmount, l, 1) <> "," Then
                value = value + Mid(txtAmount, l, 1)
            End If
        Next
        For l = Len(value) To 1 Step -1
            If digit = 3 And Len(value) <> l Then
                newvalue = Mid(value, l, 1) & "," & newvalue
                digit = 0
            Else
                newvalue = Mid(value, l, 1) & newvalue
            End If
            digit = digit + 1
        Next
        c = InStr(1, txtAmount, ".")
        If c > 0 Then
            txtAmount = newvalue & Mid(txtAmount, c)
        Else
            txtAmount = newvalue
        End If
        SendKeys ("{END}")
        
        KeyAscii = 0
End Sub