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]Listar vários registros em uma caixa de texto

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 576
    Registrado : 09/11/2012

    [Resolvido]Listar vários registros em uma caixa de texto

    Mensagem  =>Nois em Sex 21 Ago 2015, 15:57

    Olá

    Tenho uma tabela fictícia (tbl_teste) com duas colunas

    1º coluna (codigo)
    2º coluna (num_expedicao)


    nesta tabela existem vários registros assim:

    codigo | num_expedicao
    123     |15666
    456     |89999
    123     |58887
    123     |22222
    899     |88997
    555     |72333

    gostaria de uma função por exemplo que localize o código: (123) e me retornasse todos os registros do (num_expedicao)
    em apenas uma caixa de texto, ficando assim:

    15666/58887/22222

    ou seja todos os registros que compreendem o codigo (123) listados dentro de uma caixa de texto.

    localizar: codigo (123)
    Resultado: num_expedicao (15666/58887/22222)



    valeu!!! bounce


    Última edição por noisnafita em Sex 21 Ago 2015, 18:30, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 576
    Registrado : 09/11/2012

    Re: [Resolvido]Listar vários registros em uma caixa de texto

    Mensagem  =>Nois em Sex 21 Ago 2015, 18:30

    resolvi com um dos tópicos do Piloto


    Me.Texto1 = Null
    Dim Rs As DAO.Recordset
    Dim StrSQL As String
    StrSQL = "SELECT num_expedicao FROM tbl_teste WHERE codigo = " & Me.Texto3 & ""
    Set Rs = CurrentDb.OpenRecordset(StrSQL)
    Rs.MoveFirst
    Do While Not Rs.EOF
    Me.Texto1 = Me.Texto1 & Rs!num_expedicao & " / "
    Rs.MoveNext
    Loop



    Basketball


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Sab 22 Jul 2017, 09:46