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


4 participantes

    Caixa de Combinação com filtro

    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    Caixa de Combinação com filtro  Empty Caixa de Combinação com filtro

    Mensagem  dteixa 8/11/2012, 09:37

    Boas a todos,
    pergunta simples para resposta simples(para quem sabe).

    Numa caixa de combinação é possivel filtrar a medida que se vai escrevendo?
    Ex. quando se começa a ecrever a letra (B) surgir a lista com as palavres inicianas em (B), se escrever (BA) seurgirem as palavras iniciadas em (BA) e por ai fora.

    Muito obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  JPaulo 8/11/2012, 09:42

    Veja aqui, o código "Auto Completa Combobox"

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Caixa de Combinação com filtro  Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Caixa de Combinação com filtro  Folder_announce_new 102 Códigos VBA Gratuitos...
    Caixa de Combinação com filtro  Folder_announce_new Instruções SQL como utilizar...
    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  dteixa 8/11/2012, 09:52

    Obrigado JPaulo
    estou no trabalho e aqui não tenho possibilidade de download no link que tem lá, (os sites de Download estão barrados pelo administrador).

    Sera possibel por aqui o zip.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  JPaulo 8/11/2012, 09:57

    Não faz Download, apenas abre o txt, mas aqui fica o conteudo:




    Auto Completa em Combobox Ms Access

    AUTO COMPLETA EM COMBOBOX:

    1- Crie uma nova Classe de Módulo e renomeie como: clsAutoComplete

    2- Nessa Classe de Módulo cole esta rotina:
    ....................................................................

    Private WithEvents pCombo As ComboBox
    Private IsDelOrBack As Boolean

    Public Sub Bind(Cmb As ComboBox)
    Set pCombo = Cmb
    End Sub

    Private Sub Class_Terminate()
    Set pCombo = Nothing
    End Sub

    Private Sub pCombo_Change()
    On Error Resume Next
    Dim OldLen As Integer
    Dim i As Integer
    If Not pCombo.Text = "" And Not IsDelOrBack Then
    OldLen = Len(pCombo.Text)
    For i = 0 To pCombo.ListCount - 1
    If InStr(1, Mid$(UCase(pCombo.List(i)), 1, OldLen), UCase(pCombo.Text)) Then pCombo.Text = pCombo.List(i)
    If pCombo.SelText = "" Then
    pCombo.SelStart = OldLen
    Else
    pCombo.SelStart = InStr(pCombo.Text, pCombo.SelText)
    End If
    pCombo.SelLength = Len(pCombo.Text)
    Exit For
    End If
    Next
    End If
    End Sub

    Private Sub pCombo_KeyDown(KeyCode As Integer, Shift As Integer)
    IsDelOrBack = (KeyCode = vbKeyBack Or KeyCode = vbKeyDelete)
    End Sub

    .................................................................................

    3- No Form que for usar o Auto Complete declare a Classe de Módulo:
    Dim Complete As New clsAutoComplete

    4- E por fim, chame a Rotina no seu ComboBox:
    Complete.Bind cboNome

    Onde cboNome é o nome do seu ComboBox.
    Obs: Use o comando acima para chamar a rotina no LOAD do Form.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Caixa de Combinação com filtro  Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Caixa de Combinação com filtro  Folder_announce_new 102 Códigos VBA Gratuitos...
    Caixa de Combinação com filtro  Folder_announce_new Instruções SQL como utilizar...
    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  dteixa 8/11/2012, 10:04

    JPaulo muito obrigado
    Vou testar aqui.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  Kaynan 8/11/2012, 10:12

    https://dl.dropbox.com/u/90217826/Cidades.mdb


    N a pratica veja o exemplo, ao JPaulo grato pelos códigos

    Cumprimentos.
    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  dteixa 8/11/2012, 10:18

    Obrigado pela ajuda,
    funciona bem,
    no entanto a minha ideia era que ao começar a escrever a lista surgir com os nomes começados pelas letras digitados.

    gefex gosta desta mensagem

    avatar
    gefex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/11/2015

    Caixa de Combinação com filtro  Empty Não funcionou para mim da forma que foi feita a pergunta....

    Mensagem  gefex 11/8/2022, 01:54

    Eu sinceramente faz tempo que procuro essa solução e já havia desistido... achei esse post e a esperança ressurgiu, mas realmente dentro desse controle no access não tive sucesso. Já no excel tem alguns tutoriais e funcionam e filtram ao digitar qualquer parte da string e não só as iniciais dela. Esse exemplo pra mim ainda esta dando erro, e deve ser alguma declaração que não vem default no access 2007.

    Conteúdo patrocinado


    Caixa de Combinação com filtro  Empty Re: Caixa de Combinação com filtro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 04:48