[Resolvido]Access abrir leitor com mais de uma extenção

bom dia

Para abrir arquivos e de várias extensões, utilizo a função abaixo.

Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = "Adjuntar documento"
wzDlgTitle = "Abre el documento"
wzOpenTitle = "Abre el documento"
wzFile = String(255, Chr(0))
wzInitialDir = ""
wzFilter = "Archivos " _
& "(*.pdf;*.jpg)"
'wzFilter = wzFilter & Chr$(0)
wzFilterIndex = 1
wzInitialDir = CurrentProject.Path & "\"
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
Me.nomedotxtqueficaraocaminhoparagravardepois = wzFile
End If
End Sub

e no evento clique chamo dessa forma;
wzGetFileName
guardando o nome do caminho junto com a extensão no txt informado dentro da função.

crie, um form com uma caixa de texto exemplo. txtarquivo

crie um botão

copie e cole esse codigo;

Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = "Anexar documento"
wzDlgTitle = "Abra o documento"
wzOpenTitle = "Abra o documento"
wzFile = String(255, Chr(0))
wzInitialDir = ""
wzFilter = "Registros " _
& "(*.pdf;*.cbr)"
'wzFilter = wzFilter & Chr$(0)
wzFilterIndex = 1
wzInitialDir = CurrentProject.Path & "\"
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
Me.txtarquivo = wzFile
End If
END SUB


no evento clique do botão abrir arquivo;
coloque
wzGetFileName

será colocado nesse campo txtarquivo, o nome do caminho completo e o nome do arquivo que vc fez o upload.
dessa forma poderá fazer o que quiser, visualizar, copiar, colar, salvar em bd

crie um modulo com dados abaixo. utilize "ptrsafe" conforme descrito abaixo somente se seu access for 64 bits, caso contrario tire.

Option Compare Database

Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr


crie outro botão, ou coloque no evento clique da caixa de texto ou do botão.

On Error Resume Next
Dim strArquivo As String
strArquivo = Me.txtarquivo.Value
Call ShellExecute(0, vbNullString, strArquivo, vbNullString, vbNullString, 1)