Buscar una imagen y abrirlo en visor de windows Access

Guillermo: Sin Profundizar mucho en mi opinión tienes un error al informar ' & Nombre & jpg'

Creo que debes forzar Nombre como String

Dim Nombre As String

Y de éste modo al final de tu instrucción te quedaría >> & Nombre & ".jpg"

Un saludo >> Jacinto

Un cordial saludo,

Si son similares y se la siguiente corrección

Private Sub DescargarUno_Click()
Dim RutaImg As String

RutaImg = Me.DianUno
ruta = Shell("rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen" & RutaImg & ".jpg")
End Sub

pero no genera nada ni error y realice otra pregunta similar pero con paint no se si lo has notado

Guillermo: Como no sé lo que te devuelve Me.DianUno poco más te puedo añadir, salvo que lo compruebes con un MsgBox después de RutaImg = Me.DianUno

MsgBox "El valor que temos en DianUno es: " & Me.DianUno, vbInformation, "VALOR EN CUADRO DE TEXTO"

Un saludo >> Jacinto

Realice la tarea Ingeniero mira esto lo que me mostró

Un cordial saludo,

Así se ve el código completo

Private Sub DescargarUno_Click()

Dim RutaImg As String

RutaImg = Me.DianUno
ruta = Shell("rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen" & RutaImg & ".jpg")

MsgBox "El valor que temos en DianUno es: " & Me.DianUno, vbInformation, "VALOR EN CUADRO DE TEXTO"
End Sub

Olvidemos el código de Paint por un momento para no confundirlo ya que el de Paint fue como desespero al no comprender el procedimiento