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

    [Resolvido]Selecionar um registro na Listbox através de uma textbox

    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  josé waldick Qui 05 Ago 2021, 4:50 pm

    Boa tarde, pessoas!
    Tenho um forms onde contém uma listbox com o cadastro de fornecedores, gostaria de pesquisar os fornecedores da Listbox através de uma Textbox, e quando o registro fosse encontrado, ele ficasse selecionado; isso será possível?


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1343
    Registrado : 07/12/2011

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty Re: [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  tauron Dom 08 Ago 2021, 8:13 am

    Tente adaptar

    Coloque na caixa de texto :

    Private Sub CaixadeTexto_AfterUpdate()
    Me.CaixaListagem = ""
    Me.CaixaListagem.Requery
    Me.Requery
    End Sub

    Private Sub CaixadeTexto_LostFocus()
    Me.CaixaListagem.SetFocus
    Me.CaixadeTexto = ""
    End Sub

    em um botão:

    Private Sub Comando4_Click()
    Dim sel As Variant
    Dim strwhere As String
       
    On Error GoTo Err_Comando4_Click

       strwhere = "CampoChave in ("
       For Each sel In Me.CaixaListagem.ItemsSelected
           strwhere = strwhere & "'" & Me.CaixaListagem.ItemData(sel) & "',"
       Next
       strwhere = strwhere & ")"
       
       DoCmd.OpenReport "NomedoRelatorio", acViewPreview, , strwhere
       DoCmd.Close acForm, "NomedoformulariodePesquisa", acSaveNo

    Exit_Comando4_Click:
      Exit Sub

    Err_Comando4_Click:
      MsgBox Err.Description
      Resume Exit_Comando4_Click
    End Sub
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty Re: [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  josé waldick Dom 08 Ago 2021, 12:04 pm

    Boa tarde, tauron!
    Funcionou perfeitamente, muito obrigado!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty Re: [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  josé waldick Dom 08 Ago 2021, 12:12 pm

    Muito obrigado!
    --- Nota ao Pessoal do administrativo ---
    O botão Resolvido não está funcionando, motivo pelo qual não está finalizando esta postagem.


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1343
    Registrado : 07/12/2011

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty Re: [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  tauron Seg 09 Ago 2021, 5:25 am

    O forum agradece.

    Poste algo como qualquer "figurinha" e tente clicar no botão resolvido. Comigo funcionou.
    avatar
    Gilberto_Gaspar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/08/2016

    [Resolvido]Selecionar um registro na Listbox através de uma textbox Empty Re: [Resolvido]Selecionar um registro na Listbox através de uma textbox

    Mensagem  Gilberto_Gaspar Qua 11 Ago 2021, 1:56 pm

    opa...
    em qual  linha que   se digita esse código na caixa de texto.....?
    estou tendo a mesma situacao,  mas nao  sei aonde se digita esse codigo

      Data/hora atual: Seg 04 Jul 2022, 7:22 am