[AccessD] Chart Object

Thanks. That works.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of A.D.TEJPAL
Sent: Friday, June 15, 2007 9:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Chart Object

Chester,

    Why not make it independent of version ?  Say - something on the
following lines ?

    Dim Txt as String
    Txt = rpt(i).OLEClass
    If InStr(Txt, "Graph") > 0 Then

Best wishes,
A.D.Tejpal
---------------

  ----- Original Message ----- 
  From: Kaup, Chester 
  To: Access Developers discussion and problem solving 
  Sent: Friday, June 15, 2007 00:22
  Subject: [AccessD] Chart Object


  I used the following code in access 97 to get to the chat object. I
  recently resurrected it to use in access 2003 but the last line does
not
  work. For Access 97 I had it set to 

                  If rpt(i).OLEClass = "Microsoft Graph 97 Chart" Then

  It worked fine. What does it need to be in Access 2003?

  For i = 0 To intCnt - 1

      Select Case rpt(i).ControlType

              Case acObjectFrame

                  If rpt(i).OLEClass = "Microsoft Graph 2003 Chart" Then
   

  Chester Kaup
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com