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

2 participantes

    [Resolvido]Como iniciar com listbox vazia?

    avatar
    tonyxgn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/09/2012

    [Resolvido]Como iniciar com listbox vazia? Empty [Resolvido]Como iniciar com listbox vazia?

    Mensagem  tonyxgn 23/3/2022, 14:17

    Se alguém puder me ajudar, Como fazer para uma listbox iniciar  vazia no formulário e aparecer o resultado ao filtrar na pesquisa.

    segue arquivo de exemplo.

    Ainda estou iniciando no VBA, agradeço qualquer ajuda.
    Anexos
    [Resolvido]Como iniciar com listbox vazia? Attachmentlisbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (272 Kb) Baixado 5 vez(es)


    Última edição por tonyxgn em 23/3/2022, 20:12, editado 2 vez(es) (Motivo da edição : faltou o anexo)

    tonyxgn gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como iniciar com listbox vazia? Empty Re: [Resolvido]Como iniciar com listbox vazia?

    Mensagem  Marcelo David 23/3/2022, 15:06

    Bom dia,
    veja se esse meu vídeo lhe ajuda. Clique aqui.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como iniciar com listbox vazia? Marcel11

    tonyxgn gosta desta mensagem

    avatar
    tonyxgn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/09/2012

    [Resolvido]Como iniciar com listbox vazia? Empty Marcelo David

    Mensagem  tonyxgn 23/3/2022, 15:19

    Olá Marcelo David, já assisti muito vídeos seu, mas neste caso, o que me interessa realmente é iniciar com a listbox vazia, não quero que apareça a relação de mais de 1000 nomes na tela, estou tentando fazer com eles aparecer quando digitar.

    Agradeço muito sua atenção.

    não esperava uma resposta tão rápida
    obrigado

    tonyxgn gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como iniciar com listbox vazia? Empty Re: [Resolvido]Como iniciar com listbox vazia?

    Mensagem  Marcelo David 23/3/2022, 16:04

    Então, se viu lá os códigos, deve ter visto que o que carrega a listbox é a propriedade RowSource.
    Assim, para iniciar sem nenhum registro, basta iniciar o formulário (evento ao abrir), limpando a listbox:

    Me.SuaListBox.RowSource = Null

    Quando for efetuar a filtragem volte o SQL a propriedade RowSource.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como iniciar com listbox vazia? Marcel11

    tonyxgn gosta desta mensagem

    avatar
    tonyxgn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/09/2012

    [Resolvido]Como iniciar com listbox vazia? Empty Vou pesquisa o comando

    Mensagem  tonyxgn 23/3/2022, 17:10

    ainda não consegui porque na função Null não está funciona neste comando, mas já consegui iniciar vazio usando o comando que você me indicou, agora vou tentar voltar os dados ao digitar na pesquisa

    se você puder colocar o exemplo no arquivo anexo eu agradeço muito,


    Private Sub Form_Open(Cancel As Integer)

    Me.Lista2.RowSource = Null
    End Sub

    Private Sub txtpesquisa_Change()

    Me.ListaAbrigados.Requery

    End Sub
    Anexos
    [Resolvido]Como iniciar com listbox vazia? Attachmentlisbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (272 Kb) Baixado 5 vez(es)

    tonyxgn gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como iniciar com listbox vazia? Empty Re: [Resolvido]Como iniciar com listbox vazia?

    Mensagem  Marcelo David 23/3/2022, 17:45

    Poderia detalhar o funcionamento. Pois ao abrir o formulário Fr_Exclui_Ano, a lista iniciou vazia.
    Somente após selecionar o ano ela foi populada.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como iniciar com listbox vazia? Marcel11

    tonyxgn gosta desta mensagem

    avatar
    tonyxgn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/09/2012

    [Resolvido]Como iniciar com listbox vazia? Empty arquivo anexo

    Mensagem  tonyxgn 23/3/2022, 18:14

    só tem uma tabela "Ficha" e um Formulário "Menu"
    Anexos
    [Resolvido]Como iniciar com listbox vazia? Attachmentmenu.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 4 vez(es)

    tonyxgn gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como iniciar com listbox vazia? Empty Re: [Resolvido]Como iniciar com listbox vazia?

    Mensagem  Marcelo David 23/3/2022, 19:24

    Peguei o arquivo errado Laughing

    Vamos lá...

    Na propriedade Origem da linha da Caixa e listagem, apague a SQL que está lá.

    No VBA do formulário, cole essa função:

    Código:
    Private Function FncPopulaLista() As String
        FncPopulaLista = "SELECT Ficha.Cod, Ficha.Nome FROM " _
                       & "Ficha " _
                       & "WHERE " _
                       & "Nome Like '*" & Me.txtpesquisa.Text & "*' ORDER BY Nome;"
    End Function

    Agora, altere do código do evento Ao alterar da caixa de texto de pesquisa para:

    Código:
    If Me.txtpesquisa.Text = "" Then
         Me.Lista2.RowSource = ""
    Else
             Me.Lista2.RowSource = FncPopulaLista
    End If

    Teste por favor.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como iniciar com listbox vazia? Marcel11

    tonyxgn gosta desta mensagem

    avatar
    tonyxgn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/09/2012

    [Resolvido]Como iniciar com listbox vazia? Empty Funciona perfeitamente

    Mensagem  tonyxgn 23/3/2022, 20:09

    Funciona perfeitamente,

    vou estudar este código, pelo que entendi até agora; você criou uma função if para: se o campo pesquisa estiver vazio, a listbox fica vazio, senão preenche com uma string que você criou "FncPopulaLista", a string preenche os campos da listbox e ainda filtra pelo campo de pesquisa.

    Muito simples e eficiente.

    Muito Obrigado pela ajuda e sua disposição a ajuda o próximo.

    Muito Grato

    Marcelo David e tonyxgn gostam desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como iniciar com listbox vazia? Empty Re: [Resolvido]Como iniciar com listbox vazia?

    Mensagem  Marcelo David 23/3/2022, 20:14

    Exatamente isso que descreveu. Grato pelo retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como iniciar com listbox vazia? Marcel11

      Data/hora atual: 6/10/2022, 09:09