deteriorated image quality

[markjkubicki]

i have 2 database front ends (the 'old' one that i am trying to wean the office from; and the new one...)

both have a report that is essentially the exact same document, however, the resoution of the picture, that is accociated with the current record, is HORRIBLE in the new one... (the old guy is not a problem at all...) (this is not going over well !)

the only difference that i can note might be the way that the images' hyperlink is added to the related table



-----------------------------------
on the good one, the link is added on a pop-up form, with this code:

With Application.FileDialog(3) ' 3 is a constant: msoFileDialogFilePicker
.Title = "Select page"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPGs", "*.JPG"
.FilterIndex = 4
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then 'result = 0 if nothing was selected
fileName = Trim(.SelectedItems.Item(1))
'filename contains the path you want.
End If
End With
Me.CatalogSheet = "#" + fileName

------------------------------------
on the bad one, the link is added on a sub form with tis code:

vPrintOrder = ...
With Application.FileDialog(3) ' 3 is a constant: msoFileDialogFilePicker
.Title = "Select page"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.Filters.Add "JPGs", "*.JPG"
.Filters.Add "BMP's", "*.BMP"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then 'result = 0 if nothing was selected
CatalogSheetLink = Trim(.SelectedItems.item(1))
Dim sSQL As String
sSQL = "INSERT INTO tbeAdditionalPages (type, printCatalogSheet, BaseCatalogSheet, CatalogSheetLink, PrintOrder, IsMountingDetail) " _
& " Values(" _
& "'" & Forms!frmSpec.Type & " ', " _
& "true, " _
& "false, " _
& "'#" & CatalogSheetLink & " ', " _
& vPrintOrder & ", " _
& "false" _
& ");"
CurrentDb().Execute sSQL, dbFailOnError
Forms![frmSpec].chldFixtureCuts.Requery
Else
Response = MsgBox("...nothing selected to add", vbInformation + vbOKOnly, "Add Catalog Sheet Error")
End If
End With

----------------
any thoughts... would be REALLY appreciated,
Mark

[ajetrumpet]

this reminds me of an article I read a while back about the pixelization of images and how it relates to file copying. Apparently if you copy data enough, especially images, it becomes distorted by way of fading pixelization. Not sure if that's relevant here, but it's certainly worth a check.

[markjkubicki]

just tried opening the image in both the good and the bad db..., but not thru the report, but simply by clicking the hyperlink in its table...

the link, for comparison, is to the same image file in both and the image quality for both was the same - acceptable

could it be the way the report is opened...
i haven't checked this yet, but i'm pretty certain it is the same...

[ajetrumpet]

just tried opening the image in both the good and the bad db..., but not thru the report, but simply by clicking the hyperlink in its table...

the link, for comparison, is to the same image file in both and the image quality for both was the same - acceptable

could it be the way the report is opened...
i haven't checked this yet, but i'm pretty certain it is the same...

well then you've nailed the issue down to a lower-level. The problem is obviously the medium through which the image is displayed. So you could make a new report, try throwing some content off the report or form objects, etc...

You can do any number of things.