Hola Marcelo... Hola a todos...
Es muy interesante lo que planteas, las tablas de base tienen un campo tipo Imagen [LONGVARBINARY], que, en "teoria", podrias usar para guardar imagenes, incluso, el tipo Campo binario [VARBINARY] serviria para esto, solo que, intente agregar la imagen en el primer tipo de campo, no pude y me dio flojera buscar, mas adelante investigare... Por lo pronto, agregue un campo Texto para guardar la ruta de la imagen, en el ejemplo que te prepare, todas las imagenes DEBEN de estar en la ruta (Si unas Win) C:\Documents and Settings\Ciber\Mis documentos En este campo pongo la ruta completa del archivo de la foto, con todo y nombre de archivo y extension, por supuesto, se puede adaptar para tomar las imagenes de la ruta que quieras y tomando, por ejemplo, otro campo como nombre de la imagen, pero para empezar a que pruebes esta bien... Dentro del formulario que te creo el asistente, editalo y agregas un control Imagen... Al evento del formulario que se llama Tras el cambio de registro de datos, le asignas la siguiente macro Sub Main Dim PaginaDibujo As Object Dim Formulario As Object Dim strRuta As String Dim imgFoto As Object 'Referencia a la pagina de dibujo PaginaDibujo = ThisComponent.getCurrentController.getModel.getDrawPage() 'Referencia al formulario Formulario = PaginaDibujo.Forms.GetByIndex(0) 'Obtenemos la ruta de la imagen strRuta = Formulario.getByName( "txtRuta" ).Text() 'Asignamos la ruta al control imagen para mostrarla Formulario.getByName( "imgFoto" ).ImageURL = ConvertToURL( strRuta ) End Sub OJO, el cuadro de texto donde esta el campo de la ruta, yo lo nombre txtRuta, tu debes de usar el nombre que le asignes, lo mismo para el control Imagen que lo llame imgFoto Funciona bien, lo checas y me avisas... Saludos a todos... Mauricio P.D. Te envio la base de ejemplo y las imagenes que use, directo a tu correo, si alguien esta interesado, solicite el archivo a mi correo, OJO, NO a la lista, mañana lo subo a mi disco virtual... On 8/15/06, Computos Municipalidad de Villa Elisa < [EMAIL PROTECTED]> wrote:
Este mensaje va a la lista pero sobre todo para los fanaticos de las macros (Mauricio?...) estoy migrando una basesita que tenia en access donde identificaba personas, resulta que como existía (y existe) un campo FOTO donde estaba una pequeña (100 kb) foto de la persona la base crecía y crecía. Entonces encontre una rutinita para el formulario que asociaba el campo foto con el campo DNI (documento nacional de identidad ó matrícula única). luego traia la foto de un directorio dónde guardaba las fotos con el numero de DNI de la persona. La rutinda en cuestion es la siguiente: Private Sub Form_Current() On Error GoTo Error_Form_Current Dim NMImagen NMImagen = [DNI] [FotoDNI].Picture = "C:\Fotos\" & NMImagen & ".jpg" Exit Sub Error_Form_Current: Dim Titulo Titulo = "Falta FOTOGRAFIA" MsgBox Error$, 48, Titulo Exit Sub End Sub Entonces..... Cómo la paso a mi formulario de BASE. Es decir, el formulario está hecho con el asistente. ¿Tengo que pasarme a otro tipo de formulario o se puede hacer desde allí? Desde ya muchas gracias.. Marcelo Municipalidad de Villa Elisa - Entre Rios - Argentina Municipalidad de Villa Elisa Entre Rios --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
