How can I set a text boxt value to a Wingdings character code

[efandango]

I want to be able to set a text box value to a Msoft Windings front (which is
an Arrow symbol). The code for the symbol in the MSoft Character Map utilty
is 0xE9. How can I implement this character code in my code sample below, so
that instead of txt_Direction_box = Up, it becomes txt_Direction_box = 'Arrow
Symbol'


If Me.txt_Answer = North) Then
txt_Direction_box = Up
End

 

[Jeff Boyce]

Take a look at setting a font for a control. That text box value could
be/is whatever key gives you that particular WindDing character.


Regards

Jeff Boyce
Microsoft Office/Access MVP

 

[fredg]

I want to be able to set a text box value to a Msoft Windings front (which is
an Arrow symbol). The code for the symbol in the MSoft Character Map utilty
is 0xE9. How can I implement this character code in my code sample below, so
that instead of txt_Direction_box = Up, it becomes txt_Direction_box = 'Arrow
Symbol'

If Me.txt_Answer = North) Then
txt_Direction_box = Up
End

First set the control's Font to Wingdings.

If Me.txt_Answer = "North" Then
txt_Direction_box = chr(233)
Else
txt_Direction_box = .....what ?.....
End If

To find the Ascii value of a character, select and copy the character
from the Character Map grid.
Open Access.
Click Ctrl + G
When the debug editor opens, write:
? Asc("paste the copied character here")
Because the editor is not using Wingdings, the above will appear as
? Asc("é")
The value appears under the above line.
233

When you use Wingdings, the displayed character will be the wingdings
arrow up.

 

[efandango]

Fred,

Thanks for replying with your advice. It worked a treat, much appreciated.

regards

Eric