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]
