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]Incrementar Texto

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Incrementar Texto

    Mensagem  M2013 em Ter 25 Fev 2014, 15:47

    Tenho um campo texto onde quero ir incrementando o texto de uma combobox. Na combo por exemplo tenho o texto "São Paulo" selecionado.Eu executo o código e esse valor vai para o campo texto [Destino], logo o campo [Destino] fica assim: "São Paulo". Ok, até aí funcionou. Só que quero selecionar agora "Rio de Janeiro" e quero inserir no campo [Destino], onde ficaria então [Destino]= "São Paulo,Rio de Janeiro" .
    Quando faço uma segunda seleção e copio , ele apaga a anterior.

    Cod.botão que aciono após escolher a seleção da combo (nome de 'Cbo_Estado') :

    Me.Destino = Me.Cbo_Estado & "," ' 'insere 1º escolha combo
    Me.Destino.SetFocus
    Me.Destino.SelStart = Len(Me.Destino) 'vai final campo
    Me.Destino = Me.Cbo_Estado & "," 'insere a 2º escolha
    Me.Destino = Me.Cbo_Estado

    obrigado
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Incrementar Texto

    Mensagem  formiga10x em Ter 25 Fev 2014, 16:21

    Código:
    Private Sub cboEscolha_AfterUpdate()

        If IsNull(Me.txtDestino) Then
        Me.txtDestino = Me.cboEscolha
        
        Else
        
        Me.txtDestino = Me.txtDestino & " X  " & Me.cboEscolha
        
        End If
        
    End Sub
    Anexos
    Destino.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 15 vez(es)

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Incrementar Texto

    Mensagem  M2013 em Ter 25 Fev 2014, 16:33

    Prezado Formiga10x muito obrigado pela resposta , funcionou perfeitamente!
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    Registrado : 11/09/2013

    Re: [Resolvido]Incrementar Texto

    Mensagem  formiga10x em Ter 25 Fev 2014, 16:34

    O Fórum agradece o retorno
    Forte abraço.

    PS: M2 Click em joinha e encerre o tópico por gentileza.

      Data/hora atual: Sab 24 Jun 2017, 01:03