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


2 participantes

    [Resolvido]Concatenar campos sem deixar espaços

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Concatenar campos sem deixar espaços Empty [Resolvido]Concatenar campos sem deixar espaços

    Mensagem  ilvecchio 29/9/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
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 29/9/2015, 23:41

    Boa noite.

    Tente assim.

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 30/9/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
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 30/9/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  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Concatenar campos sem deixar espaços 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 1/10/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.
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Concatenar campos sem deixar espaços Empty Exportar para um documento Word existente

    Mensagem  ilvecchio 1/10/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
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 1/10/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  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Concatenar campos sem deixar espaços 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:01