MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

    Populando ListView Empty Populando ListView

    Mensagem  Geovane83 em 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?

      Data/hora atual: 18/9/2020, 20:22