Running a Jpeg from Code

[kopy]

I'm trying to create a Command Button that will open a jpeg with whatever default photo editor is on the user's machine. When I execute the following code I get the error "Object doesn't sup[port this obeject ofr method".

Dim CADObject As Object
Set CADObject = GetObject("C:\Impact Consulting\Computer Care Associates\H G Cockrill\Drawings\NoPic.jpg")
CADObject.Application.Visible = True

As always, any help will be greatly appreciated.
Thanks, Kopy

 

[PHV]

If your code is access VBA, you may try this:
Application.FollowHyperlink "C:\Impact Consulting\Computer Care Associates\H G Cockrill\Drawings\NoPic.jpg"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886