Drawing circles

J

Janis in Minnesota

Is there a way to make the box a circle? I need to circle numbers on a
report. For example 1. would have a circle around it. Is there an
easy way to do this?

Thanks!

Janis
 
D

Duane Hookom

Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.
 
J

Janis in Minnesota

Do I have a text box and I set it to wingdings font and then in on format
somehow set it? I am unsure how to use this information. If you have
anymore information that would lead me down the right path that would be
awesome. For now I will play with this code some more.
Thanks!

Janis

Duane Hookom said:
Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.

--
Duane Hookom
MS Access MVP


Janis in Minnesota said:
Is there a way to make the box a circle? I need to circle numbers on a
report. For example 1. would have a circle around it. Is there
an
easy way to do this?

Thanks!

Janis
Click to expand...
Click to expand...
 
J

Janis in Minnesota

Wow - I did it! I created a field and set it to wingdings. I used the
following code to set the value: txtOne = chr(128 + 1) and this worked.
Thank you so very much!

Janis

Duane Hookom said:
Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.

--
Duane Hookom
MS Access MVP


Janis in Minnesota said:
Is there a way to make the box a circle? I need to circle numbers on a
report. For example 1. would have a circle around it. Is there
an
easy way to do this?

Thanks!

Janis
Click to expand...
Click to expand...
 
J

Janis in Minnesota

It worked thanks!!!!!

Janis in Minnesota said:
Do I have a text box and I set it to wingdings font and then in on format
somehow set it? I am unsure how to use this information. If you have
anymore information that would lead me down the right path that would be
awesome. For now I will play with this code some more.
Thanks!

Janis

Duane Hookom said:
Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.

--
Duane Hookom
MS Access MVP


Janis in Minnesota said:
Is there a way to make the box a circle? I need to circle numbers on a
report. For example 1. would have a circle around it. Is there
an
easy way to do this?

Thanks!

Janis
Click to expand...
Click to expand...
Click to expand...
 
J

Janis in Minnesota

The code worked for numbers 1 - 5 but I cannot get numbers to show up for
digits 11,12,13,15, 17 . . . and what about alpha?
Thanks!!!!! :)

Janis AGAIN . . . . sheesh . . . .

Janis in Minnesota said:
Wow - I did it! I created a field and set it to wingdings. I used the
following code to set the value: txtOne = chr(128 + 1) and this worked.
Thank you so very much!

Janis

Duane Hookom said:
Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.

--
Duane Hookom
MS Access MVP


Janis in Minnesota said:
Is there a way to make the box a circle? I need to circle numbers on a
report. For example 1. would have a circle around it. Is there
an
easy way to do this?

Thanks!

Janis
Click to expand...
Click to expand...
Click to expand...
 
D

Duane Hookom

Your example was only a single digit so I provided a solution to meet your
requirements. You can also use the Circle method of a report to draw circles
anywhere you want on the report. The following code draws a circle around a
text box "txt1" in the detail section of the report.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngVertCenter As Long
Dim lngHoriCenter As Long
lngHoriCenter = Me.txt1.Left + (Me.txt1.Width / 2)
lngVertCenter = Me.txt1.Top + (Me.txt1.Height / 2)
Me.Circle (lngHoriCenter, lngVertCenter), Me.txt1.Width * 0.6
End Sub


--
Duane Hookom
MS Access MVP


Janis in Minnesota said:
The code worked for numbers 1 - 5 but I cannot get numbers to show up for
digits 11,12,13,15, 17 . . . and what about alpha?
Thanks!!!!! :)

Janis AGAIN . . . . sheesh . . . .

Janis in Minnesota said:
Wow - I did it! I created a field and set it to wingdings. I used the
following code to set the value: txtOne = chr(128 + 1) and this
worked.
Thank you so very much!

Janis

Duane Hookom said:
Consider using the Wingdings font. A value of Chr(128+[YourDigitField])
should equal the digit with a circle around it.

--
Duane Hookom
MS Access MVP


in
message Is there a way to make the box a circle? I need to circle numbers
on a
report. For example 1. would have a circle around it. Is
there
an
easy way to do this?

Thanks!

Janis
Click to expand...
Click to expand...
Click to expand...
 
Top