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


2 participantes

    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 : 8114
    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: 27/5/2022, 03:18