Access Ver Foto en Formulario

[Torus]

Hola a Tod@s.
Otra vez recurro al foro para solventar un problema que tengo y que explico a continuación:
Tengo un formulario llamado almacen donde se muestran una cantidad de piezas mecanicas, lo que pretendo es que al lado de cada pieza aparezca un boton y que al pulsarlo y atraves de una consulta a una tabla donde está la ruta de una carpeta que contiene la fotografia de esa pieza.
Bien..... ahora comienza mi problema como puedo mostrar la fotografia en un formulario.
He tratado hacerlo con una caja de imagen pero me pide que seleccione una fotografia y lo que pretendo es que muestre la que yo le paso en la ruta tambien con el tipo OLE pero no consigo verla , en fin que no se como hacerlo.
Agradeceria si es posible que me hechaseis una mano.
Gracias
Un Saludo

[Torus]

Ya he solucionado el problema.
En el campo de fotografia en tipo de datos he puesto Objeto OLE
Y en el formulario he selecionado Imagen y en las propiedades en Origen del control he puesto el nombre del campo en este caso fotografia
Ahora tengo que averiguar como incluir una fotografia desde el formulario de insercion, se puede hacer pulsando el boton derecho del raton y seleccionar insertar objeto pero quedaria mucho mejor desde un boton del formulario.
Así que si alguien lo sabe, me lo diga.
Gracias a todos

[cj gonzalez]

dame una dir de correo para enviarte un ejemplo que te agradará

sin embargo te adelanto algo:
en un formulario, agrega un microsoft common control dialog, un control imagen y un command button.

cambia las siguientes propiedades:
al control imagen, asignale por nombre imgvisor
al common control dialog, asignale nombre dlgvisor
y al command button, asignale el nombre cmbvisor.
ahora, copia el siguiente codigo y pegalo en la ventana de codigo de tu formulario.

Option Compare Database
Option Explicit
Sub SeleccionarImagen()
On Error GoTo Error
With dlgvisor
.CancelError = True
.Filter = "Mapas de bits | *.bmp|Imagenes |*.jpg|*.gif"
.Flags = .Flags Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNLongNames
.ShowOpen
Caption = "Visor- " & .FileTitle
imgvisor.Picture = .FileName
End With
Exit Sub
Error:
End Sub
Private Sub cmbvisor_Click()
Call SeleccionarImagen
End Sub

Private Sub Form_Load()
Call SeleccionarImagen
End Sub

[korba]

Hola a todos,
he llegado a este hilo buscando una solución al mismo problema, por ello Carlos, te pediría si me puedes mandar a mí tambien ese ejemplo. Gracias por adelantado.

Un saludo.

[cj gonzalez]

dime como te la hago llegar

[jorge2004]

Hola a todos. Siento meterme de esta forma tan brusca en vuestra conversación. Yo también tengo varias aplicaciones basadas en access con las que manejo fotografías, pero no almaceno en la tabla la fotografía, sino la ruta local del archivo jpg/gif. Así la BBDD no aumenta de forma exponencial su tamaño, ya que no conseguí que además de almacenar la foto almacenase el visor de Windows en la tabla. Me gustaría si es posible que me enviaseis el ejemplo, ya que yo tuve que diseñarme un formulario con aspecto y funcionalidad idéntica a la del Explorador de Windows, Muchisimas gracias.