Cargar Imagenes en BD Access

Basicamente se trata de eso....

Como Cargar Imagenes en nuestra Basde de Datos

Sin que esta aumente desproporcionadamente su tamaño

¿ Como se hace ?

Primero Creas Un Modulo, en èl insertas este Codigo

Function CargaImg(Direccion As String, Img As Control)

'Creado Por Jefferson Jimenez

' Cabimas - Venezuela

' Junio 2009

On Error GoTo Err_CargaImg_Click 'Tratamiento de Error

Img.Picture = (CurrentProject.Path & "\" & Direccion) 'Cargo la Imagen

Exit_CargaImg_Click:

Exit Function

Err_CargaImg_Click: 'Al existir un Error

MsgBox "Se ha detectado un error al cargar la Imagen" & vbCrLf & _

CurrentProject.Path & "\" & Direccion & vbCrLf & _

"Puede que la imagen Cambio de Nombre o Bien se ha Eliminado", vbCritical, "Falta Imagen"

DoCmd.Quit 'No continuo la Carga hasta no resolver el error

Resume Exit_CargaImg_Click

End Function

Luego Inserta un Cuadro Imagen en tu Formulario (Pero no le coloques nada, dejalo en Blanco)

En el Evento Al Abrir de tu Formulario llamas la Funcion

Para que el ejemplo funcione la imagen debe estar en la misma carpeta de la BD

Call CargaImg("El Nombre de la Imagen", Nombre del cuadro Imagen)