[Resolvido]Executar docx a partir do access

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,

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.

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.

Boas,

O erro que me surge é:

Run-time error 53
File not found

Alguem sabe do que será?

Cpms,

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,

Boas,

Não há ninguem que me possa ajudar?

cumps,

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

como não houve retorno, dou o resolvido