MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Executar docx a partir do access

    Compartilhe

    luisev
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    [Resolvido]Executar docx a partir do access

    Mensagem  luisev em 26/7/2012, 22:10

    Boas caros amigos,

    Venho solicitar ajuda nesta bd. Embora tenha conseguido facilmente abrir um ficheiro .pdf a partir da bd, com um .docx a coisa não funga. Dá sempre erro de "ficheiro não encontrado". Em cada linha de propostas existe um botão com um "i", que ao clicar 2 vezes deveria abrir o ficheiro indicado na caixa logo debaixo da contagem do nº de propostas.... mas não dá.... diz sempre ficheiro não encontrado.

    O caminho está correcto C:\Controlo..... Já verifiquei.

    Podem ajudar-me? Envio a bd em anexo.

    Um abraço,





    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    executar doc a partir do access

    Mensagem  toyebom em 26/7/2012, 22:33

    1.º Devias guardar os .docx em formado .doc, visto que o segundo abre em qualquer versão do word e o primeiro não.

    de seguida, podes tentar:

    No evento ao clicar do botão, coloca o seguinte código.

    Dim Arquivo
    Arquivo = Shell("Winword.exe C:\EndereçoDoArquivo", 1)

    Ainda não testei mar disseram-me que resulta.

    luisev
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    Re: [Resolvido]Executar docx a partir do access

    Mensagem  luisev em 26/7/2012, 22:42

    Boas amigo,

    De facto tem razão. Não me lembrei de tal, e vou fazer essa alteração para doc em vez de docx.

    Quando ao seguinte, não resolve o meu problema, uma vez que o nome do ficheiro é o que surge na caixa de texto que indiquei,e não um nome fixo ou que digite.

    luisev
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    Re: [Resolvido]Executar docx a partir do access

    Mensagem  luisev em 29/7/2012, 11:01

    Boas,

    O erro que me surge é:

    Run-time error 53
    File not found

    Alguem sabe do que será?

    Cpms,

    luisev
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    Re: [Resolvido]Executar docx a partir do access

    Mensagem  luisev em 30/7/2012, 20:19

    HELP.....

    Já voltei a utilizar o pdf ao invés do doc/docx e funcionou... Mas quando altero para abrir com o word, a instrução simplesmente abre o word do office 2010 e dá os erros 1 e 2 que em anexo envio, ficando o word aberto.

    Uma vez que o caminho está correcto, excluo essa facto, pelo que não sei o que está a bloquear?

    Curioso o facto de surgirem duas mensagens! O ficheiro é "2_2012_Entidade 3", vejam as mensagens de erro s.f.f.

    Um abraço,

    luisev
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 03/01/2011

    Re: [Resolvido]Executar docx a partir do access

    Mensagem  luisev em 2/8/2012, 22:01

    Boas,

    Não há ninguem que me possa ajudar?

    cumps,
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    executar doc a partir do access

    Mensagem  toyebom em 2/8/2012, 23:45

    encontrei isto no forum espero que ajude

    Abrir Word ou Excel com o Ms Access

    'Abre word

    Private Sub DocWord_Click()
    Dim Word As New Word.Application
    With Word
    .Documents.Open "LocalDocumento"
    .Visible = True
    .WindowState = wdWindowStateMaximize
    End With
    End Sub


    'Abre excel

    Private Sub DocExcel_Click()
    Dim Excel As New Excel.Application
    With Excel .Workbooks.Open "LocalPlanilha"
    .Visible = True
    .WindowState = wdWindowStateMaximize
    End With
    End Sub


    Ou pode usar o Shell

    Private Sub SeuBotao_Click()
    x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe ", 1)
    End Sub

    ou se for um documento especifico;

    Private Sub SeuBotao_Click()
    x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe " & "C:\" & "SeuDocumento.docx", 1)
    End Sub
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    executar doc a partir do access

    Mensagem  toyebom em 16/6/2018, 03:08

    como não houve retorno, dou o resolvido


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: 25/9/2018, 04:47