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

    [Resolvido]Como simular click do mouse via vba..

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 23/05/2011

    [Resolvido]Como simular click do mouse via vba.. Empty [Resolvido]Como simular click do mouse via vba..

    Mensagem  Ney Santos em 31/3/2020, 06:18

    Boa noite trenho o seguinte código numa lstbox:
    Me!TXIDItem = Me.Lista.Column(0)
    Me!TXNmiTEM = Me.Lista.Column(1)
    Me!TXPRECO = Me.Lista.Column(3)
    Me!TXQUANT.SetFocus
    Tenho um campo texto que após ler um código de barras seleciona um produto nessa listbox( ele filtra pelo código de barras)
    bom tudo funciona bem, porém o usuario precisa clicar com o mouse sbre a listbox para executar o código acima.
    Oque gostaria de saber e seé possivel simalar esse click na listbox via vba, assim o usuario naão precisaria usar o mouse.
    Poderia ser tambem dando enter..
    espero ter explicado direito..
    Abixo ovenmto após atualizar da minah cx de texto:
    Private Sub txFiltro_AfterUpdate()
    Me.Lista.Selected(0) = True
    Me.Lista.SetFocus
    Me!TXIDItem = Me.Lista.Column(0)
    Me!TXNmiTEM = Me.Lista.Column(1)
    Me!TXPRECO = Me.Lista.Column(3)
    Me!TXQUANT.SetFocus
    Lista_Click:
    ele seleciona a listbox mas não executao o evento ao clicar
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Marcelo David em 31/3/2020, 12:37

    Bom dia,

    Ney Santos escreveu:Tenho um campo texto que após ler um código de barras seleciona um produto nessa listbox( ele filtra pelo código de barras)

    A linha na listbox é selecionada mesmo ficando marcada em preto? Ou apenas lista um único item e o clique serve para selecionar a linha?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 23/05/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Ney Santos em 31/3/2020, 12:45

    Bom dia Marcelo!
    Obrigado pela atenção.
    Então se eu clicar diretamente com o mouse listbox ela fica em preto.
    No caso quando filtro listbox pelo campo texto( tenho a opção de fazer isso pelo código de barras)
    a list box que até então mostra todos os produtos diponiveis passa a mostrar somente o item cujo cod. barras
    filtru, porem não fiaca preto.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Marcelo David em 31/3/2020, 12:58

    Ah, entendi. Mais uma dúvida:
    Você usa cabeçalho na listbox ou não?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 23/05/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Ney Santos em 31/3/2020, 13:01

    sim uso
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 23/05/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Ney Santos em 31/3/2020, 13:48

    Prezado marcelo resolvi:
    o codigo ficoua ssim , mas confesso nao sei bem qual alterção fiz pois foram tanats tentativas...
    Private Sub txFiltro_AfterUpdate()
    Me.Lista.Selected(1) = True

    Me.Lista.SetFocus
    Me.Lista = 1
    Lista_Click  <======= daqui para baixo é o evento ao clicar da minha lsitbox  
    Me!TXIDItem = Me.Lista.Column(0)
    Me!TXNmiTEM = Me.Lista.Column(1)
    Me!TXPRECO = Me.Lista.Column(3)
    Me!TXQUANT.SetFocus
    deposi de pesquisar vi que precisava mudar o valor Me.Lista.Selected(0) para 1 antes estva (0) e a partir dai ficou preto
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Como simular click do mouse via vba.. Empty Re: [Resolvido]Como simular click do mouse via vba..

    Mensagem  Marcelo David em 31/3/2020, 18:27

    1. Perguntei se a lista filtrava para exibir apenas um item (linha).
    -Sua resposta: Sim
    -Pois nesse caso, bastava seleciona essa única linha
    2. Perguntei se usa cabeçalho na lista.
    -Sua resposta: Sim
    -Para podermos selecionar a primeira linha (única no seu caso) da listbox, precisamos saber se ela tem cabeçalho, pois cada
    linha da listbox possui um índice crescente iniciado em zero e o cabeçalho é contado como uma linha. Então o cabeçalho é a linha zero. Sendo assim, a linha (única) que tem a informação que precisa é a linha 1.
    Mas caso não possuísse cabeçalho, a linha que teria as informações seria a zero.


    Então eu iria sugerir você selecionar a linha 1.

    Mas você já fez isso, exatamente como eu iria lhe instruir. Eis o código:

    Me.Lista.Selected(1) = True

    Parabéns. Feliz por ter tido a iniciativa de não apenas aguardar uma solução pronta, mas de tentar por si só encontrar a solução.

    Se precisar, estaremos aqui!

    Sucesso!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 10/8/2020, 06:06