[Resolvido]Em Caixa de combinação localizar por qualquer parte do nome

Boa Tarde,

procurei mas não encontrei

escrever numa caixa de combinação qualquer parte do nome e localizar qualquer nome que contenha o que escrevi

o que me está a aparecer é apenas se escrever o nome na sequencia que está na lista

tentei colocar na consulta, Como "*" & [Formulários]![Ficheiro Pessoal]![NOME] & "*" mas não deu


anexo a bd para melhor entendimento

José Silva

converte ele para 2007

Olá, crysostomo

veja se já consegue com .mdb


José Silva

no formulario tem um monte de campo que não tem a tabela ficheiro mestre

Não existe essa funcionalidade em caixa de combinação.
Terá que usar isso numa textbox.

Olá a todos..

Uso este em caixa de combinação e funciona bem.

Tente adaptar ao seu.

- Elimine o critério da consulta

- Adapte este no Evento ao alterar da caixa de combinação

Código:

Dim strSql As String
    strSql = "SELECT txtNome FROM qryEmpresas" _
    & " WHERE strConv(txtNome, 2, 1042) Like '*" & Me.cboNomeEmpresa.Text & "*' ORDER BY txtNome"
    Me.cboNomeEmpresa.RowSource = strSql
    Me.cboNomeEmpresa.Dropdown

Aguardamos

Abraços

Olá Boa Noite,

crysostomo

esse é apenas um exemplo para teste por isso apenas deixei na tabela "ficheiro mestre" os dados necessários para o teste ou seja Nº Ordem e Nome

restantes dados eliminei dando assim cumprimento ao regulamento de proteção de dados RGDP

Marcelo

antes de desistir gostaria de testar a forma indicada pelo Celso, só não consegui sequer testar porque não tenho conhecimento para estruturar de forma correta o código


Celso Roberto

sou ainda muito básico em vb, ainda tentei adaptar, mas dá vários erros no código provavelmente misturei ou não escrevi corretamente

se me puder orientar pelos exemplos em anexo, agradeço


José Silva

Olá...

Para que você pratique, vou dar o passo a passo.

Então mão a obra.

Nas propriedades da caixa de combinação, defina os critérios abaixo:

1- Na Origem Origem da linha da caixa de combinação cole este SQL abaixo

Código:

SELECT Ficheiro_Mestre.NOME FROM Ficheiro_Mestre ORDER BY Ficheiro_Mestre.NOME;

2- Numeros de colunas =1

3- Largura da coluna = 10 Cm

4 Largura da lista = 10 Cm

5- Auto expandir = Não


6- No Evento ao alterar cole este código abaixo:

Código:

Private Sub BuscaNome_Change()
    Dim strSql As String
    strSql = "SELECT NOME FROM [Ficheiro_Mestre]" _
    & " WHERE strConv(NOME, 2, 1042) Like '*" & Me.BuscaNome.Text & "*' ORDER BY NOME"
    Me.BuscaNome.RowSource = strSql
    Me.BuscaNome.Dropdown
End Sub

Faça os teste e retorne

Abraços

Olá Celso, Bom Dia,

alguns avanços, já deixa procurar na lista por qualquer parte do nome, mas depois de selecionar o nome, não atualiza a ficha do funcionário para o registo correspondente

anteriormente, ao selecionar o nome, passava logo ao registo correspondente e a caixa de combinação ficava logo limpa



O código que tenho é este:

Option Compare Database

Private Sub BuscaNome_Change()
Dim strSql As String
   strSql = "SELECT NOME FROM [Ficheiro_Mestre]" _
   & " WHERE strConv(NOME, 2, 1042) Like '*" & Me.BuscaNome.Text & "*' ORDER BY NOME"
   Me.BuscaNome.RowSource = strSql
   Me.BuscaNome.Dropdown
End Sub

Private Sub BuscaNome_NotInList(NewData As String, Response As Integer)
MsgBox "Funcionário não cadastrado!"
   Response = acDataErrContinue
End Sub

Private Sub BuscaNome_AfterUpdate()
On Error GoTo trataerro:
Me.RecordsetClone.FindFirst "[Nº ORDEM] = " & Me![BuscaNome]
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Me![BuscaNome] = ""
   Me![NOME].SetFocus
   Me![BuscaNome].Enabled = False
   Comando57.Enabled = True
trataerro:
   If Err.Number > 0 Then
       Exit Sub
   End If
End Sub


Private Sub Comando57_Click()
Me![BuscaNome].Enabled = True
   Me![BuscaNome].SetFocus
   BuscaNome.Dropdown
   Comando57.Enabled = False
End Sub

Cumprimentos
José Silva

Olá Jose

Tenta assim

Código:

Private Sub BuscaNome_Change()
Dim strSql As String
  strSql = "SELECT NOME FROM [Ficheiro_Mestre]" _
  & " WHERE strConv(NOME, 2, 1042) Like '*" & Me.BuscaNome.Column(1) & "*' ORDER BY NOME"    '<--------
  Me.BuscaNome.RowSource = strSql
  Me.BuscaNome.Dropdown
End Sub

