Access - Imagen OLE

Imagen OLE

Publicado por Leonardo (10 intervenciones) el 24/07/2003 07:06:47

Hola, tengo en mi tabla un campo que es una imagen OLE, que cambia en cada registro, lo que intento hacer es que cuando doy click en un botón me inserte esa imagen (imagen1) en ese registro, y cuando doy click en otro boton me cambie la otra imagen (imagen2) en ese registro. Cómo puedo hacer esto desde el código.
Espero me puedan ayudar.
Saludos.

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

Imagen OLE

Publicado por Alejandro (4142 intervenciones) el 02/05/2023 19:17:14

Para insertar una imagen OLE en un registro desde un botón, puedes utilizar el siguiente código en el evento "Al hacer clic" del botón:

Private Sub btnInsertarImagen1_Click()

    'Obtener el registro actual

    Dim rs As Recordset

    Set rs = Me.RecordsetClone

    rs.Bookmark = Me.Bookmark

    'Insertar imagen 1 en el campo OLE de la tabla

    rs.Edit

    rs!CampoImagen.OLETypeAllowed = acOLEEmbedded

    rs!CampoImagen.LoadFromFile "ruta de la imagen1"

    rs.Update

    'Actualizar el formulario

    Me.Refresh

End Sub

De manera similar, para cambiar la imagen OLE en un registro desde otro botón, puedes utilizar el siguiente código:

Private Sub btnCambiarImagen_Click()

    'Obtener el registro actual

    Dim rs As Recordset

    Set rs = Me.RecordsetClone

    rs.Bookmark = Me.Bookmark

    'Cambiar la imagen en el campo OLE de la tabla

    rs.Edit

    rs!CampoImagen.OLETypeAllowed = acOLEEmbedded

    rs!CampoImagen.LoadFromFile "ruta de la imagen2"

    rs.Update

    'Actualizar el formulario

    Me.Refresh

End Sub

Recuerda cambiar "CampoImagen" por el nombre del campo OLE de tu tabla y "ruta de la imagen1" y "ruta de la imagen2" por las rutas de las imágenes que deseas insertar o cambiar.

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