Image displaying problem
I'm working on a scenario which is something like this:
I enter some patient information in the form and then select an image from the folder. Then save the form, till this its going fine.
The problem arise in the View, when i need to show the report.
Suppose when i click on "view" button to view that form, some times program give error "invalid pic". This problem doesnt' arise everytime, say if i have 10 pics in the folder. it'll give error when the pic10 is going to view on report. where as pic 9 is working fine and so on. All the img dimensions are equal and all are jpegs.
I'm using "AppendChunk".
If Not Len(strImage(1)) = 0 Then
Open strImage(1) For Binary As #1 ' Open file for input.
byteChunk = InputB(LOF(1), #1)
Close #1
rst3.Fields("ImgAdvice").AppendChunk byteChunk
Else
rst3.Fields("ImgAdvice") = ""
End If
|