Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

reports with images(the error in format or size?)

4 views
Skip to first unread message

marwa mohamed

unread,
Feb 23, 2004, 3:53:31 AM2/23/04
to
salamo alikom hi all
when i run report that includes image control linked to a field in the
table that contains the image path(on the server)and the record source
of the report contains over 30 records a messege shows saying:
"Microsoft Access doesn't support the format of the file'file
path\filename.jpg' or file is too large.Try converting the file to BMP
or GIF format".
I want to know which one is the problem (the size) or (the format is
not recognized).because solution for both is exactly the opposite
i.e.: converting the format to BMP or GIF enelarges the image size.
N.B.:
This message shows only when the report have large number of records
,but when i choose 5 records for example it doesn't show and images
shows normaly.
The code used is:
********************
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.image_path <> "" Then
Me.site_photo.Picture = Me.image_path
Else
Me.site_photo.Picture = ""
'MsgBox "This site doesn't have image"
End If
End Sub
*******************

thanks in advance hipe to recieve your reply soon.

Stephen Lebans

unread,
Feb 23, 2004, 11:17:56 AM2/23/04
to
Here are some steps you must follow to eliminate/reduce the error you
are encountering.
Items #4 and #5 resolve this issue 90% of the time. :

1) Defrag your Hard drive. The temp printer output files Access
generates can be very large when they contain images.

2) Make sure the drive you point your Virtual Memory Manager to has
several hundred MB's of free space.

3) If you are still using Win9x then make sure you reboot before
printing.

4) You must turn off the "Loading Image" dialog via the Registry
solution here:
http://www.mvps.org/access/api/api0038.htm
If you are using NT or higher you will have to update both
HKEY_LOCAL_MACHINE and HKEY_CURRENT_USER

5) Load the Images into the Image control from the Detail Section's
Print event NOT THE FORMAT EVENT.


If you follow the above steps and your Report still fails then here are
a couple of more solutions:

6) Upgrade to the latest version of Windows at the very least. Better
yet, upgrade to Access 2003 as well.
or
7) Use the PrintOUt method to only print out a limited number of pages
at a time. Repeat as required.
or
8) THis solution seems to look after most of the memory issues. At
runtime convert the Images to Bitmap format prior to loading them into
the Image control. Here is some sample code:


From: Stephen Lebans (Stephe...@mvps.org)
Subject: Re: Images in Reports
View: Complete Thread (18 articles)
Original Format
Newsgroups: microsoft.public.access.reports
Date: 2002-09-16 18:46:39 PST


Bruce I finally got a chance to test your method last night. It helped
but only with the actual printing and not the Print Preview itself.
I was able to print the failed Report directly to the printer or to a
disk printer file so that's great! Don't get me wrong, it's still a good
thing because at least you can print the report!

Unfortunately Acess still runs out of resources when you page back and
forth through Print Preview.
I plan to spend some time onthis issue shortly.
Here is the code I use to convert any Jpeg, Gif, or Metafile into a BMP.
Rather than using one of my API solutions I have cheated and set a
Reference to Standard OLE Types type library in order to get at the
SAVETODISK method. But no ActiveX controls are required


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Private ctr As Long

ctr = ctr + 1

Select Case ctr
Case 1
Me.Image10.Picture = CreateBitmapFile("C:\A.jpg")

Case 2
Me.Image10.Picture = CreateBitmapFile("C:\b.jpg")

Case 3
Me.Image10.Picture = CreateBitmapFile("C:\c.jpg")
ctr = 0

Case Else
ctr = 0

End Select

End Sub

Private Sub Report_Open(Cancel As Integer)
ctr = 0
End Sub


Private Function CreateBitmapFile(fname As String) As String

Dim obj As Object

Set obj = LoadPicture(fname)
If Not IsNull(obj) Then

SavePicture obj, "C:\SL11-52"
DoEvents
End If


CreateBitmapFile = "C:\SL11-52"
Set obj = Nothing

End Function

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


"marwa mohamed" <marwa...@hotmail.com> wrote in message
news:76f7b1a9.04022...@posting.google.com...

Steve

unread,
Mar 4, 2004, 10:21:12 PM3/4/04
to
"Stephen Lebans" <ForEmailGotoMy.WebSit...@linvalid.com> wrote in message news:<UIp_b.103001$IF6.3...@ursa-nb00s0.nbnet.nb.ca>...

Stephen,

On your web site, you have a utility (ExportOLEtoJpegVer16) for
converting MS Access images to JPEG's. As this was written for Access
2000, what chg's. are necessary to use this tool in Access 2003?

Thx!

Stephen Lebans

unread,
Mar 4, 2004, 10:33:45 PM3/4/04
to
No changes are required. The code will work with A2K or higher.
:-)
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


"Steve" <sdrich...@direcway.com> wrote in message
news:be02422b.04030...@posting.google.com...

0 new messages