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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Critério dentro da Listbox (precisar estar selecionado)
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Ter Out 27, 2015 1:01 pm
Re: Critério dentro da Listbox (precisar estar selecionado)
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.
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
- Reinaldo
- 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)
Somente agora, visualizando o modelo "vi" que estamos falando exclusivamente de access (entendi que era excel com access)
Experimente então assim
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
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Ter Out 27, 2015 1:01 pm
[RESOLVIDO] Critério dentro da Listbox (precisar selecionar)
Perfeito meu querido, funcionou perfeitamente.
Resolvido. Grande abraço.
Resolvido. Grande abraço.