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]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?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3399
    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!

    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: Seg 23 Out 2017, 16:04