Private Sub BuscaNome_NotInList(NewData As String, Response As Integer)
MsgBox "Funcionário não cadastrado!"
  Response = acDataErrContinue
End Sub

Private Sub BuscaNome_AfterUpdate()
On Error GoTo trataerro:
Me.RecordsetClone.FindFirst "[Nº ORDEM] = " & Me.BuscaNome.Column(0)    '<--------
  Me.Bookmark = Me.RecordsetClone.Bookmark
  Me![BuscaNome] = ""
  Me![NOME].SetFocus
  Me![BuscaNome].Enabled = False
  Comando57.Enabled = True
trataerro:
  If Err.Number > 0 Then
      Exit Sub
  End If
End Sub


Private Sub Comando57_Click()
Me![BuscaNome].Enabled = True
  Me![BuscaNome].SetFocus
  BuscaNome.Dropdown
  Comando57.Enabled = False
End Sub

Saludos

Olá, Franklim,

não surtiu qualquer efeito

estou tentando tudo, mas está difícil, espero que tenha solução


Cumprimentos

José Silva

Olá..

No evento apos atualizar da caixa de combinação

Código:

DoCmd.SearchForRecord , "", acFirst, "[NOME] = " & "'" & Screen.ActiveControl & "'"
    Me.BuscaNome = ""

Aguardamos

Abraços

Olá, Celso,


com o código que agora indicou, funciona perfeitamente

para fechar o tópico, e se não for maçador coloco a seguinte questão

como tenho uma tabela com cerca de 10.000 registos com nomes, e normalmente procurar um nome conhecido não resulta bem desta forma

exemplifico

quero procurar nomes Pereira Alves, ou seja quero que a lista me filtre todos os nomes em que existam estes dois nomes, Pereira e Alves, independentemente de serem seguidos, no principio, meio ou no fim , neste caso, da lista de 6 nomes, ao escolher Perira Alves a lista deveria selecionar 3, os azuis, pois são os registos em que o nome completo contem estes 2 nomes

Rogiel Pereira Silva
Rafael Marcos Pereira Alves
Pereira Rafael Marcos Alves
Marcos Pereira Silva
Pereira Rafael Alves Costa
Pereira Júnior Santos


Cumprimentos

José Silva

Olá...

Infelizmente eu desconheço esta possibilidade.

Abraços

Olá Celso,


muito obrigado

ficará em aberto mais uns dias, pode ser que alguém tenha uma ideia, caso contrario darei como resolvido


Cumprimentos

José Silva

Olá...

Vamos aguardar.

Para subir seu tópico durante estes dias, siga este item das regras do fórum.

10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!

Abraços

Olá...


Encontrei este código abaixo no Site do Mestre Avelino Sampaio neste link Abaixo:

usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp

Este código consiste em após filtrar o primeiro nome vai abrir a lista filtrada com todos que possui o nome digitado.
Após este filtro do primeiro nome, Digite(*) "sem as aspas" e digite outro nome que esteja a frente do primeiro, pode estar em qualquer parte a frente do primeiro digitado.

Ex: digite Francisco*Manuel


Obs: Não filtra nome que esteja na frente do primeiro digitado

Mas acredito que já ajuda muito em refinar o filtro


Cole no evento ao alterar da combo

Código:

Private Sub BuscaNome_Change()

'    Dim strSQL As String
'    strSQL = "SELECT NOME FROM [Ficheiro_Mestre]" _
'    & " WHERE NOME Like '*" & Me.BuscaNome.Text & "*' ORDER BY NOME"
'    Me.BuscaNome.RowSource = strSQL
'    Me.BuscaNome.Dropdown
   
    Dim strText, strFind, strFind2
    strText = Me.BuscaNome.Text
    If Len(Trim(strText)) > 0 Then
        strFind2 = "NOME Like '*"
        For I = 1 To Len(Trim(strText))
        If (Right(strFind, 1) = "*") Then
        strFind = Left(strFind, Len(strFind) - 1)
        End If
           
        strFind = strFind & Mid(strText, I, 1) & "*"
        Next
        strFind2 = strFind2 & strFind & "'"
        strSQL = "SELECT NOME FROM [Ficheiro_Mestre] where " & strFind2 & " ORDER BY NOME;"
        Me.BuscaNome.RowSource = strSQL
        Me.BuscaNome.Dropdown
    Else
        strSQL = "SELECT NOME FROM [Ficheiro_Mestre] ORDER BY NOME; "
        Me.BuscaNome.RowSource = strSQL
    End If
        'Me.BuscaNome.Dropdown
   
   
End Sub

Aguardo

Abraços

Olá Celso,

muito obrigado, está perfeito, vc me ensinou muito


Abraço

José Silva

Olá..

Ficamos felizes por ter ajudado.

O Fórum agradece seu retorno

Abraços e sucesso

Ótimo ! Eu tinha um problema parecido, foi só aqui que encontrei algo mais simples e direto graças ao Celso Roberto.
Obrigado!

Olá aisaac,

Vejo que esta cadastrado neste Fórum desde 2012, Mas por ser sua primeira postagem; Te damos as Boas Vindas
E também ficamos felizes por ter Usufruído deste conteúdo


Abraços e sucesso a todos