En acceso, ¿cómo utilizar la programación VBA para cambiar cada pocos segundos?

1) Cree una nueva carpeta de imágenes "D:\MyPics" en la unidad D y almacene 8 imágenes JPG en ella, denominadas PIC 1 ~ 8 respectivamente;

2) Cree un nuevo formulario de ACCESO "Formulario 1" y agregue un control de imagen "Imagen0" al formulario.

3) Escribe el siguiente código VBA para el formulario.

¿Opciones? ¿Comparar? Base de datosˌBase de datos

¿Dim? ¿I? ¿Como? Declaración de variables auxiliares en ubicaciones comunes para códigos enteros.

¿Privado? ¿Sub? Form_Open(cancelar?como?entero)

i. ¿Intervalo del temporizador? =?1000? Establezca el intervalo de reemplazo de imágenes en 1 segundo. Ajuste este parámetro según sea necesario.

¿Fin? Submarino

¿Privado? ¿Sub? FormTimer()

¿Atenuado? picPath? ¿Como? Línea

¿Y si? ¿I? =?8?¿Y entonces qué? ¿I? =?0

¿Yo? =?Yo? ?1

picRuta? =?" D:\MisFotos\Foto "? ¿amperio? ¿I? ¿amperio? ".jpg " 'Establece dinámicamente el nombre de la ruta de la imagen.

Yo. Imagen 0. ¿Imagen? =?picPath? Mostrar una de las imágenes de la galería

¿Fin? Efectos de suboperación