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


5 participantes

    [Resolvido]Ligação Access e Word

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 23/4/2012, 18:20

    Boa Tarde

    Estou fazendo um sistema de contrato de prestação de serviços, onde dados do contrato fica numa tabela do access.

    Tenho:
    1. formCadastroClientes
    1. tblClinetes
    1. Contrato (Word)
    O seguinte: Tem como ligar os campos da tabela ao word, sendo que seja digitado no espaço correto, como exemplo,
    o Nome do cliente seja preenchido no lugar do cliente no documento Word.

    Alguem pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  criquio 23/4/2012, 19:19

    Dê uma pesquisada por Word Indicadores que temos alguns tópicos já resolvidos sobre o assunto.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    mucascosta
    mucascosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 22/01/2010

    [Resolvido]Ligação Access e Word Empty Ligação Access e Word

    Mensagem  mucascosta 25/4/2012, 19:01

    PatSoft,

    Aqui http://www.4shared.com/folder/U9j-FA5L/_online.html tem um exemplo
    EmpregadaDomestica.rar que pode ser adaptado à suas necesidades.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 26/4/2012, 17:32

    Vou dar uma olhada e qualquer coisa eu retorno.

    Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 2/5/2012, 16:59

    Excelente exemplo.

    Mais não tem como eu criar um cadastro de clientes no access e importar para o word?

    Sendo que cada dados vai para o word em seu determinado lugar.

    Será que alguem pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  criquio 2/5/2012, 17:08

    Você quer exportar do Access para o Word ou importar do Access no Word? Para o primeiro caso, minha dica anterior serve tambem. Para o segundo, basta criar uma mala direta no Word.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    mucascosta
    mucascosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 22/01/2010

    [Resolvido]Ligação Access e Word Empty Ligação Access e Word

    Mensagem  mucascosta 2/5/2012, 20:10

    PatSoft,

    Com o exemplo disponibilizado, você pode adaptar às suas necessidades; inclusive para gerar mala direta com base no seu banco de dados (Tabela e/ou consulta).
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 3/5/2012, 17:56

    Eu pesquisei aqui no fórum e encontrei um exemplo que era realmente o que eu queria, estou modificando o exemplo, masi esta com um erro que não consegui resolver.
    Na hora de clicar no botão "Imprimir" dá um erro.

    Será que alguém pode me ajudar?

    Download


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 3/5/2012, 18:23

    E esta acontecendo um erro no Modulo, nesse pedaço:
    Código:

    Error_AccessToWord:
        ApActivate "Microsoft Access"
        Beep
        MsgBox "Error de automatizacion:" & vbCrLf & Err.Description, vbCritical, "AVISO"
        Exit Function
    End Function


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 3/5/2012, 20:59

    Quem pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 4/5/2012, 17:01

    Eu monte o exemplo de acordo como eu queria mais esta com erro, mais não sei como resolver.

    Aqui o Banco de dados:Baixar


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Ligação Access e Word Empty No access 2010

    Mensagem  Mylton 4/5/2012, 21:34

    Amigo no access 2010 dá um erro de automatização. Parâmetros insuficientes. Eram esperados 1.

    Prossigo na impressão e funciona.
    Imprimiu tudo.
    Veja o que pode ser.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Ligação Access e Word Empty Uma pimentada

    Mensagem  Mylton 4/5/2012, 21:37

    Se fosse em dois foms como seria o comando para buscar nestes dois form tudo que está digitado nele?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Alexandre Neves 4/5/2012, 22:16

    Boa noite, Mylton

    Não tenho acompanhado esta dúvida. No entanto, os dados indicados são insuficientes para avaliar.
    Disponibilize a bd (formato 2003) e o ficheiro word e diga o que pretende (pode anexar ficheiro word com explicação)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 5/5/2012, 12:18

    Problema resolvido.

    Em vez do Módulo:
    Código:

    Option Compare Database
    Option Explicit
    Public DocWord As Object    ' Word.Document  es asignada desde el formulario
    Function EscribeWord(Optional NumeroCliente As Integer)
        Dim RngCurrent As Object    ' Word.Range
        Dim Rst As dao.Recordset, Sql As String
        Dim PastaQueDebe As Currency
        On Error GoTo Error_AccessToWord
        Set RngCurrent = DocWord.Content

        '-- añadimos texto de las facturas etc etc
        With RngCurrent


            .Bold = True  'En negrilla
            .InsertAfter "Estimado Cliente :" & vbCrLf

            .InsertAfter "Adjunto le remitimos relación de Facturas pendientes de pago, con el ruego, que a la mayor brevedad " _
                        & "se sirva pagar de una puñetera vez, que ya estamos hartos de Vd, leches." _
                        & " Esperamos su pronta respuesta y si no, ya sabe, irá directamente al juzgado. "
            .InsertAfter vbCrLf
            .InsertAfter vbCrLf & vbCrLf
            .InsertAfter "RELACCIÓN DE FACTURAS:"
            .InsertAfter vbCrLf
            .InsertAfter "========================="
            .InsertAfter vbCrLf
            .InsertAfter vbCrLf
            '.ListFormat.ApplyBulletDefault
            'La anterior linea es para crear puntos
            'ahora metemos aqui un recodset con todas
            'las Facturas de este cliente.
            Sql = "Select * from Facturas where IDCliente=" & NumeroCliente
            Set Rst = CurrentDb.OpenRecordset(Sql)
            While Rst.EOF = False
                    .InsertAfter Rst("N_factura") & "  " & Rst("Importe") & "  " & Rst("Fecha") & vbCrLf & vbCrLf
                    PastaQueDebe = PastaQueDebe + Rst("Importe")
                    Rst.MoveNext
            Wend
            .InsertAfter vbCrLf
            .InsertAfter vbCrLf
            .InsertAfter vbCrLf
            .InsertAfter vbCrLf
            .Bold = True
            .InsertAfter "El total de su deuda asciende a " & PastaQueDebe & " Euros" & vbCrLf
            .InsertAfter vbCrLf
            .InsertAfter "Atentamente le saluda:"
            .InsertAfter vbCrLf
            .InsertAfter "Gerente de la Empresa: Er Búho, pajarraco nocturno."
        End With
        Set RngCurrent = Nothing
        Rst.Close
        Set Rst = Nothing


        Exit Function

    Error_AccessToWord:
        AppActivate "Microsoft Access"
        Beep
        MsgBox "Error de automatizacion:" & vbCrLf & Err.Description, vbCritical, "AVISO"
        Exit Function


    End Function



    Eu deixei somente este:
    Código:

    Option Compare Database
    Option Explicit
    Public DocWord As Object   
    Function EscribeWord(Optional NumeroCliente As Integer)
        Dim RngCurrent As Object   
    End Function


    Ai funcionou legal, disponibilizo o banco de dados abaixo:

    Sistema de Contratos


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Ligação Access e Word Empty O banco

    Mensagem  Mylton 5/5/2012, 16:06

    Oi Bom dia.
    Agradeço o retorno
    Consegui este código na web e fiz algumas adaptações.
    Entretanto não consigo ir a frente por dois motivos, além é claro de não saber rsrsrsrs.
    1) Dá erro na conexão.
    2) Como conseguiria jogar todas as patologias que uma pessoa pode ter para dentro do modelo do laudo?

    No link compactado com win rar o exemplo do banco no formato 2003 e 2007.
    http://dl.dropbox.com/u/26997422/Modelo%20de%20Laudo.rar
    Se puder me ajudar agradeço.
    Bom final de semana.
    Mylton
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 7/5/2012, 17:35

    Em breve retorno.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Connekta Informatica 7/5/2012, 17:38

    O erro foi resolvido.
    Dê uma olhada:

    Download
    Depois retorno com outras infromações.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]Ligação Access e Word Empty Mantenho dúvidas

    Mensagem  Mylton 10/5/2012, 19:02

    Amigos. A solução encontrada foi de criar um tabela EmissãoContrato com todos os ítens no form EmissãoContrato. Dai aciona o botão imprimir e vai tudo.
    Com certeza me ajuda e meuito. Mas a minha dúvida persiste na seguinte condição:
    O access possui limites de tabela e consulta. se vc possui uma aplicação que ultrapasse esse limite vc terá que colocar em mais forms. Certo? Pois bem, como coletar esses dados de vários forms? Quando quase todos já estarão fechados com um só, onde está o comando aberto??
    Se alguém puder ajudar agradeço. Obrigado.

    Conteúdo patrocinado


    [Resolvido]Ligação Access e Word Empty Re: [Resolvido]Ligação Access e Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:54