[Resolvido]Como adicionar um novo parágrafo dentro de uma caixa de texto

Criei um relatório no estilo de uma Carta. Puxa os dados do cliente que eu selelcionei e exibe na carta.
Essa carta será enviada para os clientes.

Exemplo:

"Prezado cliente XXXX,

De acordo com a sua data de validade dd/mm/aa bla bla bla

Ass. Leonardo."

Tenho várias opções de como fazer exibir os dados do cliente.
Uma é criando várias Caixas de Texto direcionando cada campo da tabela pra cada caixa.
OK.

Porém outra opção(a que estou interessado) seria exibir todos os dados, tanto texto quanto os campos da tabela, dentro de apenas 1 Caixa de Texto.
Eu consigo exibir todos os dados normalmente colocando dentro da TextBox como segue abaixo.... Porem tudo está na mesma linha, não consigo pular um parágrafo.

="Prezado cliente " & [Tabela_C.Nome] & "De acordo com a sua data de validade " & [Tabela_C.Data] & "Ass. Leonardo."

Alguém conhece uma sintáxe que faz o texto ir para o próximo parágrafo?!
Ficando da seguinte maneira:

="Prezado cliente " & [Tabela_C.Nome] & XXX &"De acordo com a sua data de validade " & [Tabela_C.Data] & XXX &"Ass. Leonardo."

*Detalhe que pode mudar muita coisa. Caso não exista uma função dessa, terei que utilizar várias Caixas de Texto.



Att,
Leonardo

Acredito que basta dar Enter normalmente:

="Prezado cliente " & [Tabela_C.Nome]

De acordo com a sua data de validade " & [Tabela_C.Data]

Ass. Leonardo."

Basta abrir aspa no início de todo o texto e fechá-la apenas uma vez no final.

Não é assim simples.

A textBox não aceita o (Enter) como um novo parágrafo, apenas um espaço nulo e cancela esse espaço.
Ela mostra tudo junto:

Prezado cliente XXXX,De acordo com a sua data de validade dd/mm/aa Ass. Leonardo."

Olá

Experimente o VBCrLf

="Prezado cliente " & [Tabela_C.Nome] & VbCrLf &"De acordo com a sua data de validade " & [Tabela_C.Data] & VbCrLf &"Ass. Leonardo."

Sucesso!

Na hora em que estiver digitando... se clicar em Ctrl + M ele passa para baixo (Nova linha abaixo)

Saudações

Quando eu chegar em casa vou testar essa sua dica "VbCrLf", Avelino.

Assim que eu obtiver um resultado eu posto aqui! Abraço.

Aqui eu testei com o vBcRlF e não deu. Deu do jeito que eu passei acima. Se segurar a tecla Ctrl pressionada enquanto pressionada Enter, ele aceita.

Ctrl M tambem

Utilizava este código em um sisteminha que desenvolvi em access 97:


Private Sub Enviar_GotFocus()

Me!Mensagem = " * Data: " & [DataOrçamento] & " " & " * O.S.: " & [NúmeroDoPedido] _
& " * Série / Pat.: " & [Número de série] & " * Sua O.S.: " & [OS_Cliente] & Chr(10) _
& " * Aparelho: " & [Equipamento] & " * Marca: " & [Marca] & " * Modelo: " & [Modelo] & Chr(10) _
& " * Anotações técnicas: " & [Anotações técnicas] & Chr(10) _
& " * Peças: " & [Peças] & Chr(10) _
& " * Valor das Peças: " & [Valor das Peças] & ",00" & Chr(10) _
& " * Valor da Mão de Obra: " & [Valor da mão de obra] & ",00" & Chr(10) _
& " * Total do Orçamento: " & [Total] & ",00" & Chr(10) & " " _
& Chr(10) _
& "* " & [mensagem2] & Chr(10) _
& Chr(10) _
& " *** ATENÇÃO: ORÇAMENTO PARCIAL" & Chr(10) _
& " Só teremos o orçamento completo quando o serviço estiver terminado. Se houver a necessidade de colocar outros componentes, será gerado um novo orçamento." & Chr(10) _
& " Não nos responsabilizamos por defeitos relacionados a TUBO DE IMAGEM parcialmente desfocados (bordas ou centro), o que se constitui em defeito no próprio tubo de imagem." & Chr(10) _
& " A garantia do conserto é de 90 dias na etapa consertada (é especificado na FICHA DE ENTREGA como avaliação técnica)." _
& Chr(10) _
& " A resposta a este orçamento deve vir anexada logo acima desta mensagem." & Chr(10) _
& Chr(10) _
& "AGRADECEMOS A PREFERÊNCIA" & Chr(10)

