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)