Lightningfast
Technical User
I am wondering if anyone has ideas how to go about this. I have a form and when it opens I display the cover of a brochure as an image (path controlled by the item part number)I have the images for the other pages stored pno_1 pno_2 pno_3 etc. I would like the user to push a forward or back button and display the pages left and right on the form
as they scroll through it.
I use the code below in the forms property to display my initial image.
Private Sub Form_Current()
On Error GoTo ErrHandler
If Not IsNull(Me![imagepath]) Then
Me![pictureimage].picture = Me![imagepath]
End If
Exit Sub
I don't have a problem incementing the code for the file names when the next or previous button is pushed. I use this code
Private Sub imageNext_Click()
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo Err_Previousimage_Click
If Val(imagenumber) = [totalpages] Then
Else
imagenumber = imagenumber + 1
End If
Exit_previousimage_click:
Exit Sub
Err_Previousimage_Click:
MsgBox Err.Description
Resume Exit_previousimage_click
End Sub
Is there a way to refresh the form after the next button is pressed? Or should I use a subform?
Thanks Trevor
as they scroll through it.
I use the code below in the forms property to display my initial image.
Private Sub Form_Current()
On Error GoTo ErrHandler
If Not IsNull(Me![imagepath]) Then
Me![pictureimage].picture = Me![imagepath]
End If
Exit Sub
I don't have a problem incementing the code for the file names when the next or previous button is pushed. I use this code
Private Sub imageNext_Click()
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo Err_Previousimage_Click
If Val(imagenumber) = [totalpages] Then
Else
imagenumber = imagenumber + 1
End If
Exit_previousimage_click:
Exit Sub
Err_Previousimage_Click:
MsgBox Err.Description
Resume Exit_previousimage_click
End Sub
Is there a way to refresh the form after the next button is pressed? Or should I use a subform?
Thanks Trevor