Access - Imagenes aleatorias en informe

Private Sub Form_Current()  'Al activar cada registro

    Dim c As Integer, p As Integer

    p = 1   'Primera imagen

    For c = 1 To 10 'Para cada campo

        If Not IsNull(Me.Controls("Campo" & c)) Then    'Si no es nulo

            Me.Controls("Imagen" & p).Picture = Me.Controls("Campo" & c)    'Asignamos la ruta a la imagen

            p = p + 1   'Siguiente imagen

        Else

            Me.Controls("Imagen" & p).Picture = ""  'Borramos la imagen

        End If

    Next

    'Ahora queda borrar el resto de las imágenes

    'Si había 4 campos con imagen, debemos borrar desde la 5 a la 10

    'En este caso p valdría 4 y la primera a borrar sería p + 1

    c = p + 1 'Guardamos en número de la primera imagen a borrar en c

    For p = c To 10 'Recorremos las imágenes que faltan (p.e. de la 5 a la 10)

        Me.Controls("Imagen" & p).Picture = ""  'Borramos la imagen

    Next

End Sub