Display .PCT Quicktime pictures using Access

Posted on 2006-03-28
Last Modified: 2010-05-18
I have a database where I need to display on a form .PCT pictures created by Quicktime.

I always use WebBrowser1 .ocx to display .jpg pictures but it won't display .PCT picutures.

(Handy Code I wrote:)
Dim varPath As Variant
Dim varPic1 As Variant

Dim varX As Variant
Dim varY As Variant
Dim varZ As Variant

varPath = DLookup("[PicPath]", "QRY_PicLookup", "[Screen]=" & [List67].Column(1))
varPic1 = DLookup("[PIC1]", "QRY_PicLookup", "[ID]=" & List67.Column(0))

varX = "about:<html><center><body scroll='no'><img src='" 'Centers Picture
varY = "</img><p> </center><pre> </pre></body></html>" 'Puts Picture in Center
varZ = "'width=100% height=100% />"

'Puts Picture in WebBrowser Contol Centered & Turns off ScrollBar & Scales Picture to WebBrowser Size
    WebBrowser1.Navigate varX + varPath + varPic1 + varZ + varY

I noticed in my Access controls there is a QuickTime Object...perhaps this could work however I don't know the string comands to use it from VB for this control.

Converting the images from .PCT to .JPG is not an option.
Any Ideas...Thanks a million in advance!
Question by:ACSPanama
    LVL 39

    Expert Comment

    Quicktime comes with an ActiveX control QTPlugin.ocx found in C:\Program Files\QuickTime\ if installed in the default folder.  I have never used it.  Googling the control, I found many references with problems with the control (example:  You could try installing it and playing with it to see if you could get it to work.  

    Or you can open IE in an unbound OLE control and run the Quicktime in that (I haven't tried that either).

    Or you can convert the pct files to a temporary jpg file on the fly to display it and then delete the jpg file.
    LVL 2

    Author Comment

    Discovered that you can use Unbound Object Frame and it views the Quicktime .PCT files perfectly! Who would of guessed?

    There is a sample database here:

    I story my file names in a table and sort them by a query. This works with .PCT, .JPG files etc.
    Here is my Code:

    Dim varPath As Variant
    Dim varPic1 As Variant

    varPath = DLookup("[PicPath]", "QRY_PicLookup", "[Screen]=" & [List67].Column(3))
    varPic1 = DLookup("[PIC1]", "QRY_PicLookup", "[ID]=" & List67.Column(0))

    Me.ImgView1.Picture = varPath + varPic1  'Puts Picture in ImageBox
    LVL 39

    Accepted Solution

    Good!  Glad you got a solution.  Sounds like I helped at least a little with my unbound OLE box suggestion.  Happy programming.

    Featured Post

    What Security Threats Are You Missing?

    Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

    Join & Write a Comment

    In Debugging – Part 1, you learned the basics of the debugging process. You learned how to avoid bugs, as well as how to utilize the Immediate window in the debugging process. This article takes things to the next level by showing you how you can us…
    Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
    Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
    With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

    728 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    17 Experts available now in Live!

    Get 1:1 Help Now