PROBLEMAS CON IMAGENES VINCULADAS

20 views
Skip to first unread message

Julio Mourelo

unread,
Feb 25, 2011, 12:16:36 PM2/25/11
to Ju@nk
Estimado Ju@nK:

 Hace unos días me dirigí a ti por el problema de las imágenes vinculadas en formularios Access. Me imagino que, debido a que constantemente somos muchos los que acudimos a ti - se ve en los correos que se reenvian - no has podido ver el tema.

 No obstante, no me he quedado quieto, es lógico que trate de salir adelante, así que, despues de pelear un poco he logrado en parte lo que pretendia, es decir, no tener que volver a vincular las fotos al cambiarlas de ordenador. Como es lógico, empleando los vinculos relativos.

 Para que si tienes tiempo le des un vistado, te adjunto comprimido en rarr  mi "proyecto", el cual tiene un problema que te anticipo:

 Cuando pulso el boton para buscar la carpeta en la que tengo las fotos, esta se abre bien, pero cuando selecciono el archivo, lo que hace es insertar la ruta completa y yo lo que quiero es que me inserte solamente el nombre del archivo con su extensión. ejemplo :Fot1.jpg, ya que de esta forma es como la puede leerla  y asi me muestra la foto en el cuadro de imagen correspondiente.

 Bueno amigo Ju@nk, confio que me hagas las correcciones oportunas, ya que de esa forma podré aplicarlo a la Base de Datos en la que realmente lo necesito, esto que te envio es un proyecto de partida.

 Mi intención es poder insertar dos imagenes en el formulario, pero me imagino que teniendo una, la otra es facil colocarla.

 ¡Ah! Como ves, el proyecto está en Access 2003.

  Recibe on cordial saludo, 
--
MI_BD.rar

Ju@nK

unread,
Feb 25, 2011, 4:27:47 PM2/25/11
to Julio Mourelo, Ju@nk

Cambia esto, solo hay que añadirle un dir

 

Private Sub cmdAbrir_Click()

    txtRuta_Foto.SetFocus

    Dim s As String

    s = OpenCommDlg()

    s = Dir(s, vbArchive)

    If s <> "" Then

    txtRuta_Foto = s

    txtRuta_Foto_AfterUpdate

    End If

End Sub

--
Salu2,
 
Ju@nK
********************************************************************************************
Has recibido este mensaje porque estás suscrito a Grupo "Ju@nK" de Grupos de Google.
Si quieres publicar en este grupo, envía un mensaje de correo
electrónico a ju...@googlegroups.com
Para anular la suscripción a este grupo, envía un mensaje a juank-un...@googlegroups.com
Para obtener más opciones, visita este grupo en http://groups.google.es/group/juank?hl=es.
**********************************************************************************************
Ju@nK [MVP Access] 2006/08
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org
www.juank.tk
www.juank.es
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**********************************************************************************************

image001.png
Reply all
Reply to author
Forward
0 new messages