Hola Forereros,
Tengo un formulario en Access 2010 en el que se muestran tres imágenes diferentes. Cuando paso de un registro a otro del formulario, un código visual basic busca las imágenes y las cambia. Hasta ahí va todo bien
. Sin embargo, al tratar de imprimir el formulario, las imágenes no se refrescan, y siempre imprime las mimas tres. Hago copy paste del código del formulario para vuestros comentarios. Alguna idea? saludos y gracias de antemano!
Option Compare Database
Private Sub Form_current()
Dim REFE, ruta, ruta1, ruta2, ruta3, CLIENTE, ruta_cliente As String
Dim value As Boolean
ruta = "C:\FOTOS\"
REFE = CStr(Me.REFERENCIA)
CLIENTE = CStr(Me.CLIENTE)
ruta1 = ruta + REFE + "_01.jpg"
ruta2 = ruta + REFE + "_02.jpg"
ruta3 = ruta + REFE + "_03.jpg"
If Dir(ruta1) <> "" Then
Me.Foto_01.Picture = ruta1
Else
Me.Foto_01.Picture = "C:\FOTOS\fire.png"
End If
'If My.Computer.FileSystem.FileExists(ruta2) Then
If Dir(ruta2) <> "" Then
Me.Foto_02.Picture = ruta2
Else
Me.Foto_02.Picture = "C:\FOTOS\Bird.png"
End If
'value = My.Computer.FileSystem.FileExists(ruta3)
'If My.Computer.FileSystem.FileExists(ruta3) Then
If Dir(ruta3) <> "" Then
Me.Foto_03.Picture = ruta3
Else
Me.Foto_03.Picture = "C:\FOTOS\Water.png"
End If
End Sub