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

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Qua 07 Dez 2016, 08:39