Código de Access ¿en excel?

15/12/2004 - 17:13 por Lamari | Informe spam

Hola de nuevo, tengo un código en access para hacer que parezca que se
mueven unas imágenes y me gustaría poner lo mismo en excel pero el código no
vale, ¿podría cambiarlo de alguna manera para poder hacerlo?

menteAtenta, Gracias

(El código es este, por si podéis ayudarme)
Option Compare Database
Option Explicit

'Al declarar esta variable fuera de los procedimientos, se puede utilizar en
todos ellos, se le_
'conoce como global. Solo se puede utilizar en el código que hay del
formulario.

Dim clockname As Integer

Private Sub Form_Load()
IblClock.Caption = Now

End Sub

Private Sub Form_Open(Cancel As Integer)
'Control de errores
On Error GoTo Err_Form_Open

'Para situar el formulario en una posición predeterminada. No se si hace
falta, tú misma.
DoCmd.MoveSize 890, 400, 9790, 4753

'Inicializar la variable global.
clockname = 1

'Mandar el cursor al botón de comando, este está invisible y el cursor
entonces desaparece, truco del almendruco
'cmdEmpty.SetFocus

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Error$
Resume Exit_Form_Open

End Sub

Private Sub Form_Timer()

'Establecer la hora del sistema, no se la finalidad y yo la quitaria.
' Me![time] = time

clockname = clockname + 1

If clockname > 4 Then
clockname = 1
End If

Select Case clockname
Case 1
Me![gear1].Visible = True
Me![gear2].Visible = False
Me![gear3].Visible = False
Me![gear4].Visible = False
Case 2
Me![gear1].Visible = False
Me![gear2].Visible = True
Me![gear3].Visible = False
Me![gear4].Visible = False
Case 3
Me![gear1].Visible = False
Me![gear2].Visible = False
Me![gear3].Visible = True
Me![gear4].Visible = False
Case 4
Me![gear1].Visible = False
Me![gear2].Visible = False
Me![gear3].Visible = False
Me![gear4].Visible = True
End Select

End Sub

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 KL

17/12/2004 - 14:53 | Informe spam

Lamari,

?Que te pasa? No puedes rendirte cuando casi esta hecho. Venga, enviame tu
hoja al correo electronico (y si estas en Espana tambien el numero de tu
movil) a ver si te lo puedo arreglar y si no, al menos entender con mas
detalle (creo q mas q otra cosa ha sido porque no ha quedado del todo claro
q es lo q quires conseguir, al menos para mi) y luego volver a explicar en
este foro y veras como Hector Miguel o alguien mas te dara la solucion.
Venga, animate!

Un abrazo,
KL

"Lamari" wrote in message
news:

ME RINDO, NO PUEDO MÁS, soy INCAPAZ, no he conseguido que aparezca y una
vez
que ha aparecido (que ya no sé lo que he hecho) esta inmóvil, así que ha
podido conmigo, da igual era un capricho para una presentación y me rindo,
siento haberte hecho perder tu tiempo, y siento haber sido tan torpe.

menteAtenta, Gracias
"Héctor Miguel" escribió en el mensaje
news:uBTp#

hola, Lamari !

> ... el UserForm muy bien ... pero no se lo que me falta por hacer que
> no

aparece en la hoja que yo quiero

> ... (bueno en ningun sitio del libro) ¿Que me falta o algo...?

alguna macro o evento que 'provoque' la aparicion del formulario [?]

p.e

Sub Macro_X()
NombreDelFormulario.Show
End Sub

saludos,
hector.

Responder a este mensaje

#7 KL

20/12/2004 - 11:18 | Informe spam

Lamari,

He recibido tu fichero y tal como te dije era un problema de comunicacion.
Creo q el codigo q necesitas es el de abajo. Tambien te he enviado el
fichero modificado a tu correo electronico.

Saludos,
KL

'-Esto va al Modulo1
Declare Sub Retardo Lib "Kernel32" Alias "Sleep" _
(ByVal MiliSegundos As Long)

Sub Animacion()
Dim Siguiente As Integer
For Siguiente = 1 To 80
With Sheets(1)
DoEvents
Retardo 200 ' <= si pones 1000, 'equivale' a 1 segundo [mil
milisegundos] ;) '
.Shapes("Picture 25").Visible = ((Siguiente Mod 4) = 0)
.Shapes("Picture 26").Visible = ((Siguiente Mod 4) = 1)
.Shapes("Picture 27").Visible = ((Siguiente Mod 4) = 2)
.Shapes("Picture 28").Visible = ((Siguiente Mod 4) = 3)
End With
Next
End Sub
'-Esto va al Modulo1

'-Esto va al Modulo EsteLibro
Private Sub Workbook_Open()
Call Animacion
End Sub
'-Esto va al Modulo EsteLibro

"KL" <lapink2000(at)hotmail.com> wrote in message
news:uZ3MA$

Lamari,

?Que te pasa? No puedes rendirte cuando casi esta hecho. Venga, enviame tu
hoja al correo electronico (y si estas en Espana tambien el numero de tu
movil) a ver si te lo puedo arreglar y si no, al menos entender con mas
detalle (creo q mas q otra cosa ha sido porque no ha quedado del todo
claro q es lo q quires conseguir, al menos para mi) y luego volver a
explicar en este foro y veras como Hector Miguel o alguien mas te dara la
solucion.
Venga, animate!

Un abrazo,
KL

"Lamari" wrote in message
news:

ME RINDO, NO PUEDO MÁS, soy INCAPAZ, no he conseguido que aparezca y una
vez
que ha aparecido (que ya no sé lo que he hecho) esta inmóvil, así que ha
podido conmigo, da igual era un capricho para una presentación y me
rindo,
siento haberte hecho perder tu tiempo, y siento haber sido tan torpe.

menteAtenta, Gracias
"Héctor Miguel" escribió en el mensaje
news:uBTp#

hola, Lamari !

> ... el UserForm muy bien ... pero no se lo que me falta por hacer que
> no

aparece en la hoja que yo quiero

> ... (bueno en ningun sitio del libro) ¿Que me falta o algo...?

alguna macro o evento que 'provoque' la aparicion del formulario [?]

p.e

Sub Macro_X()
NombreDelFormulario.Show
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida