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

Critério dentro da Listbox (precisar estar selecionado)

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: Critério dentro da Listbox (precisar estar selecionado)

Mensagem por Reinaldo »

Bruno, só posso orienta-lo pelo que entendo do que escreve, já que nao disponibilizou seu modelo.
Se o tivesse disponibilizado, certamente teria uma resposta mais direta e certa
assim quando escreveu "e eu clicar com o Mouse, ele reconhece normal" subentende-se que existe em seu modelo uma rotina que executa ou simula o clique e preenche a Texto105.Value com os dado(s) do item selecionado, assim no inicio do loop´basta chamar esse evento.


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.


Brunovinsk
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Ter Out 27, 2015 1:01 pm

Re: Critério dentro da Listbox (precisar estar selecionado)

Mensagem por Brunovinsk »

Não tenho problema em disponibilizar o modelo professor, é que não tenho o habito de usar fóruns, é novidade pra mim.

Vi agora aqui que existe a opção, vou anexar.

Vou direcionar para ver o que necessito, e obrigado.

Formulario Inicial
Botão Apropriação
Na aba pesquisa, eu estou deixando *trecho 15*km 211*, isto filtra em três registros minha lista
Clico na lupa para puxar a primeira OS da lista que se abrirá, só para exemplo mesmo, com um duplo clique.
E então clico no botão Verde abaixo Inserir / Atualizar.

É isto.
Anexos
Controle.zip
Banco de Dados
(1.29 MiB) Baixado 313 vezes


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: Critério dentro da Listbox (precisar estar selecionado)

Mensagem por Reinaldo »

Somente agora, visualizando o modelo "vi" que estamos falando exclusivamente de access (entendi que era excel com access)
Experimente então assim

Código: Selecionar todos

Private Sub Comando10_Click()

i = 1

While i < Lista98.ListCount
Lista98.Selected(i) = True

SQL = ""
SQL = SQL & "UPDATE ENT_CTR_TECN SET ENT_CTR_TECN.OS_PEP = '" & Texto105.Value & "'"
SQL = SQL & " WHERE (((ENT_CTR_TECN.FORNECEDOR)= '" & Lista98.Column(0, i) & "') AND ((ENT_CTR_TECN.NF)= '" & Lista98.Column(2, i) & "'));"

CurrentDb.Execute SQL

i = i + 1

Wend

Lista98.Requery

End Sub


Brunovinsk
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Ter Out 27, 2015 1:01 pm

[RESOLVIDO] Critério dentro da Listbox (precisar selecionar)

Mensagem por Brunovinsk »

Perfeito meu querido, funcionou perfeitamente.

Resolvido. Grande abraç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