[RESOLVED] Code for currency field !!!

[seema_s]

Hi,

rs.Fields("InvoiceDate").Value = Format(Text3.Text, "dd-mm-yyyy")

The above code is written for the text box which shows the date.

Now, what I need is the code for Amount field which shows the invoice amount in the text box. How can it be modified to view like the below:

Rs. 5,000.25

Usually it shows the dollar sign but I don't need and also need to show the decimals also.

Please help.

[Static]

Format(Text3,"#,##0.00")

[dglienna]

If you want the comma, use this:

Option Explicit
 
Private Sub Form_Load()
  MsgBox Format(5000.25, "#,#.00")
End Sub

if not, use this:

Option Explicit
 
Private Sub Form_Load()
  MsgBox Format(5000.25, "#.00")
End Sub

[RhinoBull]

FormatNumber() function maybe a better choice:

FormatNumber(5000.25, 2) 'will output [B]5,000.25[/B]

[seema_s]

Format(Text3,"#,##0.00")

I am using access database and the field property for "AMT" is "CURRENCY".
Please help.

[aravindcm]

hi
as u have set the datatype as currency, what ever number u type in the text box is stored as #.00 format. so no need to worry about the format.

the value will be displayed in the currency format only, when u retrive from the db.

[RhinoBull]

... so no need to worry about the format...

No, no, no... If you don't format - numeric value will appear as it is stored in the database... So if you want to present formated number then use something like the following:

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
        Text1.Text = FormatNumber(Text1.Text, 2)
    End If
End Sub
 
'OR
 
Text1.Text = FormatNumber(rs!AMT, 2)
 
'OR
 
Text1.Text = FormatNumber(rs.Fields("AMT").Value, 2)

[seema_s]

No, no, no... If you don't format - numeric value will appear as it is stored in the database... So if you want to present formated number then use something like the following:

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
        Text1.Text = FormatNumber(Text1.Text, 2)
    End If
End Sub
 
'OR
 
Text1.Text = FormatNumber(rs!AMT, 2)
 
'OR
 
Text1.Text = FormatNumber(rs.Fields("AMT").Value, 2)

It works fine. Thanks a lot.

[RhinoBull]

Great! You're welcome.