Access - insertar imagenes automaticamente

insertar imagenes automaticamente

Publicado por javier (2 intervenciones) el 23/11/2004 00:02:05

estoy haciendo una pequeña base de datos en acces 2000 y cada vez que creo un registro nuevo tengo que pulsar el boton de la derecha, insertar imagen, desde archivo y escojer el directorio.
hay alguna manera de poder acer todos esos pasos con un simple doble clic

muchas gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Agregar imagen automáticamente al crear un nuevo registro

Publicado por Alejandro (4142 intervenciones) el 17/05/2023 23:47:43

Para simplificar el proceso de agregar una imagen al crear un nuevo registro en Access 2000 con un simple doble clic, puedes seguir estos pasos:

1. Crea un botón en tu formulario principal para agregar la imagen. Puedes utilizar el control "Botón de comando" desde la barra de herramientas "Cuadro de herramientas".

2. Haz doble clic en el botón recién creado para abrir su ventana de código.

3. En la ventana de código, agrega el siguiente código para abrir el cuadro de diálogo de selección de archivo y agregar la imagen al registro actual:

Private Sub btnAgregarImagen_Click()

    Dim dlg As FileDialog

    Dim strArchivo As String

    ' Crea una instancia del cuadro de diálogo de selección de archivo

    Set dlg = Application.FileDialog(msoFileDialogFilePicker)

    ' Configura las propiedades del cuadro de diálogo

    dlg.Title = "Seleccionar imagen"

    dlg.Filters.Clear

    dlg.Filters.Add "Imágenes", "*.jpg;*.jpeg;*.png;*.bmp"

    ' Muestra el cuadro de diálogo y verifica si se seleccionó un archivo

    If dlg.Show = -1 Then

        ' Obtiene la ruta completa del archivo seleccionado

        strArchivo = dlg.SelectedItems(1)

        ' Asigna la ruta del archivo a un control de imagen en el formulario

        Me.NombreControlDeImagen.Picture = strArchivo

    End If

    ' Limpia la memoria liberando el objeto dlg

    Set dlg = Nothing

End Sub

4. Asegúrate de reemplazar "btnAgregarImagen" con el nombre del botón que creaste y "NombreControlDeImagen" con el nombre del control de imagen en tu formulario donde deseas mostrar la imagen.

Una vez que hayas agregado este código, podrás hacer doble clic en el botón "Agregar imagen" y se abrirá el cuadro de diálogo de selección de archivo. Al elegir una imagen, esta se mostrará automáticamente en el control de imagen especificado en tu formulario para el registro actual.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar