Draw an Ellipse on a Report

  • Thread starter Thread starter Kaykayme
  • Start date Start date
K

Kaykayme

I would like to circle with an ellipse Field2 if it is different from Field1
on the report. I saw code on this before to achieve this programmatically.
Any suggestions?
 
I would like to circle with an ellipse Field2 if it is different from Field1
on the report. I saw code on this before to achieve this programmatically.
Any suggestions?
Click to expand...

I think I would first create an ellipse using Excel or Word (use the
Draw Toolbar), then copy it and paste it into your Access report.
Place it over the Field2 control and use Format + Send to Back to
position Field2 on top of the Ellipse image.
Then code the Detail Format event:

Me.[OLEUnboundName].Visible = Me.[Field2] <> Me.[Field1]
 
Kaykayme said:
I would like to circle with an ellipse Field2 if it is different from Field1
on the report. I saw code on this before to achieve this programmatically.
Click to expand...


Use the Circle method. Maybe something like:

With Me.Field2
If .Value <> Me.Field1 Then
Me.Circle (.Left + .Width / 2, .Top + .Height / 2), _
.Width / 2, , , , 0.3
End If
End With
 
Thanks. This is what I was looking for.

Marshall Barton said:
Use the Circle method. Maybe something like:

With Me.Field2
If .Value <> Me.Field1 Then
Me.Circle (.Left + .Width / 2, .Top + .Height / 2), _
.Width / 2, , , , 0.3
End If
End With
Click to expand...
 
Thanks for your help. Before I got the reply I already did this but wanted a
formula using the Circle method. Actually, I was not able to cut and paste
from Word or Excel. Used PowerPoint where I could save the drawing as a
picture file then insert into report as image.

fredg said:
I would like to circle with an ellipse Field2 if it is different from Field1
on the report. I saw code on this before to achieve this programmatically.
Any suggestions?
Click to expand...

I think I would first create an ellipse using Excel or Word (use the
Draw Toolbar), then copy it and paste it into your Access report.
Place it over the Field2 control and use Format + Send to Back to
position Field2 on top of the Ellipse image.
Then code the Detail Format event:

Me.[OLEUnboundName].Visible = Me.[Field2] <> Me.[Field1]
Click to expand...
 
Back
Top