Formatting a textbox for currency

I am taking data from a database and loading it into a form. The form and the database are connect using a Data Controller. I need one of the textboxes that is displaying the data to show the data as currancy. I know how to make a textbox display a variable as currancy, but I can't get any variation of this to work.

Thanks,
bsac4
New to VB

Quote:

---

Originally posted by bsac4
but I can't get any variation of this to work.

---

What variation are you after?

I just want the textbox to show the data being loaded into it from the database as currency. So that it would show up as $23.00 instead of 23.
Thanks!
bsac4

You mentioned that you can do it with a Variable. In this case, replace the Variable with the Control .Value. Eg.

VB Code:

'your code that is loading the "other" TextBox's
    Text1.Text = FormatCurrency([b]rs.(FieldName).Value[/b])

Where (in this case) rs is a RecordSet.




Bruce.

On one of my other forms, I do have the connection to the database coded, but on this form, I was trying to give the user a quick way to look through the files on the database (since this is a very small database). So I just used the Data Controller, which I added to the bottom of the form. Then in the properties window told it what databasae to connect to and which table. So now I am not sure how to tell it which rs. I tried

txtCostPerUnit.Text = FormatCurrency(Data1.CostPerUnit.Value)

Where Data1 is my Data Controller name and CostPerUnit is the field in the table that I want formatted, but it didn't work.

I know that I am probably just being slow here. Thanks for your patience!
bsac4

Hey no problem :)


What didn't it do? ie Not Format properly or didn't display any value?




Bruce.

I never use the Data control so I don't know if txtCostPerUnit.Text = FormatCurrency(Data1.CostPerUnit.Value) is valid, but unless Data1 is on the same form where that code is, you need to do

txtCostPerUnit.Text = FormatCurrency(frmOther.Data1.CostPerUnit.Value)

where frmOther is the name of the form where the Data1 control resides.

If it didn't dispaly any data, my guess is that you have ALL the (display) code in the Form_Load Event. If so, the Data Controller may not have extracted the Table data quick enough.

Try putting the 'txtCostPerUnit.Text = FormatCurrency(Data1.CostPerUnit.Value)' code under a CommandButton (or (still in the Form_Load) use 'DoEvents' prior to the TextBox's loading).




Bruce.

Quote:

---

Originally posted by MartinLiss
but unless Data1 is on the same form where that code is

---

He did. Its on the botom of the Form. ;)





Bruce.

I got a compile error:

Method or data member not found.

bsac4

Quote:

---

Originally posted by bsac4
I got a compile error:

Method or data member not found.

bsac4

---

What line of code?

txtCostPerUnit.Text = FormatCurrency(Data1.CostPerUnit.Value)

It highlights CostPerUnit as the problem.
bsac4

The Data Control may not have a .Value property.

What does the 'intelisense' (in the IDE) list give you when you type "Data1.CostPerUnit" (directly) followed by a "."?

Actually, I just realized that CostPerUnit isn't an option in the intelisense list and no list comes up when I add a . after it. I removed CostPerUnit and left it with Data1.

The options didn't show any field names or Value. It does have Database, DatabaseName, and RecordSource as . options for Data1 but I am not sure which would be a good starting point or how I should call it out.
Thanks,
bsac4

I am just knocking something up (in VBA) using Adodc1 :)

In the mean time there was a tutorial posted here using the Data Control.

Does this help:

VB Code:

txtCostPerUnit.Text = FormatCurrency(Data1.Recordset.Fields("CostPerUnit").Value)

Edit:
here is the use the of the (successfully tested) example above ;), like:

VB Code:

Option Explicit
 
Private Sub Data1_Reposition()
    txtCostPerUnit.Text = FormatCurrency(Data1.Recordset.Fields("CostPerUnit").Value)
End Sub

So that everytime you move thru the RecordSet the data will be Formated in txtCostPerUnit (even upon Load).




Bruce.

You are THE GREATEST!!!! Thanks. It worked perfectly!
bsac4