Access - insertar imagen en objeto OLE mediante comm dialog

 
Vista:

insertar imagen en objeto OLE mediante comm dialog

Publicado por Char3 (87 intervenciones) el 25/04/2005 16:29:53
Muy buenas. Veréis. He conseguido obtener el path de una imagen mediante el common dialog de Microsoft (el explorador de archivos vamos)

Una vez conseguido, quiero poner la imagen del path en un objeto OLE dependiente y no sé como.

En qué propiedad de éste objeto debo ponerlo, he probado con todos y no va ninguno! Sino como lo hago?
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

RE:conseguido

Publicado por Char3 (87 intervenciones) el 25/04/2005 19:32:55
Os lo pongo tal como me ha quedao, con la ayuda de alguien de éste mismo foro.

Dim sFoto As String
sFoto = \"RUTA A LA FOTO\"
\' * Verifica que la foto exista, de no existir no hace nada
If Len(Dir(sFoto)) > 0 Then
\' * Para poder usar el campo desbloqueamos
Me.imatge.Locked = False
\' * No hay OLE Incrustado?
If Me.imatge.OLEType = acOLENone Then
\' *Si vas a usar solo BMP o PCX no hace llamar la clase indicada
\' *en la siguiente linea, en cambio para usar JPG o GIF debes
\' *usar la clase correspondiente por ejemplo Photo Edit
\' *Me.FOTO.Class = \"Paint.Picture\"
\' * Apuntamos a la imagen
Me.imatge.SourceDoc = sFoto
\' * Le decimos que es incrustado
Me.imatge.OLETypeAllowed = acOLELinked
\' * Actualizamos nuestro campo
Me.imatge.Action = acOLECreateLink
Else
\' * El campo tiene un OLE que ha sido creado antes
\' * Esto es util si tienes una foto mas reciente que quieras
\' * actualizar en tu base de datos
Me.imatge.SourceDoc = sFoto
\' * Entonces solo actualizamos la imagen
Me.imatge.Action = acOLEUpdate
End If
\' * Bloqueamos para no editarlo con el boton derecho del raton

End If
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