Cargar Imágenes en ACCESS mediante path
Buenas días fibonnaci, yo tengo el mismo problema, ocupo mostrar las imágenes en un formulario pero sin tener que pegar la foto en la tabla de la base de datos, unicamente mediante el link.
Gracias de antemano por tu ayuda
Gracias de antemano por tu ayuda
1 Respuesta
Respuesta de fibonnaci
1
Ok
No lo tengo aquí ahora
Te lo posteo en breves horas
No lo tengo aquí ahora
Te lo posteo en breves horas
Private Sub Comando10_Click()
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
Shell A
'Shell "C:\Documents and Settings\SonGoku\Escritorio\PIC00338.JPG"
'Shell "C:\Docume~1\SonGok~1\Escrit~1\PIC00338.JPG"
'Tendria que ser algo asi pero creo hay que
'poner delante del archivo el path
'del programa que lo abre
End Sub
'=======================================================================
Private Sub Comando11_Click()
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
'Shell "C:\Archiv~1\Intern~1\iexplore.exe
"
Shell "C:\Archiv~1\Intern~1\iexplore.exe " & A, vbMaximizedFocus
'...este funciona sin problemas !
'esto abre el internet explorer y carga lo de "ENLACE_WEB" de tu subformulario.
End Sub
'=======================================================================
Private Sub Comando12_Click()
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
Shell "C:\Archivos de programa\Archivos comunes\Microsoft Shared\PhotoEd\PHOTOED.EXE " & A, vbMaximizedFocus
'Shell "C:\Archiv~1\Archiv~1\Micros~1\PhotoE~1\PHOTOED.EXE " & A, vbMaximizedFocus
'este abre el Photoeditor (del Office , de Microsoft) pero deberia
'cargar la imagen y no lo hace ¿?
End Sub
'=======================================================================
'Tendras que averiguar un poco por tu cuenta lo que ocurre
'pero ahora ya tienes una buena pista y los ejemplos para trabajar por tu cuenta.
'SALUDOS Y SUERTE! X.
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
Shell A
'Shell "C:\Documents and Settings\SonGoku\Escritorio\PIC00338.JPG"
'Shell "C:\Docume~1\SonGok~1\Escrit~1\PIC00338.JPG"
'Tendria que ser algo asi pero creo hay que
'poner delante del archivo el path
'del programa que lo abre
End Sub
'=======================================================================
Private Sub Comando11_Click()
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
'Shell "C:\Archiv~1\Intern~1\iexplore.exe
" Shell "C:\Archiv~1\Intern~1\iexplore.exe " & A, vbMaximizedFocus
'...este funciona sin problemas !
'esto abre el internet explorer y carga lo de "ENLACE_WEB" de tu subformulario.
End Sub
'=======================================================================
Private Sub Comando12_Click()
Dim A As String
A = Replace(Me.ENLACE_WEB, "#", "")
Shell "C:\Archivos de programa\Archivos comunes\Microsoft Shared\PhotoEd\PHOTOED.EXE " & A, vbMaximizedFocus
'Shell "C:\Archiv~1\Archiv~1\Micros~1\PhotoE~1\PHOTOED.EXE " & A, vbMaximizedFocus
'este abre el Photoeditor (del Office , de Microsoft) pero deberia
'cargar la imagen y no lo hace ¿?
End Sub
'=======================================================================
'Tendras que averiguar un poco por tu cuenta lo que ocurre
'pero ahora ya tienes una buena pista y los ejemplos para trabajar por tu cuenta.
'SALUDOS Y SUERTE! X.
