[Resolvido]Caractere curinga no vba

Boa tarde!

Preciso reconhecer um texto através de uma palavra numa caixa de texto. Posso usar o caracter curinga (*). Alguém poderia me ajudar?

Ex.: If Me.txtHorario.value = " * Agregado * " Then

"*" & Agregado & "*"

Tente usar a instrução Instr ela me quebra muitos galhos...

If InStr(1, Texto, Palavra_Procurada, vbTextCompare) >= 1 Then

MsgBox "Palavra encontrada"

End If

Amigos! Não sei se fui claro. O caractere curinga é para substituir todas as palavras que tiverem na frase. No exemplo que eu dei. * Agregado *, significa qualquer frase que tenha a palavra Agregado em qualquer lugar da frase.

Amigo Pablo!
No seu exemplo como eu procuraria a palavra Agregado na caixa de texto txtHorario?

If InStr(1, txtHorario, "Agregado", vbTextCompare) >= 1 Then

MsgBox "Palavra encontrada"

End If

onde

InStr(Começar a procuara a partir do caracter, Texto onde pode conter a palavra, palavra procurada, tipo de comparação)

A instrução vai te retornar a posição em que foi encontrada a primeira ocorrência da "palavra procurada", se acontecer de ocorrer mais de uma vez a palavra você terá que fazer um tratamento para que continue a partir da próxima posição...

Porém você usou o termo "substituir todas as palavra". Ai eu já indicaria o comando Replace

onde

txtHorario = Replace ( txtHorario,"Agregado","*")

A instrução substituiria TODAS as ocorrências da palavra "Agregado" por "*" na string

Sds,

Bom dia amigo Pablo!
Eu preciso que ao encontrar a palavra procurada me seja retornado todo o texto onde se encontra a palavra.
Ex.: 07:20 - Horário Agregado - Micro Pigmentação

Esse exemplo que você deu é o conteúdo do campo txtHorario ou é a concatenação de vários campos?

Mas de qualquer forma, você usa a sintaxe abaixo que ele achando a ocorrência você faz o tratamento dentro do IF como você quiser...


If InStr(1, txtHorario, "Agregado", vbTextCompare) >= 1 Then

MsgBox txtHorario

End If

Ultimamente está difícil ajudar o pessoal no fórum

O pessoal quer ajuda, mas detêm informações do que pretende.

Com isso é gasto tempo e mensagens.

Veja esse tópico por exemplo, precisou de 6 mensagens, para
que na sétima, o autor do tópico dissesse finalmente o que pretendia,
sendo que isso poderia ser informado já na primeira mensagem.

Haja ânimo !

Amigo Noobezinho!
Mais uma vez obrigado pela sua participação. Talvez eu não tenha sido muito claro. Mas na primeira mensagem eu disse que precisava que me fosse retornado o conteúdo do campo, porém com outras palavras. Mais uma vez peço que me desculpe, e gostaria de lembrar que sou iniciante em Access e programação. Nos próximos tópicos vou me esforçar para ser mais claro.

Amigo Pablo!
Vou testar aqui sua sugestão e retorno. Obrigado.
É o conteúdo do campo.

Ótimo Edelson

Talvez não contigo,mas grande parte do pessoal que pedem
ajuda, não explicam direito o que deseja, retendo as informações.
Talvez por inocência ou por vergonha em mostrar seu código ou por outra qualquer.
Nós estamos aqui para ajudar, não importa o grau de conhecimento
da pessoa.
Eu sempre digo, ninguém nasceu sabendo e isso é uma máxima para mim.
O novato de hoje, será o mestre de amanhã.
Muita gente acha que moderadores ganham algo com isso e estão certos,
ganhamos conhecimento, porque ao ajudar aprendemos mais.

"E aqueles que foram vistos dançando foram julgados insanos por aqueles que não podiam escutar a música"
Friedrich Nietzsche.

Edelson explique melhor como deseja o retorno da palavra.

Esses texto estão num campo de uma tabela?

Se sim, tem consulta sql que pode fazer isso com  critério igual a:

"...like  *"  &  Agregado  &  "* ..."

ou

"...like " & chr(42)  &  Agregado  & chr(42) & " ..."

Bem, depende exatamente de onde e como deseja retornar o resultado.

[ ]'s

Amigo Noobezinho!
Tenho uma textBox que pode ter por exemplo o texto 07:20 - Horário Agregado - Micro Pigmentação ou 07:20 - Horário Agregado - Alongamento de Cílios entre outros, ou posso ter por exemplo 07:20 - Gabriela - Sobrancelha, não me retornaria o terceiro, pois não tem a palavra Agregado. Ainda não tive tempo de fazer os testes com a sugestão do amigo Pablo, mas vou fazer ainda hoje e retorno. Desde já agradeço. Ah! O texto é retornado num campo do formulário que está vinculado a uma tabela.

Entendi

Vou aguardar fazer os testes com a sugestão do Pablo
e retornar com os resultados ok?
Não precisa responder essa msg.

Amigo Pablo!
Fiz os testes aqui e deu certinho. É a solução que eu precisava. Aproveito a oportunidade para agradecer também ao amigo Noobezinho pela participação.

Ficou assim:

If InStr(1, Me.txtHorario.Value, "Agregado", vbTextCompare) >= 1 Then
           Me.txtHorario.Value = Me.txtHorario.Value
       Else
           Me.txtHorario.Value = "07:20"
End If

Deus abençoe abundantemente a vida e a saúde de vocês e suas famílias.
Um grande abraço

RESOLVIDO

Ok, ok, ok! (Tô parecendo o cara do TV Fama!)

Beleza obrigado pelo retorno! Estamos aqui para a troca de ideias e conhecimento...

Mas você pode simplificar para

If InStr(1, Me.txtHorario.Value, "Agregado", vbTextCompare) < 1 Then

Me.txtHorario.Value = "07:20"

End If

por que Me.txtHorario.Value = Me.txtHorario.Value, ai você tá igualando uma coisa que já é!

Mas feliz em ter ajudado!!!

Amigo Pablo!
Acho que teria que ser <2.
Valeu

Amigos, mesmo com o tempo, só para solucionar bem simples

if Me.txtHorario like "*Agregado*" then

funciona certinho...