MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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 14 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!

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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: Qua 07 Dez 2016, 18:13