[Resolvido]Quebra de linha em campo memorando pelo vba

Aí galera,
Estou apanhando no seguinte código:

Me.objeto_viagem = Me.viagem & vbCrLf & " texto"

Não estou conseguindo fazer com que o campo exiba os dois textos em linhas diferentes, ou seja, quero que o texto " texto" desça uma linha do texto Me.viagem.
No entanto mesmo usando o vbCrLf ou o vbNewLine os dois textos ficam na mesma linha.

Obs: O texto do campo Me.viagem vem de outro campo do tipo memorando. O texto " texto" será gravado no código.
Alguém pode me ajudar?

Boa tarde,
Procure aqui no fórum

É como eu disse, já testei todas essas sugestões e nada. O texto continua em uma só linha das duas formas:
Me.objeto_viagem = Me.viagem & vbCrLf & " texto"
Me.objeto_viagem = Me.viagem & vbNewLine & " texto"

Já experimentou inverter os devidos campos ?

Me.objeto_viagem = "texto" & vbCrLf _
& Me.viagem

Não tinha reparado nesse pormenor.
Esse campo também é do tipo memorando?

Silvio, os textos devem estar nessa ordem, pois o segundo, quando adicionado é uma complementação do primeiro, só que em novo parágrafo.
Alexandre, os campos são do mesmo tipo, memo.
Pra ser mais específico, o segundo texto é uma complementação do 1º, onde este pode ser o próprio campo, pois existe uma função para apenas adicionar o segundo texto após o primeiro se um certo critério for atendido.
Assim:
Tenho o campo Objeto_viagem, que especifica o relato da viagem a ser feita.
Tenho um botão que quando clicado ele divide o valor da diária pela metade, tendo como base uma lei do nosso Estado.
Então, o botão que vai inserir o texto no campo Objeto_viagem, verifica se o botão que divide o valor da diária está acionado, e se sim, ele deve, além de inserir um texto automaticamente no campo (texto gravado no código fonte), usar o próprio campo para inserir a referida lei em um novo parágrafo.

Me.Objeto_viagem = Me.Objeto_viagem & "Perceberá o valor correspondente a metade das diárias, conforme Art. 3º, § 1º do Decreto 14.910, de 03/08/2012, Item III."

Se o campo já estiver preenchido, a função deve apenas acrescentar o texto acima em um novo parágrafo.

Viajar a serviço do Gabinete Militar da Governadoria, na função de Ajudante de Ordens, a fim de acompanhar e assessorar o Exmº. Senhor Governador do Estado do Piauí, conforme Art. 5º do Decreto 14.910, de 03/08/2012.
Perceberá o valor correspondente a metade das diárias, conforme Art. 3º, § 1º do Decreto 14.910, de 03/08/2012, Item III.

É dessa forma que preciso que o texto fique, no entanto ele está ficando assim:

Viajar a serviço do Gabinete Militar da Governadoria, na função de Ajudante de Ordens, a fim de acompanhar e assessorar o Exmº. Senhor Governador do Estado do Piauí, conforme Art. 5º do Decreto 14.910, de 03/08/2012. Perceberá o valor correspondente a metade das diárias, conforme Art. 3º, § 1º do Decreto 14.910, de 03/08/2012, Item III.

Já tentei as duas forma do vb (vbCrLf e vbNewLine) entre os textos e nada resolveu. Também não dá nenhum erro.
No campo, através do formulário, pode dar um enter depois do 1º texto que fica no formato desejado, mas seria interessante que o vba fizesse isso sem que fosse preciso editar.

Estou inserindo o meu código:

Private Sub Auto_Preencher_Objeto_Click()
  Dim objeto As String
  If Me.Objeto_viagem <> "" Then
      If Me.Aplicar_leiDiária.Visible = False Then
          objeto = Me.Objeto_viagem
          objeto = objeto & vbCrLf & "               Perceberá o valor correspondente " _
          & "a metade das diárias, conforme Art. 3º, § 1º do Decreto 14.910, de 03/08/2012, Item III."
      End If
      Exit Sub

  Else
      If Me.Função = "Ajudante de Ordens" Then
          objeto = "               Viajar a serviço do Gabinete Militar da Governadoria, " _
          & "na função de " & Me.Função & ", a fim de acompanhar e assessorar o Exmº. Senhor " _
          & "Governador do Estado do Piauí e/ou Dignitários e demais Autoridades, conforme Art. 5º do Decreto 14.910, de 03/08/2012."
      ElseIf Me.Função = "Ajudante de Ordens do Governador" Then
          objeto = "               Viajar a serviço do Gabinete Militar da Governadoria, " _
          & "na função de " & Me.Função & ", a fim de acompanhar e assessorar o Exmº. Senhor " _
          & "Governador do Estado do Piauí, conforme Art. 5º do Decreto 14.910, de 03/08/2012."
      ElseIf Me.Função = "Ajudante de Ordens da 1ª Dama" Then
          objeto = "               Viajar a serviço do Gabinete Militar da Governadoria, " _
          & "na função de " & Me.Função & ", a fim de acompanhar e assessorar a 1ª Dama " _
          & "do Estado do Piauí, conforme Art. 5º do Decreto 14.910, de 03/08/2012."
      Else
          objeto = "               Viajar a serviço do Gabinete Militar da Governadoria, na função de " & Me.Função & _
          ", a fim de acompanhar o Exmº. Senhor Governador do Estado do Piauí e/ou demais Autoridades."
      End If
  End If

  If Me.Aplicar_leiDiária.Visible = False Then
      objeto = objeto & vbCrLf & "               Perceberá o valor correspondente " _
      & "a metade das diárias, conforme Art. 3º, § 1º do Decreto 14.910, de 03/08/2012, Item III."
  End If

  Me.Objeto_viagem = objeto