End Sub

O Chr(10) faz o retorno do carro, mudança de linha.

Se colocar por código, aí o vbcrlf funciona a contento tambem, mas como o amigo está colocando na fonte do controle, nem ele nem o chr funcionam. Pelo menos nos meus testes ainda não consegui fazer com que funcionasse, mas do jeito que passei acima, aqui funcionou. Mas vai que se for outra versão, funcione de outra forma tambem

Realmente o VbCrLf e Chr(10) só funcionam no código.

Eu estou colocando direto na Fonte de Controle como o criquio informou. E o "Ctrl+Enter" não funcionou, ele entende como um espaço nulo e cancela o enter.

Caso eu utilize através de código, onde eu o coloco?

No meu BD quando eu clico em um botão no Formulário ele carrega os dados em um Relatório. Esse código eu coloco dentro do Botão??!!

Coloque no evento "Ao clicar" do botão, logo após o código que abre o relatório. Ou então, no evento "Ao carregar" do relatório. Para colocar no botão do formulário, você precisará informar o nome do relatório e do campo:

Reports!NomeDoRel!NomeDoCampo = ...

Se for no evento "Ao carregar" do relatório, informar o nome do campo apenas:

Me.NomeDoCampo = ...

No caso de usar da maneira que postou originalmente, o problema está na posição das aspas. Deve funcionar mais ou menos assim:

="Prezado cliente " & [Tabela_C.Nome] & "

De acordo com a sua data de validade " & [Tabela_C.Data] & "

Ass. Leonardo."

Para facilitar esse processo, não criei no código. Apenas criei várias textBox para carregarem os campos que foram solicitados.

Cada textBox é um parágrafo!
Resolvido.

Agradeço a atenção de todos que ajudaram, ainda assim são boas alternativas de soluções que passaram, caso alguém precise utiliza-las!

Grande abraço.

Certo, mas eu prefiro colocar tudo em uma única caixa de texto, para não correr o risco de ter problemas com nomes ou textos maiores ou menores que pode desfigurar a configuração do texto, mesmo com a propriedade "Pode ampliar" da textbox como sim.

Enquanto não der problema, tudo bem, mas pode acontecer alguma hora, por isso eu prefiro colocar tudo em uma caixa apenas.

Criquio, o objetivo geral era exatamente esse problema de espaçamento entre os parágrafos!! rs

Mas analisei direitinho aqui e parece que vai ficar um padrão mesmo de impressão do relatório, assim ele não terá uma alteração significativa de tamanho da TxtBox.

Do jeito que está já resolve meu problema. Só que eu queria aprender SIM como fazer tudo em uma txtBox só. Tenho curiosidade.

Obrigado, de qualquer forma.

Para adicionar parágrafos basta utilizar o código vbnewline.
Exemplo:

Texto & vbnewline & texto

No controle deve ser usada a função interna Car(10) para o retorno de carro.

Use um controle calculado, cuja origem é o campo contendo o texto concatenado ao retorno de carro no final, desta forma:

CampoCalculado: [campo] & Car(10)

Já queimei alguns neurônios e algumas horas de pesquisa na net pesquisando sobre isso.
Se estiver definido a propriedade "texto em geral" concatene utilizando =seucampo & Car (13)+Car(10)
se for estiver especificado a propriedade "rich text" então utiliza-se o =seucampo & < br > & seucampo (obs: retire os espaços antes e depois do br)

Sds

Delson

delsonk, sua dica me ajudou muito. Obrigada!