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

    Ajuda VBA Localizar - Adaptação do Fabio Paes

    Compartilhe

    Mabuus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 18/06/2018

    Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  Mabuus em 22/6/2018, 04:05

    Olá amigos, preciso de ajuda em um VBA localizar, adaptação do FAbio Paes

    Eu preciso que o VBA localize texto em um campo, somente nos dados filtrados

    mas quando insiro os dados de pesquisa, da o VBA filtra inclusive dados de outros campos (IDs não incluso no filtro)

    segue fotos e o BD
    Anexos
    archive.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 6 vez(es)
    avatar
    livio.sfranca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 09/01/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  livio.sfranca em 23/6/2018, 00:31

    Boa noite,

    Tente assim:

    No Form "Pesquisa" Altere a origem da ListView para:
    Código:
    SELECT Perguntas.Código, Perguntas.IdMateria, Perguntas.Idparcial, Perguntas.Pergunta FROM Perguntas  WHERE (((Perguntas.IdMateria) Like Nz(Forms!Entrada.Materia,"*")) And ((Perguntas.Idparcial) Like Nz(Forms!Entrada.parcial,"*")) And ((Perguntas.Pergunta) Like "*" & Forms!FrmPesquisa.txtnome & "*")) ORDER BY Perguntas.Código;

    Ainda no Form "Pesquisa" Coloque os seguintes códigos de eventos do controle txtnome:

    Código:
    Dim cSpace 'Variável no topo do módulo do formulário
    Private Sub txtnome_Change()
        If cSpace= 1 Then
            cSpace= 0
        Else
            Me.Recalc
            Me.txtnome.SelStart = Len(Me.txtnome.Text)
        End If
    End Sub

    Private Sub txtnome_KeyPress(KeyAscii As Integer)
        If KeyAscii = 32 Then
            cSpace= 1
        End If
    End Sub

    E ainda, altere no Form "Entrada" a origem dos dois listviews:

    Materia
    Código:
    SELECT Materias.IdMateria, Materias.Abrev FROM Materias ORDER BY Materias.IdMateria, Materias.Abrev;

    parcial
    Código:
    SELECT Parciais.Idparcial, Parciais.parcial FROM Parciais ORDER BY Parciais.Idparcial;


    Espero que ajude

    Mabuus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 18/06/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  Mabuus em 23/6/2018, 00:51

    Amigo, agradeço a colaboração. Não vou ter tempo hoje para inserir o codigo, então vou tentar amanhã e retorno. Abraços.


    Mabuus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 18/06/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  Mabuus em 25/6/2018, 14:36

    olá Lívio, retornei a edição, inseri os codigos, creio que no local certo indicado, mas não consegui, ou deu erro.

    segue  o BD.
    Anexos
    archive.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 3 vez(es)
    avatar
    livio.sfranca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 09/01/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  livio.sfranca em 25/6/2018, 14:49

    O arquivo que mandou está sem as alterações. Segue anexo das alterações que fiz.
    Anexos
    FlashCard-MaxAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 4 vez(es)

    Mabuus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 18/06/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  Mabuus em 25/6/2018, 22:57

    Grande Livio, deu certo. Mas se possível agora, me ajude a colocar a palavra dupla na pesquisa, porque como vou usar para doenças, e assuntos parecidos
    seria legal, achar a palavra ou frase, a caixa de digitação não está aceitando espaçamento. Mas já está 99% do que eu queria. Te agradeço amigo.

    Segue o arquivo agora, já montando, com a pesquisa infiltrada no subform.

    para vc testar, o que estou dizendo, selecione no inicio 2 e 2

    ae escreva na pesquisa no subform flashcard, tipo tuberculose primaria e tuberculose secundaria

    exemplo apenas, mas seria legal que funcionasse com qualquer frase.

    Agradeço, desde já, sabe muito cara.
    Anexos
    archive.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (119 Kb) Baixado 2 vez(es)
    avatar
    livio.sfranca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 09/01/2018

    Re: Ajuda VBA Localizar - Adaptação do Fabio Paes

    Mensagem  livio.sfranca em 25/6/2018, 23:17

    Boa noite Roberto,

    Acredito que você tenha excluído a declaração da variável cSpace ao fazer as alterações.

    Para corrigir esse problema do espaço, declare-a novamente logo após a instrução "Option Compare Database" no topo do módulo "Form_FrmPesquisa":

    Form_FrmPesquisa
    Código:

    Option Compare Database
    Dim cSpace As Integer

      Data/hora atual: 21/7/2018, 14:53