Hola Jacinto, gracias nuevamente por atender mis inquietudes. No he logrado hacer lo que me proponía, pero he encontrado a medias la respuesta. No he podido hacer que la imagen se me actualice a mi selección en el listbox (listado). Quisiera que me ayudes a encontrar la respuesta por favor:
Private Sub listado_Click()
Dim NombreFoto As Variant ''nombre de la foto del usuario
Dim rutaFoto As String ''Ruta de la foto del usuario
Me.imgFoto.Picture = "" ''dejamos sin imagen
rutaFoto = Application.CurrentProject.Path & "\Imagenes\SinFoto.jpg" ''definimos la ruta de la foto
Me.imgFoto.Picture = rutaFoto ''asignamos la ruta que tiene la foto
Me.Refresh
If Me.txtNombreFoto.Value = "" Or IsNull(Me.txtNombreFoto.Value) Or Me.txtNombreFoto.Value = "SinFoto.jpg" Then
MsgBox "Este Empleado NO TIENE asignada FOTOGRAFÍA, debes hacerle una.", vbInformation, "Aviso.."
Me.imgFoto.Picture = ""
NombreFoto = Me.txtNombreFoto.Value
rutaFoto = Application.CurrentProject.Path & "\Imagenes\SinFoto.jpg"
Me.imgFoto.Picture = rutaFoto
Me.Refresh
Else ''en caso contrario es porque si hay algo en el campo txtNombreFoto
''por lo que le asignamos el valor que haya y cargamos la foto
NombreFoto = Me.txtNombreFoto.Value
rutaFoto = Application.CurrentProject.Path & "\Imagenes\" & NombreFoto
Me.imgFoto.Picture = rutaFoto
Me.imgFoto.Requery
Me.Refresh
End If
SeguirPorAqui:
Exit Sub
End Sub
He colocado en mi formulario un control de imagen (imgFoto) y un cuadro de texto (txtNombreFoto. El selector de registros permanece en 1 y eso creo que no me permite que cambie la imagen.
Gracias nuevamente..