Access - Insertar objeto

 
Vista:

Insertar objeto

Publicado por Davigorn (3 intervenciones) el 24/02/2005 15:45:37
Hola a todos los foreros, necesito urgentemente saber como puedo insertar un objeto ( archivo de cualquier aplicación word, excel, imagen , etc.) en un campo de Objeto OLE a traves de Visual basic (editor en access).
Por ejemplo: Quiero que al hacer click en un boton (llamado "Insertar Archivo") se habra un cuadro de dialogo donde pueda buscar el archivo a insertar, e insertarlo en el campo de Objeto OLE.

Si me entendieron, por favor ayudenme, gracias

Saludos a todos

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Insertar un archivo en un campo de objeto OLE a través de Visual Basic

Publicado por Alejandro (4142 intervenciones) el 26/05/2023 19:52:18
Para insertar un archivo en un campo de objeto OLE en Access utilizando Visual Basic, puedes seguir estos pasos:

1. Crea un botón en tu formulario al que llamarás "Insertar Archivo".
2. Asocia el evento Click del botón a un procedimiento en el código VBA.
3. En el procedimiento, utiliza el cuadro de diálogo "Seleccionar archivo" para permitir al usuario elegir el archivo que desea insertar.

Aquí tienes un ejemplo de código que puedes utilizar:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub btnInsertarArchivo_Click()
    Dim dlg As FileDialog
    Dim archivo As String
 
    ' Crear una instancia del cuadro de diálogo Seleccionar archivo
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
 
    ' Permitir al usuario seleccionar un solo archivo
    dlg.AllowMultiSelect = False
 
    ' Mostrar el cuadro de diálogo y comprobar si el usuario ha seleccionado un archivo
    If dlg.Show = -1 Then
        ' Obtener la ruta completa del archivo seleccionado
        archivo = dlg.SelectedItems(1)
 
        ' Insertar el archivo en el campo de objeto OLE
        Me.NombreDelCampoOle.LoadFile archivo
    End If
 
    ' Liberar los recursos del cuadro de diálogo
    Set dlg = Nothing
End Sub

Asegúrate de reemplazar "NombreDelCampoOle" con el nombre real del campo de objeto OLE en tu formulario.

Con este código, al hacer clic en el botón "Insertar Archivo", se abrirá el cuadro de diálogo "Seleccionar archivo" donde el usuario podrá elegir el archivo deseado. Una vez seleccionado, el archivo se insertará en el campo de objeto OLE especificado.

Espero que esto te ayude a resolver tu problema. ¡Buena suerte con tu proyecto!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar