RE:Por Favor Ayuda BD para doc en PDF
Fabian, aquí tienes la función y su forma de uso:
Option Compare Database
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Option Explicit
Private Sub Comando1_Click()
Dim nArchivo As String
nArchivo = Me.CuadroTexto
ShellExecute Me.hwnd, "open", nArchivo, "", "", 1
End Sub
CuadroTexto será el campo donde previamente habrás cargado la Ruta completa del pdf procedente de un campo de una Tabla.
Otra forma sería asignándole a la Variable nArchivo la Ruta del pdf de la forma que creas conveniente, sin tener que cargarla previamente en un cuadro de texto en el formulario. Esto se puede hacer o con la función de agregado Dlookup utilizando un criterio de busqueda en una tabla, o mediante Recordset DAO o ADO iguamente indicando un criterio. La Tabla deberá tener al menos dos campos: Titulo y Ruta y utilizar el campo Titulo como criterio de búsqueda del registro y el campo Ruta para asignárselo a la variable nArchivo. ¿ crees que es muy complicado ?
El caso es que al pulsar el botón de comando, la variable nArchivo contenga la Ruta completa del archivo que quieres abrir, incluyendo el propio nombre de archivo y su extensión y la función ShellExecute se encarga de abrir el archivo con su programa asociado.
Espero que lo consigas sin problemas. Saludos
Enrique