MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Populando ListView

    avatar
    Geovane83
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/06/2020

    Populando ListView Empty Populando ListView

    Mensagem  Geovane83 16/9/2020, 04:02

    Boa noite,

    Algum tempo estou me batendo na seguinte situação:

    No VBA, uso formularios com BD access onde possuo um cadastro de pessoa e no cadastro através de Checkbox defino o tipo de pessoa, se é cliente, exportador, importador...

    Porém para carregar uma listView em um outro formulario, há dois código diferentes de pessoa, porém o nome pessoa carrega o mesmo para os dois codigos


    With ListView1
           .Gridlines = True
           .View = lvwReport
           .FullRowSelect = True
           .ColumnHeaders.Add text:="COD", Width:=30
           .ColumnHeaders.Add text:="EXP", Width:=50
           .ColumnHeaders.Add text:="COD", Width:=0
           .ColumnHeaders.Add text:="IMPORTADOR", Width:=150



       ComandoSQL = ComandoSQL & "Tab_Processo_exp.COD_EXP,"
       ComandoSQL = ComandoSQL & "Tab_Pessoa.NOME_PESSOA,"
       ComandoSQL = ComandoSQL & "Tab_Processo_exp.COD_CONS,"
       ComandoSQL = ComandoSQL & "Tab_Pessoa.NOME_PESSOA,"

    ListView1.ListItems.Clear
             
       
       While Not Recordset.EOF
               Set List = Rel_Embarques.ListView1.ListItems.Add(text:=Recordset(0))  'id
               List.SubItems(1) = Recordset(1) 'codigo pessoa
               List.SubItems(2) = Recordset(2) 'nome pessoa
               List.SubItems(3) = Recordset(3) 'codigo pessoa
               List.SubItems(4) = Recordset(4) 'nome pessoa



    Na listview carrega da seguinte maneira:
    Recordset(1) codigo pessoa = 3 - Recordset(2) nome pessoa = Paulo
    Recordset(3) codigo pessoa= 5 - Recordset(4) nome pessoa= Paulo

    Como mostra o nome pessoa carregou também no Recordset(4) o mesmo do Recordset(2) e deveria carregar o codigo pessoa 5 que corresponde a João.

    Sabem como posso tratar esta questão dentro da mesma listview?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7950
    Registrado : 05/11/2009

    Populando ListView Empty Re: Populando ListView

    Mensagem  Alexandre Neves 27/9/2020, 19:11

    Boa tarde e bem-vindo ao fórum
    O problema estará quando carregou o recordset?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Clenilton gosta desta mensagem


      Data/hora atual: 15/5/2021, 08:39