imagenes en formulario

Hola Patxi.
En principio creo que no, pero ... como puedo saberlo??
Utilizo acess 2007

Gracias

"Patxi Sanz" escribió:

> He puesto el siguiente codigo en el load del
> formulario pero no funciona (de hecho no llega a entrar en el codigo).

¿Tienes el código habilitado?

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/

.

Cuando abres esa base de datos en Access 2007, si no está el código
habilitado, aparece un mensje debajo del Ribbon:

-
http://office.microsoft.com/es-es/a...0621893082

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/

Hola,

No sé si lo que yo hago te servirá -es muy simple- pero a mi me
funciona muy bien con imágenes (fotos de alumnos) en formato bmp. Como
en tu caso el identificador del alumno coincide con el nombre del
archivo de imágen o foto.

En el formulario principal ('Fitxa_IntObsrv') tengo un subformulario
con la lista de los alumnos. En el evento 'al activar registro' de
este subformulario (O sea al hacer clic sobre un alumno determinado)
llamo a la función pública =MostrarFoto() y esta obtiene el id del
alumno del campo correspondiente del subformulario (lista de alumnos),
busca la imágen del mismo nombre y la pone en el campo 'Foto' del
formulario principal.

(Tengo una 'foto falsa' -un dibujito sin cara- en 000.bmp para los
alumnos de los que no tenemos la foto)

Suerte,

Ramon Avalos

******************************************

Public Function MostrarFoto() As Byte
On Error GoTo Err_MostrarFoto

Dim sId_Alum, CarpeFoto As String

sId_Alum = Forms![Fitxa_IntObsrv]![Id_Alum]
CarpeFoto = Forms![Fitxa_IntObsrv]![sId_CarpeFoto] & "\"
Forms![Fitxa_IntObsrv]![Foto].Picture = "N:\Fotos\" & CarpeFoto &
sId_Alum & ".bmp"
Exit_MostrarFoto:
Exit Function

Err_MostrarFoto:
Select Case Err
Case 2220 'No té foto
Forms![Fitxa_IntObsrv]![Foto].Picture = "N:\Fotos\000.bmp"
Resume Exit_MostrarFoto
Case Else
MsgBox Err.Description
Resume Exit_MostrarFoto
End Select
End Function

Otra cosa que se me pasó: en Access 2007, aunque no tengas la ruta de la
imagen en la tabla, puedes crear un campo calculado en la consulta que uses
como origen del formulario para "crear" la ruta y nombre de la imagen, y
usar ese campo calculado en la propiedad Origen del control del control
Imagen.

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/

En Access 2007 puedes vincular directamente las imágenes a datos. Échale un
vistazo a http://geeks.ms/blogs/access/archiv...67863.aspx

Por si fuera un proble de ubicación de confianza, mira también
http://jbchea.net/centroconfianza.aspx


Saludos.
José Bengoechea Ibaceta
http://jbengoechea.com
[MS MVP Office System - Access]




"j_lete" escribió:

Hola !!

Si es .jpeg. De todas formas he probado con otros formatos de imagen y el
resultado es el mismo. Por cierto, utilizo acess 2007

"Chea" escribió:

> ¿Seguro que la extensión es" jpeg"?
>
> Saludos.
> José Bengoechea Ibaceta
> http://jbengoechea.com
> [MS MVP Office System - Access]
>
>
>
>
> "j_lete" escribió:
>
> > Hola grupo:
> > Estoy intentado que en un formulario, vincular cada registro con su imagen
> > correspondiente. Las imagenes están en un directorio (catalogacion) y están
> > numeradas con el mismo numero que el id de cada registro (ID registro 0001 ,
> > nombre 1ª foto 0001.jpeg). He puesto el siguiente codigo en el load del
> > formulario pero no funciona (de hecho no llega a entrar en el codigo). En la
> > tabla no tengo ningun campo con la ruta de las fotos.
> >
> > Dim path as string
> > On error resume next
> > Me![MiImagen].picture=””
> > Path=currentprojet.path & “\catalogacion”
> > Me![MiImagen].picture= path & “\” & me.[numeracion] & “.jpeg”
> >
> > Que puede estar mal??
> >
> > gracias