[AccessD] Circle method

No, no, no... of course the three sets of circles are different --

When the editor ran a tech edit each set of circles were different from my
set of circles (I had shot figures of mine). He pasted the code from his mdb
into mine (both on the same system) and the pasted code worked just as I had
said -- so outside of my mdb on his system, he gets different results from
my results...

Susan H.


> Susan,
>
> Are you saying that you got different shapes, different sizes, different
> colors or different aspects from what you expected in different
> databases?  The three sets will certainly be different but what were you
> expecting?
>
> Charlotte Foust
>
> -----Original Message-----
> From: Susan Harkins [mailto:harkins at iglou.com]
> Sent: Thursday, August 28, 2003 3:51 PM
> To: AccessD at databaseadvisors.com
> Subject: [AccessD] Circle method
>
>
> Below, I've listed a simple example of using the Circle method. There
> are three sets of circles in each example, and the first two are
> commented out -- simply uncomment and comment to see the variety, but
> that's not the question. The same arguments are producing different
> results in different databases on the same system -- which I find truly
> odd. An editor re-created the example on his system and they samples
> were very different. He then, copied his code from his sample database
> into mine and they worked as expected -- truly odd since both mdbs were
> running on the same system. Any clues? I'm clueless.
>
> Susan H.
>
> Private Sub Report_Page()
>   Me.DrawWidth = 50
>   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, 0,
> 3.142
>   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, 0,
> 3.142
>   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, 0,
> 3.142
>   'Me.Circle (0, 0), 2000, vbRed, , 3.142
>   'Me.Circle (0, 0), 1700, vbYellow, , 3.142
>   'Me.Circle (0, 0), 1400, vbBlue, , 3.142
>   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, , , 1
>   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, , ,
> 1
>   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, , , 1
> End Sub
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>