Is Access robust enough?

P

Pam

I am working in Access 2002. I had a problem getting access to default to my
"no Picture.bmp" on a report when there was a null value in the txt field
that stores that info, but got that solved with the help of another section
of this discussion group. My code workes well with 8 to 10 records, but when
I entered all 150 image paths into the text field that I wrote the code for,
the whole program slowed, froze, and became unresponsive. I tried deleting
the image paths and putting them in a few at a time, but after 25 images, the
same thing happens. I have run compact and repair often. I have another 150
images to go. Any suggestions?
Thanks,
 
P

Pam

Thanks, guys, I have been working on this for weeks

Pete: I have used the thumbs + demo and I am impressed. I don't see how to
use it in my application however. I have a huge remediation project with
lat/lon coordinates, cu yds contaminated soil, site photo, site topo, dates,
reports, many more.

Arvin: I looked at your code (and I will look more carefully after I reply).
I tried something similar to thatbefore; the On Error Resume Next caused
access to put in the previous record's photo. I am no code Einstein, I
struggle with understanding it. Here is the code I ended up using:
Option Compare Database
Function setImagePath()
Dim strImagePath As String
On Error GoTo PictureNotAvailable
strImagePath = Me.txtImageName
Me.ImageFrame.Picture = strImagePath
Exit Function

PictureNotAvailable:
strImagePath = "C:\BIA Dip Vat Database\Pictures\zNo
Picture\NoPicture.bmp"
Me.ImageFrame.Picture = strImagePath

End Function
----------------------------------------------
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

OnFormat = setImagePath
End Sub

-- Thanks Again,
Pam
 
P

(PeteCresswell)

Per Pam:
I have another 150
images to go. Any suggestions?
Click to expand...

It's probably an interesting exercise in MS Access development, but I'd
recommend spending the bucks to purchase ThumbsPlus (www.cerious.com) if the
scope of your app increases. Try the demo. I think you'll be impressed.
 
A

Arvin Meyer [MVP]

Arvin: I looked at your code (and I will look more carefully after I reply).
I tried something similar to thatbefore; the On Error Resume Next caused
access to put in the previous record's photo. I am no code Einstein, I
struggle with understanding it. Here is the code I ended up using:
Click to expand...

Actually, It left the last one where it was. It should have just been blank
if there was no picture. Your code is an improvement which allows for an
image (NoPicture.bmp) to replace the no image. I could not handle that since
I had no idea which table would be used.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
Top