End Sub

Nesse código eu fiz tudo pelo vba, ou seja, sem que o código recorra ao texto já inserido no campo memorando, ou seja, com a variável objeto, tudo é armazenado nela e depois, o seu valor é inserido no campo Objeto_viagem. Antes eu usava o campo diretamente, e nenhuma das duas formas funcionou.
O campo Me.Função insere a função correspondente do respectivo militar.

o campo memorando esta em Rich Text?

Sim, está. Isso porque o usuário poderá alterar a formatação, colocar algumas palavras ou todas em negrito, etc.
Será esse o problema?
Vou testar aqui e retorno.

Avelino, e como ficaria essa tag no meu código? Se possível, mostre um exemplo.
A orientação do Sílvio procede, o texto quando sem formatação Rich Text faz o que estou querendo, no entanto, perco a possibilidade de formatar um texto que pode precisar de formatação.
Agradeço a atenção de todos.

Aí galera, deu certo.
A orientação do Sívio também resolve, mas como disse, perco a liberdade de formatar o texto pelo formulário.
Usando a orientação do Avelino, a tag "
" no lugar do vbNewLine ou vbCrLf,
o novo parágrafo é acrescentado. Show de bola.
Agradeço a todos pelo atenção e ensinamentos.

Olá, poderia colocar aqui o comando, estou tentando , mas não pula linha. Eu não entendi como colocar a tag ... Estou usando o vbCrLf , mas não está funcionando.

.HTMLBody = "Prezado cliente" & vbCrLf & " Lembramos que seu título nº 0000000000 vencerá em 00/00/2100."

Fica tudo na mesma linha.


Obrigada.

Boa tarde Janette.

O tópico já está encerrado, mas vamos lá...

Algo parecido com isso abaixo:

.HTMLBody = "Prezado cliente" & "

" & "

Lembramos que seu título nº 0000000000 vencerá em 00/00/2100."

Agradeço Silvio pela atenção e desculpe ...

Mas deu erro na sintase...não funcionou dessa forma..

Bom dia...

Ato falho meu, teste assim:

Código:

.HTMLBody = "Prezado cliente" &  "<br><br>Lembramos que seu título nº 0000000000 vencerá em 00/00/2100."

Obrigada meu querido, funcionou!

Abusando um pouquinho....e para mudar o tamanho da fonte, vc sabe?

boa tarde, nãoconsigo entender o problema da minha condição

Código:

Private Sub Comando6_Click()
Dim db      As DAO.Database
Dim sSQL    As String
  Set db = CurrentDb
  If Me.TxQTDE > Me.txtQuantidadeValidar Then
    MsgBox "Não temos essa quantidade no estoque", vbInformation, "Center - Print"
    ElseIf Me.TxQTDE < Me.txtQuantidadeValidar Then
   
 

    CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade -'" & Me.TxQTDE & "' WHERE [CodigoBarras] = '" & Me.cboCodProduto & "' "

sSQL = "INSERT INTO paracupom"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "("
    sSQL = sSQL & "  nomeDoProduto"
    sSQL = sSQL & " ,preco"
    sSQL = sSQL & " ,Quntidade"
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "  '" & Trim(Me.cboNomeDoProduto) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.txtPrecoValidar) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
    sSQL = sSQL & ")"
    db.Execute sSQL
  ' Me.txtSubTotal = Reports!relatorioDecupom!preco
relatoriDecupom.Requery
Me.cboNomeDoProduto = Null
Me.TxQTDE = Null
Me.cboCodProduto = Null
'Me.total = Null
'MsgBox "Cadastrado com sucesso", , "Center Print"
' "Efetuada com sucesso", vbInformation, "Aviso"
 End If
  End Sub

Boa tarde

Apesar do tópico não tem nada em haver com a tua duvida...tente isso.


If Me.TxQTDE > Me.txtQuantidadeValidar Then
MsgBox "Não temos essa quantidade no estoque", vbInformation, "Center - Print"
me.txqtde= ""
me.txqtde.setfocus
exit sub
endif

If Me.TxQTDE < Me.txtQuantidadeValidar Then
..
.....

..........