Usando Access

Criar arquivo Word com nome específico

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Usuário Sidney:

Bom dia!

Estou tentando elaborar um código para criar um arquivo Word, com um nome específico, a partir de um registro de um formulário aberto.  Porém, está ocorrendo um erro no comando Shell().   Observe o código abaixo:

Private Sub Bt_Sintese_Click()
Dim strCaminho$ 
On Error GoTo 1
strCaminho = "C:\Sistemas\Sintese\" & Forms!frm_Cad_Familia!IF & ".docx"  
Application.FollowHyperlink strCaminho, , True
1:
  If Err.Number = 490 Then
     If MsgBox("Arquivo não encontrado, Deseja criar um novo?", vbYesNo + cvQuestion, "Atenção!!!") = vbYes Then
        X = Shell(SysCmd(acSysCmdAccessDir) & "\winword.exe\ & strCaminho", 1) 
     End If
     Exit Sub
  Else
     Exit Sub
  End If
End Sub

O erro informado é este:

Erro em tempo de execução "53"
O arquivo não foi localizado

Suporte:

Sidney, experimente o código abaixo.  Atente aos comentários.

Faça o login aqui para ter acesso ao código.

Usuário Sidney:

Avelino, bom dia!

Como sempre perfeito, mais uma vez, obrigado!

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |