Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Carregar Textbox com seleção Tabela Access

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Carregar Textbox com seleção Tabela Access

Mensagem por ACGuedelha »

Boa dia a todos.
Estou com duvida, pois em pesquisas no Google, não encontrei nada.
Tenho um formulário vba excel que conecta com o access, e uso este
código para importar determinada campo da "Listview" para o "textbox"
e funciona perfeitamente com dois critério.
Contudo gostaria de saber como preencher "textbox" usando 3
critérios para a soma.
O código que estou usando é este, e gostaria de incluir mais um
critério que esta no subitems (0) do "Listview".

Código: Selecionar todos

    Dim ad As Integer
    Dim some19 As Double
    For ad = 1 To Financeiro.lstv.ListItems.Count
    If Financeiro.lstv.ListItems.item(ad).SubItems(2) = "C" And Financeiro.lstv.ListItems.item(ad).SubItems(8) = "janeiro" Then
    some19 = some19 + Financeiro.lstv.ListItems.item(ad).SubItems(6)
    End If
    Next ad
    txtVJan = some19
    txtVJan = Format(txtVJan, "Currency")
Desde já agradeço qualquer orientação para solução.

Fiquem com Deus e se cuidem.
"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Carregar Textbox com seleção Tabela Access

Mensagem por Reinaldo »

Creio que não entendi corretamente a demanda; mas...
o trecho:
"...If Financeiro.lstv.ListItems.Item(ad).SubItems(2) = "C" And Financeiro.lstv.ListItems.Item(ad).SubItems(8) = "janeiro"..."
Indica: se o valor na coluna 3 do listview for "C" e o valor na coluna 8 do listview for janeiro faça a soma.

Então creio que deva incluir nessa linha o terceiro fator a ser considerado

Algo +/- assim:
...If Financeiro.lstv.ListItems.Item(ad).SubItems(2) = "C" And Financeiro.lstv.ListItems.Item(ad).SubItems(8) = "janeiro" AND Financeiro.lstv.ListItems.Item(ad).SubItems(Colunadesejada) = "vslordesejado"...


ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Re: Carregar Textbox com seleção Tabela Access

Mensagem por ACGuedelha »

Boa noite
Reinaldo

Primeiramente muito obrigado pela ajuda, contudo já tentei este caminho e sempre gera o mesmo erro.
"Erro em tempo de execução 380 Invalid property value".
Será que este erro se dá em função do terceiro critério estar na coluna (0) da "listview"?
Estou aplicando assim o comando:

Código: Selecionar todos

If Financeiro.lstv.ListItems.Item(ad).SubItems(2) = "C" And Financeiro.lstv.ListItems.Item(ad).SubItems(8) = "janeiro" AND Financeiro.lstv.ListItems.Item(ad).SubItems(0) = "2"
Estou quebrando a cabeça para encontrar uma solução, inclusive mudei a sequencia no comando acreditando
que assim iria funcionar, mas nada gera o mesmo erro.

Se puder me ajudar agradeço, se cuidem.
"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Carregar Textbox com seleção Tabela Access

Mensagem por Reinaldo »

Se a coluna deseja consta no listview,, não importa sua posição, desde que referenciada corretamente.
"Erro em tempo de execução 380 Invalid property value"
talvez o valor que atribui a esse "critério" não seja o que a coluna/list contem.
Monte/disponha um modelo que seja representativo de sua demanda, assim será mais fácil e direto uma solução


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder