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]Inserir vários textos predefinidos em uma única TextBox

    Compartilhe

    Helison87
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/07/2016

    [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  Helison87 em Dom 10 Jul 2016, 03:07

    Boa noite pessoa,

    estou com uma duvida, na realidade não sei como fazer. Criei uma form pra me auxiliar no trabalho onde eu tenho vários textos "respostas padrão" e quero acrescentar varias delas em mesma textbox. Consigo acrescentar uma e um texto manualmente, mais quando clico em outro botão a informação é sobrescrita.
    Teria como colocar algum comando no evento da textbox para que quando ja existir um texto ele apenas acrescentar os outros ?
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Desde já agradeço a atenção de todos!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    Registrado : 14/08/2013

    Re: [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  FabioPaes em Dom 10 Jul 2016, 04:09

    Faça assim amigo, no Botão coloque:


    Me.Texto26 = Me.Texto26 & vbNewLine & "Proximo Texto..."



    vbNewLine é o mesmo que o Enter, assim ao clicar ele pega o que ja tem la na caixa texto Texto26 da um enter e Coloca Proximo Texto...

    Digamos que na caixa de texto ja tenha o valor:

    Fabio Paes


    Ao clicar ficara:


    Fabio Paes
    Proximo Texto...



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Helison87
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/07/2016

    Re: [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  Helison87 em Dom 10 Jul 2016, 04:49

    Brother ele inseriu o texto seguinte por varias vezes, seria bem isso mesmo, porem seria outro texto especifico de outro botão.
    mesmo assim obrigado.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    Registrado : 14/08/2013

    Re: [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  FabioPaes em Dom 10 Jul 2016, 04:59

    Me.Texto26 = Me.Texto26 & vbNewLine & "Proximo Texto..."

    Amigo, a parte em vermelho deve ser alterado para o Valor, texto, consulta ou variável que pretende...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Helison87
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/07/2016

    Re: [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  Helison87 em Dom 10 Jul 2016, 05:07

    Fica assim então ?
    Private Sub TextBox1_Change()
    Me.TextBox1 = Me.TextBox1.Value & vbNewLine & Me.CommandButton2
    End Sub

    me retornou isso
    Realizada a suspenção da compras contestadas pelo cliente. Documentação ok.
    Falso
    Falso
    Falso
    Falso

    Desculpe pois não sei programar em vb, estou aprendendo agora

    Helison87
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/07/2016

    Re: [Resolvido]Inserir vários textos predefinidos em uma única TextBox

    Mensagem  Helison87 em Dom 10 Jul 2016, 05:35

    Obrigado pela atenção Fabio Paes, mais ja descobri como fazer
    ficou assim:
    Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
    TextBox1.Text = TextBox1 & vbNewLine & Plan1.Range("B8").Text
    Else
    TextBox1.Text = Plan1.Range("B8").Text
    End If
    End Sub

    a condição direto no evento do botão e não no textbox.

    Abraço!

      Data/hora atual: Ter 17 Out 2017, 08:51