MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    Carregar ListBox via VBA

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    Carregar ListBox via VBA Empty Carregar ListBox via VBA

    Mensagem  Assis 18/12/2017, 19:43

    Boa noite

    Ao abrir a BD e clicar no botão para abrir um formulário "Menu", dá erro e ir para o Debug. Não sei corrigir.

    No formulário " Menu " tem um campo com o valor 1 que vai ser preciso no formulário

    Obrigado


    Última edição por Assis em 18/12/2017, 23:31, editado 3 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Carregar ListBox via VBA Empty Re: Carregar ListBox via VBA

    Mensagem  FabioPaes 18/12/2017, 20:25

    Tente assim meu amigo:

    query = "SELECT tblmovimento.datamovimento, tblmovimento.historico, tblmovimento.rubrica, tblmovimento.entidade, jalinhaqry([Doc],8,'#,000',2) AS Expr1, jalinhaqry([ValorDebito],13,'Currency',3) AS Débito, jalinhaqry([ValorCredito],13,'Currency',3) AS Crédito, tblmovimento.datamovimento, Year([datamovimento]) AS Ano " & _
    "FROM tblmovimento " & _
    "WHERE (((Year([datamovimento])) Like '*" & Forms!pesquisa1!TxtAno & "') and((tblmovimento.idcaixa)= " & Forms!menu!idcaixa & ")) " & _
    "ORDER BY tblmovimento.datamovimento"


    Observe os itens destacados... Pois foram aqui as mudanças!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    Carregar ListBox via VBA Empty Re: Carregar ListBox via VBA

    Mensagem  Assis 18/12/2017, 21:33

    Boa noite Fabio

    Obrigado por responder

    Carrega a ListBox, mas .....

    Deixa de funcionar a busca em todos os campos.
    '============================================
    Private Sub txtFiltro_Change()
    Dim C As String, X As String

    X = Me.txtFiltro.Text

    C = " where ordenar like '*" & X & "*' or historico like '*" & X & "*' or Rubrica like '*" & X & "*'or entidade like '*" & X & "*'or doc like '*" & X & "*' ORDER BY ordenar, doc"
    Me.lis.RowSource = " select * from listan " & C

    Me.txtC = "Foram Encontrados " & Me.lis.ListCount & " Registros."

    '==========================================

    Tem como resolver ?

    PS - Já atualizei o link da mensagem 1 com a sua Dica.





    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    Carregar ListBox via VBA Empty Re: Carregar ListBox via VBA

    Mensagem  Alexandre Fim 19/12/2017, 00:14

    Caro Assis,

    Quando o listbox for não acoplado, vc não consegue fazer o filtro direto no objeto. É necessário refazer a query, instanciar o recordset e atualizar a listbox toda vez que o campo filtro for alterado.

    Fiz algumas alterações no seu exemplo.

    Espero ter ajudado.

    Um abraço.

    Alexandre

    Conteúdo patrocinado


    Carregar ListBox via VBA Empty Re: Carregar ListBox via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:38