[Resolvido]FindNext com critério aleatórios

Bom dia,

Mais uma vez venho pedir a vossa ajuda, pois não encontrei nada relevante nas pesquisa que tenho feito, quer aqui no forum, quer na net em geral.

É o seguinte:

Tenho uma textBox num formulário, que uso no duplo click o - Me.RecordsetClone.FindNext strCriterio - para encontra o próximo registo com o mesmo texto, em que - strCriterio = "textBox= '" & strString & "'", e a strString vem de uma InputBox.

Até aqui tudo bem...

O que eu preciso mesmo seria alterar o critério para que procurasse o próximo registo não apenas com o mesmo texto, mas sim, desde que o próximo registo incluísse 3 (e apenas 3) palavras inseridas na InputBox.

Exemplo: InputBox = "amanhã sexta ontem hoje"

Pretendo que me encontrasse o próximo registo que contém apenas 3 destas palavras da InputBox, independente da ordem que se encontrem, que na InputBox, quer no registo.

Obrigado

inputbox ou textbox?

Bom dia DamascenoJr, e obrigado pelo retorno,

Dei como exemplo a InputBox onde pega a String para procurara na TextBox. Mas se for direto com o texto da TextBox também resolve o problema.

Obrigado mias uma vez.

P.S. Fiz uma demo com uma sequência de cores para exemplificar o pretendido.

A minha limitação na demo é que só funciona se eu seleccionar até 3 cores, e eu preciso de seleccionar até 10 cores e a pesquisa continuar a ser feita por combinações de 3 cores.

Bom dia a todos,

Enquanto aguado ajuda de alguém, fiz uma evolução para o que eu pretendo.

Neste novo exemplo consigo fazer a pesquisa agrupando em 3 palavras aleatórias (independentemente da ordem) de uma string com até 4 palavras.

No caso da string conter mais de 4 palavras, vai fazer a pesquisa agrupando em 3 palavras aleatórias de uma string, considerando as primeiras 2 palavras e as 2 últimas palavras, sempre num máximo de 4.

A minha dificuldade é fazer grupos de 3 palavras aleatórias para pesquisa, com strings até 10 palavras.

Obrigado

Bom dia!

Consegui resolver.

Obrigado!

O fórum agradece o retorno. Parabéns pela evolução.