MaximoAccess

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

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 : 132
    Registrado : 16/11/2012

    [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  ilvecchio em Ter 29 Set 2015, 16: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?
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Ter 29 Set 2015, 19: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 : 132
    Registrado : 16/11/2012

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

    Mensagem  ilvecchio em Qua 30 Set 2015, 17: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?
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Qua 30 Set 2015, 19: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 : 132
    Registrado : 16/11/2012

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

    Mensagem  ilvecchio em Qui 01 Out 2015, 10: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 : 132
    Registrado : 16/11/2012

    Exportar para um documento Word existente

    Mensagem  ilvecchio em Qui 01 Out 2015, 11: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?


    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Qui 01 Out 2015, 11: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: Dom 20 Ago 2017, 14:31