MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]encontrar palavra dentro de uma frase

    Compartilhe

    rui.o.pereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 19/01/2014

    [Resolvido]encontrar palavra dentro de uma frase

    Mensagem  rui.o.pereira em Dom 11 Maio 2014, 22:13

    viva,
    há alguma função que permita encontrar palavra dentro de uma frase ?

    a função instr retorna o índice da ocorrência de um determinado caratere.


    eu pretendo verificar se uma palavra existe (ou não) dentro de uma frase.

    Existe alguma solução "simples" ou tenho de usar a função instr e ir "contando" e "comparando"  cada letra que encontrar a seguir ?



    Exemplo da frase: "Rui Manuel de Oliveira Pereira, Pinheiro, 2490, Ourém, Portugal"

    Agora para encontrar a palavra "2490" uso a função Instr ?

    Já procurei no "buscar" mas não encontrei nada...

    Alguém tem uma ideia?

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]encontrar palavra dentro de uma frase

    Mensagem  Avelino Sampaio em Seg 12 Maio 2014, 09:27

    Olá!

    É com a função inStr() mesmo. Você pode utilizar caracter, palavra ou frase para realizar a busca.

    If instr("Rui Manuel de Oliveira Pereira, Pinheiro, 2490, Ourém, Portugal","2490") > 0 then
      msgbox "existe..."
    end if


    Pode indicar o campo que possui a frase direto na função:

    If instr(me!NomeCampoFrase,"2490") > 0 then
    msgbox "existe..."
    end if


    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    rui.o.pereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 19/01/2014

    Re: [Resolvido]encontrar palavra dentro de uma frase

    Mensagem  rui.o.pereira em Seg 12 Maio 2014, 17:46

    Ok, "BRIGADÍSSIMO", Avelino!

        Vou experimentar, (isso não me tinha passado pela cabeça..)

        A verdade é que quero ver se há algum registo cujo campo se encontra numa celula/área de excel.
    (podem ser moradas, escolas, nomes, notas, enfim...  e estou a testar o que é que cada uma tem....)

    Código:

    <pre>

    Public Function a_celula_e_uma_escola(ByVal v As String) As Boolean
       'Dim a_celula_e_uma_escola As Boolean
       a_celula_e_uma_escola = False
       Dim cursor_escola As DAO.Recordset
       Dim texto As String
       Set cursor_escola = BaseDeDados.OpenRecordset("Escola")
       While Not cursor_escola.EOF
          texto = cursor_escola.Fields(1).Value
        <b> If (InStr(texto, v) > 0) Then </b>
               CODIGO_ESCOLA = texto
               a_celula_e_uma_escola = True
           End If
           cursor_escola.MoveNext
       Wend
       
    End Function

    </pre>



    é mais ou menos isto....

      Data/hora atual: Sex 09 Dez 2016, 09:40