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]Abrir arquivo especifico do Word

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Abrir arquivo especifico do Word Empty [Resolvido]Abrir arquivo especifico do Word

    Mensagem  Sidney 8/2/2018, 20:57

    Prezado Boa Tarde!!

    Estou usando o código baixo para abrir um documento word através de um botão, está ocorrendo um erro, pois ele abre mas na localiza o arquivo específico.


    Código:
    Private Sub Bt_Sintese_Click()

    X = Shell(SysCmd(acSysCmdAccessDir) & "\winword.exe " & "C:\Users\sidney.silva\Desktop\Sistemas\Taimara\Sintese\" & "Forms!frm_Cad_Familia!IF" & ".docx", 1)
     
    End Sub
    Este documento word tem que abrir pelo o registro que estiver aberto no formulário especificado pelo campo "IF", ou seja, o nome do documento word que sera aberto é o mesmo do campo IF do formulário access que está aberto.

    att;

    Sidney
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Abrir arquivo especifico do Word Empty Re: [Resolvido]Abrir arquivo especifico do Word

    Mensagem  Sidney 15/2/2018, 14:54

    Galera,

    Problema resolvido,

    Código:
    X = Shell(SysCmd(acSysCmdAccessDir) & "\winword.exe " & "C:\Users\sidney.silva\Desktop\Sistemas\Taimara\Sintese\" & Forms!frm_Cad_Familia!IF & ".docx", 1)
    tirei as aspas.

    att. Sidney

      Data/hora atual: 22/11/2024, 03:01