Access - Convertir expresión en modulo

   
Vista:
Imágen de perfil de Salvador

Convertir expresión en modulo

Publicado por Salvador (78 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:
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 Then
Baner = Baner + 1
Else
Baner = 1
end if
Muchas gracias por anticipado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Convertir expresión en modulo

Publicado por Anonimo (814 intervenciones) el 29/01/2018 16:33:12
1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
Dim Baner As Integer
 
Private Sub Form_Timer()
Baner = (Baner MOD 4) + 1
Me.Imagen71.Visible = Barner = 1
Me.Imagen73.Visible = Barner = 2
Me.Imagen74.Visible = Barner = 3
Me.Imagen75.Visible = Barner = 4
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Salvador

Convertir expresión en modulo

Publicado por Salvador (78 intervenciones) el 08/02/2018 10:23:30
Muchas gracias, funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad