Imágenes vinculadas

Dudas sobre Tablas, Consultas, Formularios, Informes...
marygarcihtc
Nivel 2
Mensajes: 23
Registrado: Jue Mar 26, 2020 1:35 pm

Re: Imágenes vinculadas

Mensajepor marygarcihtc » Mié Abr 08, 2020 2:10 pm

Hola,
Acabo de darme cuenta que estoy utilizando rutas absolutas en mi base y he visto este hilo, desgraciadamente, el enlace al ejemplo de la base de datos ya no está disponible, ¿hay alguna posibilidad de ver el ejemplo subido aquí?

Gracias y un saludo.

lobo53
Nivel 1
Mensajes: 1
Registrado: Dom Ene 05, 2020 12:06 pm

Re: Imágenes vinculadas

Mensajepor lobo53 » Dom Feb 28, 2021 1:31 pm

Hola amigos.
Mi Me encanta este hilo y todo lo que se expone aquí.

Estoy intentando realizar el ejemplo que cita el amigo Fayad en el siguiente enlace:

http://neckkito.xyz/nck/index.php/ejemp ... -evolution

Pero tengo un problema, parece ser con las referencias de Microsoft.
En el ejemplo del enlace anterior se indica lo siguiente para que el el formulario funcione:

"Requiere registro de la referencia Microsoft Office x.y Object Library"

Pues bien, he intentado añadir esta referencia a mi bbdd pero no me figura en la lista de referencias.
Yo utilizo Windows10, ACCESS 2010.
La referencia más parecida que sale en mi lista es " Microsoft Access 14.0 Object Library " y la tengo seleccionada.

La cuestión es que, cuando pulso el botón del formulario me da error:

Error de Compilación:
No se ha definido el tipo definido por el usuario.


Este es el código y la linea en negrita la del error.

Por favor, alguien me puede dar una solución???
Gracias de antemano.

Public Function fncBuscaImagen() As String
'Requiere registro de la referencia Microsoft Office x.y Object Library
Dim imagenSeleccionada As String
Dim puntoCorte As Integer
Dim fDialog As Office.FileDialog ------- "Esta linea es la que me resalta con fondo azul, motivo del error."
' Clear listbox contents.
Me.FileList.RowSource = ""
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar la imagen"
.InitialFileName = Application.CurrentProject.Path
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "Archivos de imagen", "*.jpg; *.png; *.bmp"
.Filters.Add "Todos los archivos", "*.*"
If .Show = True Then
imagenSeleccionada = .SelectedItems(1)
Else
MsgBox "La selección de imagen se ha cancelado", vbExclamation, "CANCELADO"
End If
End With
puntoCorte = InStrRev(imagenSeleccionada, "\")
fncBuscaImagen = Right(imagenSeleccionada, Len(imagenSeleccionada) - puntoCorte)
End Function

Avatar de Usuario
Neckkito
Moderador
Mensajes: 1091
Registrado: Dom Oct 25, 2015 3:42 pm

Re: Imágenes vinculadas

Mensajepor Neckkito » Dom Feb 28, 2021 6:03 pm

Hola!

La referencia Microsoft Office x.y Object Library es una referencia de todas las aplicaciones de la suite Office y, como tal, está por defecto no solo en Access, sino también en Excel, Word, etc.

Así pues es una librería que viene implícita y debes tenerla sí o sí. Otra cosa es que no la hayas visto.

Conclusión: vuelve a buscarla, y fíjate bien en el nombre, dado que referencias que empiezan por "Microsoft" hay muchas.

Eso, por un lado. Por el otro, el enlace está perfectamente operativo.

Saludos.
Access MVP 2017-2021
http://bit.ly/NckAccess


Volver a “Objetos Access”

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 1 invitado