Convertir expresión en modulo
Publicado por Salvador (94 intervenciones) el 29/01/2018 11:28:44
Tengo que convertir esta expresión en un modulo para nostrar unas imagenes , y no me eaclaro, si alguien tiene una idea de como hacerlo, lo agradecería. La expresión que se debe ejecutar en un formulario en la opcion Al Cronómetro es:
Muchas gracias por anticipado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Compare Database
Option Explicit
Dim Baner As Integer
Select Case Baner
Case 1
Me.Imagen71.Visible = True
Me.Imagen73.Visible = False
Me.Imagen74.Visible = False
Me.Imagen75.Visible = False
Case 2
Me.Imagen71.Visible = False
Me.Imagen73.Visible = True
Me.Imagen74.Visible = False
Me.Imagen75.Visible = False
Case 3
Me.Imagen71.Visible = False
Me.Imagen73.Visible = False
Me.Imagen74.Visible = True
Me.Imagen75.Visible = False
Case 4
Me.Imagen71.Visible = False
Me.Imagen73.Visible = False
Me.Imagen74.Visible = False
Me.Imagen75.Visible = True
End Select
If Baner < 4 ThenBaner = Baner + 1
Else
Baner = 1end if
Valora esta pregunta
0