Still the EURO!

[MarionD]

I'm trying again - I hope some kind soul reads this and takes pity on me!

I need to flip through all the forms and reports in my Database and change the format of fields that have been tagged from "Currency" to "Euro". I'm sure this should be a relatively easy task but I just can't get it to work!

I previously just used a standard number for currency (so all Fields are set to Standard Number) but now with running 2 currencies parallel in Europe I have to print the Currency Symbol (either DM or €)

Please .....

Marion

 

[DJN]

Hi Marion,
Don't know if this is of any help but there is an article on the Microsoft Knowledge base. Just follow the link. http://support.microsoft.com/support/kb/articles/Q188/0/81.ASP?

David

 

[MarionD]

Hi David,
Thanks for the reply - my problem is not really with the Euro Symbol but with the code for moving through my forms and controls and with the actual Format property.

I need something like
For each Form in (all my forms)
for each ctl in frm.controls
if ctl.Tag is "DMEURO" then
ctl.Format ="EURO"
next ctl
next form

or something like that.... of course the ctl.tag and ctl.format don't work but I don't know what does!

Thanks again
Marion

 

[Rich]

If your only concerned with reports can't you add dummy labels and switch them?

 

[MarionD]

Hi Rich,

I suppose I could do that - it would be a lot of work to go through each Form and Report and add dummy labels - I would much rather change the format of the textfield - is it really not possible? Surely one must be able to change the format in VB?
I just need to know how to refer to the Format Property and Tag property of a control in VB!

 

[Jack Cowley]

This will work for each individual form...

Function MakeEuro(FormName As String)

Dim F As Form, x As Integer

Set F = Forms(FormName)

For x = 0 To F.Count - 1
If F(x).Tag = "DMEuro" Then
F(x).Format = "Euro"
End If
Next x
End Function

Call the Function with: MakeEuro("FormName")

[This message has been edited by Jack Cowley (edited 10-11-2001).]

 

[MarionD]

Jack did anyone ever tell you "You're a Star"!

Thats exactly what I was traing to do!
I'll try it right now (although it's now 11:30 pm in Germany!)

Thanks a million!

Marion

 

[MarionD]

Hi I'm back again,

Jack can you hold my hand and take me one step further - if I'm right this flips through the forms, but not each control on the form. I've laboriously tagged each control on each form that needs to be changed. Now I need the function to select one form, go through all the controls, change the tagged ones, then select the next form etc..

Thanks again!
Marion

 

[Jack Cowley]

Marion -

Time for bed for you!

The code as written only does one form at a time. I did not realize that you wanted to do all the forms in the database. (Guess I should get some glasses!) It will look at all the fields on the form and change those with the "DMEURO" in the Tag property. It does work, but only one form at a time....

 

[MarionD]

Hi Jack ,

You're right about the bedtime !

Now if I can just solve this problem I may even be able to sleep!
This is my setup - I have a pop up form where the user selects from an Option Group either DM (Deutsch Mark) or Euro, then click a button. I then convert all the Currency Fields in all the Tables (/ or * by 1.98853) but I now need to change the format on the forms and Reports so it's visible to the user in which Currency they are working.

I'm sure the changeover to Euro is a plot to rob me of my sanity!

Thanks again
Marion