Hola a todos... Para hacer lo que quieres, solo tienes que tomar el nombre del campo, por ejemplo
Dim strRuta As String 'Ruta de las imagenes strRuta = "C:\Datos\Imagenes\" 'A esta ruta le concatenamos el nombre de la imagen strRuta = strRuta & Formulario.getByName( "Campo" ).Text() 'IMPORTANTE , tienes que reemplazar "Campo", por el nombre del cuadro de texto de tu 'formulario, donde este el nombre de la imagen 'Por ultimo solo le agregamos la extension, con lo cual tenemos la ruta completa strRuta = strRuta & ".jpg" 'Ahora si... 'Asignamos la ruta al control imagen para mostrarla Formulario.getByName( "imgFoto" ).ImageURL = ConvertToURL( strRuta ) Cualquier duda me preguntas... Saludos a todos... Mauricio On 8/16/06, Computos Municipalidad de Villa Elisa < [EMAIL PROTECTED]> wrote:
U-na mas y no jodemos mas.... Mauricio. Espectacular con esto avanzo casi hasta el final pero me queda un puntito que me ahorraria de explicar a los usuarios del sistema (Inspección de tránsito) el tema de rutas y nombres de archivo y sería lo que escribiste en el mensaje escribiste: "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.. " Si me puedes orientar sobre este punto, (tomar otro campo como nombre de imagen) estaria solucionando por completo el problema. Gracias otra vez Marcelo Mauricio Baeza escribió: > 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] >> >> > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
