• Home
 · 
• Miscellaneous
 · 
• MS ACCESS VBA.... Make a form scoll through images like anamation..

MS ACCESS VBA.... Make a form scoll through images like anamation..

MS ACCESS VBA.... Make a form scoll through images like anamation..

Rate MS ACCESS VBA.... Make a form scoll through images like anamation..

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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