by SCC (9 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 10th May 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
MS ACCESS VBA.... Make a form scoll through images like anamation..
VBcoders
Need some Code??? Request it at www.smokecrack.co.uk
If Me.Image14.Picture = "c:\BUTTONS\BAR.bmp" Then GoTo 1 Else GoTo 2
1
Me.Image14.Picture = "c:\BUTTONS\BAR1.bmp"
GoTo 20
2
If Me.Image14.Picture = "c:\BUTTONS\BAR1.bmp" Then GoTo 3 Else GoTo 4
3
Me.Image14.Picture = "c:\BUTTONS\BAR2.bmp"
GoTo 20
4
If Me.Image14.Picture = "c:\BAR2.bmp" Then GoTo 5 Else GoTo 6
5
Me.Image14.Picture = "c:\BAR3.bmp"
GoTo 20
6
If Me.Image14.Picture = "c:\BAR3.bmp" Then GoTo 7 Else GoTo 8
7
Me.Image14.Picture = "c:\BAR4.bmp"
GoTo 20
8
If Me.Image14.Picture = "c:\BAR4.bmp" Then GoTo 9 Else GoTo 10
9
Me.Image14.Picture = "c:\BAR5.bmp"
GoTo 20
10
If Me.Image14.Picture = "c:\BAR5.bmp" Then GoTo 11 Else GoTo 12
11
Me.Image14.Picture = "c:\BAR6.bmp"
GoTo 20
12
If Me.Image14.Picture = "c:\BAR6.bmp" Then GoTo 13 Else GoTo 14
13
Me.Image14.Picture = "c:\BAR7.bmp"
GoTo 20
14
If Me.Image14.Picture = "c:\BAR7.bmp" Then GoTo 15 Else GoTo 16
15
Me.Image14.Picture = "c:\BAR8.bmp"
GoTo 20
16
If Me.Image14.Picture = "c:\BAR8.bmp" Then GoTo 1 Else GoTo 20
20
End Sub
No comments have been posted about MS ACCESS VBA.... Make a form scoll through images like anamation... Why not be the first to post a comment about MS ACCESS VBA.... Make a form scoll through images like anamation...