Hola Luck, hay varias maneras de hacerlo a continuacion encontraras un ejemplo:
1.-Crea una tabla con un campo llamado "PATH" sin las comillas
2.-Guarda la tabla con el nombre "tblpathimages"
3.-Abre la tabla "tblpathimages" y escribe en el primer registro el path donde estaran almacenadas las imagenes. Ejemplo:
c:\mysistema\imagenes\
Nota: Unicamente deberas anotar un path lo que quiere decir que todas las fotografias deberan estar en el mismo directorio.
4.-Crea un nuevo modulo con la siguiente función:
Option Compare Database
Option Explicit
'Función que obtiene el path de la tblpathimages
Function FPathimagen() As String
On Error Resume Next
FPathimagen = DLookup("[path]", "tblpathimages")
End Function
5.-Agrega un campo a la tabla donde tienes los datos de los empleados y nombralo "foto"
6.-Abre el formulario que corresponde a dicha tabla en vista Diseño e inserta una imagen, selecciona cualquier imagen para verla en pantalla y despues muestra las propiedades de este campo, renombralo como "frame", en el campo "Picture" de las propiedades de "frame" borrar el path de la fotografia que tiene escrito y presiona ENTER y contesta yes al mensaje que te aparece.
7.-Agrega el campo "foto" al formulario que le corresponde a dicha tabla
8.-En las propiedades del formulario "On Current" agrega el siguiente codigo:
Private Sub Form_Current()
On Error Resume Next
frame.Picture = FPathimagen & foto
End Sub
9.-En las propiedades del campo Foto agrega el siguiente codigo en "After Update", debera quedar como sigue:
Private Sub foto_AfterUpdate()
Form_Current
End Sub
10.-Guarda los cambio hechos al formulario y abrelo en vista normal, En el campo "foto" del formulario escribe el nombre de la imagen y la extención por ejemplo: "foto1.bmp",se actualizara el frame con la foto.
Espero que te sirva, si no enviame el file a
[email protected] y con gusto te ayudare.