MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Carta Cobrança - no Word com dados do Access

    avatar
    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 45
    Registrado : 09/09/2013

    [Resolvido]Carta Cobrança - no Word com dados do Access Empty [Resolvido]Carta Cobrança - no Word com dados do Access

    Mensagem  FabianaOli em 19/4/2020, 03:40

    Prezados, por gentileza, gostaria de auxílio para possibilitar uma listagem de cobranças dentro da carta em formato do Word. O código abaixo funciona quando há apenas um registro de cobrança associado ao cliente. Os registros com os débitos de um cliente ficam num Sub_Form. Porém, gostaria de saber se é possível fazer algo com array / UBound para possibilitar a listagem dos débitos na mesma carta. Obrigada.

    Private Sub cmdImprimir_Click()

    Dim oApp As Object 'Cria uma variável objeto

    Dim PastaArq, ArqModelo

       'seta pasta do banco de dados
       PastaArq = CurrentProject.Path

       'Indicar nome do arquivo
       ArqModelo = "CartaCobrança.docx"
           
       ' Inicia o MS Word
       Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
       ' Torna o MS Word visível
       oApp.Visible = True
       ' Abre o documento base
       oApp.Documents.Add (PastaArq & "\" & ArqModelo)
           
       'Move cada campo para o indicador definido no documento
       oApp.ActiveDocument.Bookmarks("NumId").Select
       oApp.Selection.Text = (NumId)    
       oApp.ActiveDocument.Bookmarks("Cliente").Select
       oApp.Selection.Text = (Cliente)    
       oApp.ActiveDocument.Bookmarks("Vencimento").Select
       oApp.Selection.Text = Trim(CStr(Forms!Form_DadosClientes!Sub_Form_ClientesDebitos.Form!Vencimento))

    oApp.ActiveDocument.Bookmarks("Valor").Select
       oApp.Selection.Text = Trim(CStr(Forms!Form_DadosClientes!Sub_Form_ClientesDebitos.Form!Valor))


       oApp.Application.Quit

       Set oApp = Nothing
    End Sub


    Resolvido com a adaptação do código do Criquio: https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word.

    Muito obrigada.


    Última edição por FabianaOli em 20/4/2020, 23:38, editado 1 vez(es) (Razão : https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word)
    avatar
    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 45
    Registrado : 09/09/2013

    [Resolvido]Carta Cobrança - no Word com dados do Access Empty Resolvido

    Mensagem  FabianaOli em 20/4/2020, 23:42

    Resolvido com a adaptação do código do Criquio:

    https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word

      Data/hora atual: 13/8/2020, 15:06