Wingding characters with decimal values (1 Viewer)

[HeelNGville]

Thanks in advance for suggestions.

Within a specific report, I have a field named ‘Rating’ that will have a numerical range from 0.0-5.0. Basically, I was hoping to insert a ratings view by utilizing special wingdings characters. I can achieve the results I need until the introduction of a decimal value.

For example, if a ‘Rating’ is 2.0, the formula =String([RATING],"ê") produces:

** (2 solid stars). No wingding font to display

Which is exactly what I need. However, when of the decimal rating ranges from 0.50-.0.75 I would like for another character to trail. For example, suppose the rating is 4.6, the result I hope to obtain same as above, however decimal portion would be a different character. Basically “ê” for full stars, and “ó” for half stars.

Any recommendations? Thanks!

 

[vbaInet]

Something like:

=String(Fix([RATING]), "ê") & "." & String(Val(Mid([RATING], Instr(1, [RATING], ".") + 1)), “ó”)

 

[HeelNGville]

Thank you. I receive a 'Enter the Parameter value' dialog for the "ó" character. The character is in the font set, any ideas?

Thanks again.

 

[jer]

vbaInet I got a problem.. how do i contact you?

 

[vbaInet]

It's the way you wrote it, which I copied and pasted into my code.

It should be "ó" not “ó”

 

[HeelNGville]

Duh, thanks.

Although, now the entire result is a repeated value. For example, a rating of 2.5 is appearing as

êê.óóóóóóóóóóó (actual wingding characters) Formula is:

=String(Fix([OVERALL_RATING_NBR]),"ê") & "." & String(Val(Mid([OVERALL_RATING_NBR],InStr(1,[OVERALL_RATING_NBR],".")+1)),"ó")

 

[vbaInet]

vbaInet I got a problem.. how do i contact you?

Welcome to the forum!

You don't need to contact me, just post a new thread and one of us should pick it up.

 

[HeelNGville]

vbaInet. Thanks again for your help. I was able to obtain the results that I needed by slightly tweaking your formula as such:

=String(Fix([OVERALL_RATING_NBR]),"ê") & "ó" & String(Val(Mid([OVERALL_RATING_NBR],InStr(1,[OVERALL_RATING_NBR])+1))," ")

So 2.5 would yield:
êêó (characters not text)

Thank you again!

 

[vbaInet]

Goodie!

I thought .5 would repeat ó five times? Is that not the case then?

 

[HeelNGville]

Nope. Just once.

Thanks!

 

[vbaInet]

What would the result be if it's 2.0?

 

[HeelNGville]

Ahhh. Yep, results are displaying character equivelant of 2.5

êêó

Well, spoiled my 5 minutes of victory. Any suggestions?

 

[vbaInet]

At least you had some minutes of celebration and I'm sure it felt good... whilst it lasted

Are they all Fixed dps? i.e. 1 dp?

 

[HeelNGville]

Ha ha. So much for banging my chest in my Tarzan like moment of glory.

Yes, fixed single position.

 

[vbaInet]

Maybe you can resume your celebration with this:

=String(Fix([OVERALL_RATING_NBR]), "ê") & String(Abs(Val(Right([OVERALL_RATING_NBR] * 10, 1)) > 0) * 1, "ó")

... make sure you do it in a real jungle this time

 

[HeelNGville]

Eureka! Many thanks...again!

 

[vbaInet]

You're welcome!

I hope you understand the logic?

 

[HeelNGville]

Yes, I follow the logic. Thank you!

 

[vbaInet]

Good stuff!

 

[RenaG]

How do you put the special character in the statement?

For example, if a ‘Rating’ is 2.0, the formula =String([RATING],"ê") produces:

I have a report that I would like to put a check mark if the tested field is a certain value:

=IIf([EthnicityID]=1,Chr(252)," ")

I looked up the Wingding value through Word but the character code is decimal and doesn't show up correctly in the report.

TIA!
~RLG