MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 13/3/2019, 13:05

    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
    Anexos
    [Resolvido]Em Caixa de combinação localizar por qualquer parte do nome AttachmentLocalizar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (449 Kb) Baixado 10 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 13/3/2019, 13:13

    converte ele para 2007


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 13/3/2019, 14:55

    Olá, crysostomo

    veja se já consegue com .mdb


    José Silva
    Anexos
    [Resolvido]Em Caixa de combinação localizar por qualquer parte do nome AttachmentLocalizar_V2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (442 Kb) Baixado 20 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em 13/3/2019, 20:26

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Marcelo David em 13/3/2019, 21:16

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 13/3/2019, 22:15

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 13/3/2019, 23:27

    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
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 14/3/2019, 00:29

    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



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 14/3/2019, 09:55

    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

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

    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
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 312
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em 14/3/2019, 15:00

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 14/3/2019, 16:10

    Olá, Franklim,

    não surtiu qualquer efeito

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


    Cumprimentos

    José Silva
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 15/3/2019, 00:40

    Olá..

    No evento apos atualizar da caixa de combinação

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

    Aguardamos

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 15/3/2019, 16:34

    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
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 15/3/2019, 21:16

    Olá...

    Infelizmente eu desconheço esta possibilidade.

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 16/3/2019, 22:43

    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
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 17/3/2019, 15:35

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 19/3/2019, 22:59

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/08/2016

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

    Mensagem  JIR em 20/3/2019, 00:29

    Olá Celso,

    muito obrigado, está perfeito, vc me ensinou muito


    Abraço

    José Silva
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 20/3/2019, 16:02

    Olá..

    Ficamos felizes por ter ajudado.

    O Fórum agradece seu retorno

    Abraços e sucesso


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    aisaac
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/10/2012

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

    Mensagem  aisaac em 24/4/2019, 23:32

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto em 25/4/2019, 06:23

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 03:01