MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

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

    Mensagem  Kaynan 15/1/2021, 13:34


    Ai amigos,eu tenho essa função que me abre um leitor de extenção .pdf,o que eu preciso é que ele abra também um leitor com a extenção .cbr.
    Ja coloquei mais essa linha strArquivo = Dir$(strCaminho & "*.cbr") mas não deu certo,como eu poderia fazer.






    Private Sub fncCarregaTabela()

    Dim strArquivo As String
    Dim strCaminho As String

    ' Call CurrentDb.Execute("delete * from temp_tblPDFs;")

    strCaminho = CurrentProject.Path & "\PDF\"
    strArquivo = Dir$(strCaminho & "*.pdf")

    Do While Len(strArquivo) > 0
    Call CurrentDb.Execute("insert into temp_tblPDFs values (""" & strArquivo & """);")
    strArquivo = Dir$()
    Loop

    Me!Lista0.RowSource = "select pdfs from temp_tblPDFs order by pdfs;"

    End Sub
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo 15/1/2021, 15:41

    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.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

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

    Mensagem  Kaynan 15/1/2021, 17:11

    Obrigado amigo,daria pra me enviar um exemplo com esse código.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo 15/1/2021, 18:17

    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

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

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

    Mensagem  Kaynan 15/1/2021, 18:53

    Fiz como disse,ao clicar no botão eu acho o arquivo,mas para abrir o arquivo como faço.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

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

    Mensagem  ifahidalgo 15/1/2021, 23:30

    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)
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

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

    Mensagem  Kaynan 15/1/2021, 23:51

    Agora sim,perfeito, muito obrigado amigo,valeu mesmo.

      Data/hora atual: 16/6/2021, 22:00