[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