[Resolvido]Dúvidas com Combobox, restringir inserir valores que não estão na origem da linha estilo Tabela/Consulta

Bom dia Srs,

Utilizo uma combobox dessa forma:
Origem da linha = query
Tipo de origem de linha = Tabela/Consulta
Limitar a uma lista = Sim
Permitir edições na lista de valores = Não
Herdar lista de valores = não
Mostrar somente valores da fonte = Sim
Valor padrão =""

primeira dúvida:
As minhas combobox são de Tabelas/Consultas, porém ao digitar ele permite inserir qualquer valor independente de está ou não na Tabela/Consulta

Exemplo eu tenho os seguintes registros
1. MANOEL
2. MÁRCIA
3. JOÃO

Ao digitar M na combobox ele vai filtrar e trazer apenas MANOEL, MÁRCIA, porém se eu escrever MESAQUE ele aceita sem questionar e suja a tela com erro "O texto que você informou não é um item da lista." Selecione um item na listsa ou digite um texto que coincida com um dos itens listados.

O que eu preciso e não sei nem como fazer,

É que o usuário possa digitar no Combobox, mas nunca possa digitar valores inexistentes na origem da linha,

por exemplo ele digita MANOEL ao pressionar mais uma letra, ele não completa. como na imagem abaixo:

up...

Favor, atente-se as regras do fórum, você está infringindo a de número 10. O fórum é livre, mas é necessário atentar-se as regras da casa para que possamos manter tudo em ordem.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Mizael

A maneira mais fácil, se não for a única,  é evitar que digite na combobox, utilizando então somente a seta de expansão:

Private Sub NomeDaCaixaDeCombinação_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub

Balem

Mizael

Achei o código nos meu alfarrábios.

Experimente se funfa pra você.

Tire o dropdown se tiver usando e outra propriedade que vá interferir no código abaixo.

Na propriedade Ao liberar Tecla  da combobox:

Código:


Private Sub NomeCombobox_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Me.NomeCombobox.Text) > 0 Then
   Me.NomeCombobox.RowSource = "SELECT * FROM NomeDaTabela WHERE NOME LIKE '" & Me.NomeCombobox.Text & "*'"
     If Me.NomeCombobox.ListCount > 0 Then
        Me.NomeCombobox.Dropdown
     Else
       Me.NomeCombobox.RowSource = ""
     End If
End If

End Sub


O código acima irá verificar a existência de registro iniciando com a(s) letra(s) digitada(s).
Caso não exista, para o código para que o usuário retroceda a última letra digitada.

Balem

Boa noite Noob,

Bem eu tentei adaptar seu código, porém ele não lista os nomes, não faz o dropdown ao digitar, e também não impede de fazer a digitação do campo, acredito que pra não dificultar mais as coisas, vou ficar com a mensagem padrão mesmo ^^ de qualquer forma obrigado pela sugestão e ajuda.

Código:

Private Sub ID_TIPOOC_KeyUp(KeyCode As Integer, Shift As Integer)

    gSQL = "SELECT TSER_TIPOOC.TIPOOC_NOM"
    gSQL = gSQL & ", TSER_TIPOOC.ID_TIPOOC"
    gSQL = gSQL & " FROM TSER_TIPOOC"
    gSQL = gSQL & " WHERE TSER_TIPOOC.TIPOOC_NOM LIKE '" & Me.ID_TIPOOC.Text & "*'"
    gSQL = gSQL & " AND TSER_TIPOOC.INATIVO = FALSE"
   
If Len(Me.ID_TIPOOC.Text) > 0 Then
  Me.ID_TIPOOC.RowSource = gSQL
    If Me.ID_TIPOOC.ListCount > 0 Then
        Me.ID_TIPOOC.Dropdown
    Else
      Me.ID_TIPOOC.RowSource = ""
    End If
End If
End Sub

Aqui testei várias vezes antes de postar.

Se olhar o código que passei, vera que a lista suspensa(dropdown) aparece quando encontra um registro que combine com
a parte digitada.
É a segunda vez que tento te ajudar e não acata que sugiro.
Então, não perderei mais meu tempo contigo.

Bom dia noob,

Então, não consegui adaptar o código de forma categórica como você falou, acho que devo ter errado no código e não ficou da forma como testou...

Você poderia me ajudar ?

Seu código adaptado:

Código:

Private Sub ID_TIPOOC_KeyUp(KeyCode As Integer, Shift As Integer)

    gSQL = "SELECT TSER_TIPOOC.TIPOOC_NOM"
    gSQL = gSQL & ", TSER_TIPOOC.ID_TIPOOC"
    gSQL = gSQL & " FROM TSER_TIPOOC"
    gSQL = gSQL & " WHERE TSER_TIPOOC.TIPOOC_NOM LIKE '" & Me.ID_TIPOOC.Text & "*'"
    gSQL = gSQL & " AND TSER_TIPOOC.INATIVO = FALSE"
   
If Len(Me.ID_TIPOOC.Text) > 0 Then
  Me.ID_TIPOOC.RowSource = gSQL
    If Me.ID_TIPOOC.ListCount > 0 Then
        Me.ID_TIPOOC.Dropdown
    Else
      Me.ID_TIPOOC.RowSource = ""
    End If
End If
End Sub



Mizael

Para poder ajudar, disponibilize

a tabela(com registros fictícios) com todos os campos preenchidos.

e o formulários onde está a combobox.

Preciso analisar, para ver o que está "pegando".

Balem

boa noite, desculpa a intromissão
Não sou programador por isso não sei se ajudo, mas existe um exemplo do JPaulo que quando digita as preimeiras letras
o campo se autocompleta .
https://www.dropbox.com/s/0ag079ilcz2838w/autocompletacaixatexto.mdb?dl=0

Bom dia Noob,

Deixei o Form que está com problemas e converti a tabela do sql em local, pra tentar resolver, removi os códigos, deixei livre pra você utilizar o seu código no combobox.

Mizael

Eis teu projeto modificado

Lembre-se, a ID (código) DO REGISTRO sempre por primeiro nas tabelas e consultas.

Veja as propriedades da combobox.

Estude os códigos.

Balem

Noob só tem um detalhe,

Eu sempre deixo o ID na segunda coluna da consulta >.<

pq daí eu consigo deixar o valor padrão "" para que o form fique mais interativo.

tem alguma sugestão ?

gostei muito do seu exemplo realmente profissional.

Não entendi, pf explique melhor.

como na imagem acima o Combobox tem um valor padrão como em qualquer outro sistema... isso é comum. porém no Access ele só aceita que esse valor padrão apareça se a primeira coluna for Varchar ou Texto como preferir, se colocar a Chave Primária na primeira coluna da Combobox ele não aparece o texto, pois fica oculta, e mesmo tentando colocar vai ficar dando erro por se tratar de um campo INT e não Varchar, conseguiu entender ?

Bem, isso já está fora do escopo do tópico.

Mas acho que o seguinte, é apenas um perfumaria.

Coloque isso na etiqueta (rótulo) da caixa de texto, se acha necessário.

Por que isso funciona na primeira vez, depois os usuários vão odiar.

Imagine você todo dia vendo esse monte de Selecione...

Na primeira vez, sempre alguém irá ensinar como se trabalha com o aplicativo.

E na realidade isso é intuitivo, nunca usei isso em minha combos.

Balem

O importante é que resolveu, obrigado noobzinho!

Falou, mano!

Boa sorte

Balem