How to enter symbol like triangle in a text box?

I have a text box where I like to enter special characters. For example insted of:

txtTest = "A"

I would like to have:

txtTest = <the shape of a triangle>

I am specially interested in having:

txtTest = <the shape of paper clip>

txtTest = chr(??) ' what should the value of ?? for a paper clip?

"paper clip" is like the one used by outlook to show an email has some attachments.

Please note that I want to use a text box not a lable or an image controls. I am using Access.

Thank you.
LVL 34
Mike EghtebasDatabase and Application DeveloperAsked:
Who is Participating?
 
tonydemarcoCommented:
Look in your Character Map for Wingdings 1 and 2 for a symbol
0
 
tonydemarcoCommented:
Try this free truetype download

http://www.fontstock.net/9514/Paper-Clip.html

use the letter I.
0
Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

 
cupCommented:
Triangle Wingdings3 hex 70
Paper clip - what do you think of webdings hex 27?  It is actually a link

You may have to look for some font with a paper clip in it.  I think the one used in Outlook is a bitmap.
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
tonydemarco,

I changed the font for txtTest to Wingdings but I do not know what key combinations I have to use to se the paper clicp.

I will look on the web trying to locate it.

Mike

0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
tonydemarco,

I don't want make the user to download it. I am hopping just to locate it from window xp environment.

Mike
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
cup,

I will try webdings hex 27. Would be like:

txtTest = chr(hex 27)

using code?

What key combination if code didn't work?

re:> I think the one used in Outlook is a bitmap.

You are right about that; but I need as a text.

Thanks,

Mike


0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
cup,

Entering =Chr(27) in the control sorce of the text box gives me an square. and the following errors:

=Chr(hex 27)

MIKE



0
 
tonydemarcoCommented:

re: "I don't want make the user to download it.
I am hopping just to locate it from window xp environment."

I can not find any standard WinXP font with a paperclip.
Free TrueType Paperclip font may be the only way.

Other option is a bitmap of a paperclip that has it's property set to Visible = False (No) until the value
of a textbox is "A" then Visible = True (Yes).

Sorry!
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
tonydemarco,

Instead of paper clicp, I could use a pin which I located under Wingdings chart.

Its hey word code is e with umulats (two ..) above it.
Its code is <font face="Webdings">&#235;

And how to use it with =Chr(...)  is my question.

Please note  Webdings here is different from Wingdings.

Maybe this is for web applications only. I am working on a desktop access application.

Would we be able to display the pin now instead of paper clip?

Thank,

Mike
0
 
tonydemarcoCommented:
Problem #1 is being able to place a value in the data table that will give you a "push pin" from Webdings without setting the entire tables fonts to Webdings. (that sounds like fun but not practical) So what you want to do is equate some value in your table Like the "A" or "Y" or "N" to do something in your form like display a paperclip.
Once again the best way to accomplish this is through a paperclip bitmap that can be stored right in the form ie. "Picture Type "Embedded"".
See my attached code example to trigger the event.
Private Sub Form_Current()
If Me.EMail = "Y" Then
Me.paperclip.Visible = True
Else: Me.paperclip.Visible = False
End If
End Sub

Open in new window

0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
re:> tables fonts to Webdings

I am willing to do this. Furthermore, this is not a bound text box and it will be the issue. All I need to do set the text box font name to Webdings.

Please have in mind, as stated in the original question, I have to have a text box. This is because I need to apply some conditional formatting which is not available to labels, image controls, etc.

Regarding your code, this is a continous form and and unbound controls are either or visible or all invisible.

=================
Please help me with my last post:

Its key-word code is e with umulats (two ..) above it.
Its code is <font face="Webdings">&#235;

And how to use it with =Chr(...)  is my question...

Thanks.

Mike

0
 
cupConnect With a Mentor Commented:
In VBA, hex 27 would be &H27 but if you wish to use the bigger numbers i.e bigger than 127, use chrw instead of chr.
0
 
tonydemarcoCommented:
Create a textbox called and put this in the data control source

=IIf([YourControl] Like "y",Chr(235),"")
0
 
tonydemarcoCommented:
oops!
Create a textbox and set its font to WebDings 14pt and put this in the data control source

=IIf([YourControl] Like "y",Chr(235),"")
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
cup,

hex 27 compared to <font face="Webdings">&#235, I will choose 235.

I changed the font to Webdings but I am not able to get the pin shape (fat borad pin @ 45 degree). Is it possible to make this work? I am using:

Text37 = ChrW(&H235)   ' comapred to >&#235 from the chart.
=======
tonydemarco,
Using your method, how can I show the pin?
               v--- what do you mean? Text37 goes here?
=IIf([YourControl] Like "y",Chr(235),"")

Thank you,

Mike
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
tonydemarco,

Thank you for the sample database. I really appreciate it. Upon openning of the form, I get the following message:

"Your Microsoft Office Access database or project contains a missing or broken reference to the file 'QTOControl.dll' version 1.0.

* To ensure that your database or project works properly, you must fix this reference."

No I am trying to fix this by adding it to my references. Is QTOControl.dll is a complete name?

I hope I don't have to install QTOControl.dll in my computer (company desktop). Our IT department wouldn't like this.

Mike
0
 
tonydemarcoCommented:
No, you don't have to install the control. It is a reference to QuickTime toolbox control.
Either just disregard it or uncheck the reference.
[Alt - F11] - Tools - References.
0
 
tonydemarcoCommented:
Look for a reference that says "missing reference" then uncheck it.
Name of control is Apple QuickTime Control. It allows you to play QuickTime Video in a form.
Not needed here.
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
tonydemarco,

That worked. Thank again.

Mike
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I will close this question shortly. My browser is acting up a bit.

Mike
0
 
cupCommented:
Have a look at the character 0x47 in the font MS Outlook.
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
Thank you.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.