MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Concatenar campos sem deixar espaços

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 16/11/2012

    [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  ilvecchio em Ter 29 Set 2015, 20:24

    Buenas!
    Tenho dois problemas a resolver quando concateno campos texto e números.

    Exemplo: "As parcelas vencidas do mutuário " & NomeMutuario & "somam R$ " & TotalVencido & "."

    O nome do mutuário não tem comprimento fixo e o TotalVencido também não. Este precisa vir formatado com ponto e a vírgula separando os centavos:

    a) "As parcelas vencidas do mutuário José da Silva somam R$ 1.230,00."
    b) "As parcelas vencidas do mutuário João Monteiro de Castro Antunes somam R$ 940,12."

    Sem os ajustes teria algo do tipo: "As parcelas vencidas do mutuário José da Silva                    somam R$          1.230,00."
    Pois teria de deixar espaço para o maior nome e o maior valor.

    A função Textwidth se propõe a determinar o espaço ocupado pelo texto, de acordo com o tamanho, tipo da fonte e negrito. Porém isso não aconteceu. Independente da fonte usada o tamanho do campo é calculado com a fonte Arial 8 normal. Também não consegui determinar o comprimento ocupado pelo valor da dívida, nem manter o formato (o ponto separador de milhar)


    Access 2003

    Alguém tem uma sugestão?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  Cláudio Machado em Ter 29 Set 2015, 23:41

    Boa noite.

    Tente assim.

    "As parcelas vencidas do mutuário " & NomeMutuario & "somam " & Format(TotalVencido,"currency") & "."

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 16/11/2012

    Re: [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  ilvecchio em Qua 30 Set 2015, 21:28

    Buenas, Claudio!

    O função currency funcionou. Agora surgiu outra questão: noutro relatório tenho valores em milhão, com uma casa decimal. Nesse caso não posso usar a função, pois ela retorna sempre duas.
    Alguma outra dica?

    E quanto aos espaços, teria uma sugestão?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  Cláudio Machado em Qua 30 Set 2015, 23:33

    Bem, neste caso aumente as casas decimais na propriedade do campo.
    Quanto aos espaços, ainda não entendi bem o que quer.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 16/11/2012

    Re: [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  ilvecchio em Qui 01 Out 2015, 14:21

    Buenas!

    Encontrei esta dica "format("1500,50","###,###,###0.00") e ("1500,50","###,###,####.##"). O primeiro retornou "1.500,50" e o segundo "1.500,5", no IMastersForum, postada pelo cassitos (lá em 2003)

    Isso também resolveu a questão dos espaços, por enquanto.

    Obrigado, Claudio.

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 16/11/2012

    Exportar para um documento Word existente

    Mensagem  ilvecchio em Qui 01 Out 2015, 15:49

    Buenas!

    Para exportar um relatório para o Word, uso o código padrão do Access 2003:

    DoCmd.OutputTo acOutputReport, "Meu Relatório", acFormatRTF, "Relatório_" & VarData ".doc", True

    Porém, gostaria de poder exportá-lo para um documento Word que já existe, onde tenho um cabeçalho personalizado, à partir da linha 5 desse documento.
    Em seguida, copiar esse documento e salvá-lo com outro nome em uma pasta "X" no computador do usuário.

    Alguém pode me ajudar com essa tarefa?



    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  Cláudio Machado em Qui 01 Out 2015, 15:50

    Valeu amigo.
    o Fórum agradece o retorno.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Qua 07 Dez 2016, 18:18