J
js
I am using this code in my form that was obtained from the Net quite some
time a go. It has always worked well from Access until the day I decided to
print all my forms. For some reason during printing the pic is not updated
and in my case I end up with 80 printed records which all show the pic from
the first form.
Private Sub Form_Current()
On Error Resume Next
Me![ImageFrame].Picture = Me![Imagepath]
End Sub
Private Sub Imagepath_AfterUpdate()
On Error Resume Next
Me![ImageFrame].Picture = Me![Imagepath]
End Sub
Private Sub Combo32_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUMBER] = " & Str(Nz(Me![Combo32], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Imagepath is a table row in each record that stores the pathway to the
picture.
Imageframe is the name of the form image frame that displays the picture.
RRT
time a go. It has always worked well from Access until the day I decided to
print all my forms. For some reason during printing the pic is not updated
and in my case I end up with 80 printed records which all show the pic from
the first form.
Private Sub Form_Current()
On Error Resume Next
Me![ImageFrame].Picture = Me![Imagepath]
End Sub
Private Sub Imagepath_AfterUpdate()
On Error Resume Next
Me![ImageFrame].Picture = Me![Imagepath]
End Sub
Private Sub Combo32_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUMBER] = " & Str(Nz(Me![Combo32], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Imagepath is a table row in each record that stores the pathway to the
picture.
Imageframe is the name of the form image frame that displays the picture.
RRT