InícioOlá, estou tentando fazer uma consulta que pegue o texto de um campo na tabela e ao encontrar a string "Processo:" apague o texto desse ponto até o último caractere. Help 
2 participantes
Consulta pegando texto de campo da tabela e retirando parte do texto ao encontrar uma palavra específica.
egpjdf- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 30/11/2011
- Mensagem nº1
Consulta pegando texto de campo da tabela e retirando parte do texto ao encontrar uma palavra específica.
egpjdf 9/3/2017, 00:08
FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
- Mensagem nº2
Re: Consulta pegando texto de campo da tabela e retirando parte do texto ao encontrar uma palavra específica.
FabioPaes 9/3/2017, 18:31
Amigo, da pra ser feito isso utilizando o Split!
Como eu sei que o delimitador é o texto Processo: basta então eu Extrair a primeira posição e desprezar a ultima!
Exemplo: "Procurando a string Processo:e esse texto será desprezado!"
Veja que o Texto verde é a posição 0 (A primeira), e oRiscado é a parte que será desprezada...
Teste: Crie uma caixa de Texto em seu formulario com o Nome TxtSubstituir...
Coloque em Um Botão esse Codigo:
Dim F As String
Dim P As Variant
F = Me.TxtSubstituir
'Estou dizendo que a variavel P ira extrair partindo como delimitado o Valor "Processo:"
P = Split(F, "Processo:")
'Extraio e aplico a cx Testo o valor da Primeira posição
Me.TxtSubstituir = P(0)
Teste e retorne!
Como eu sei que o delimitador é o texto Processo: basta então eu Extrair a primeira posição e desprezar a ultima!
Exemplo: "Procurando a string Processo:
Veja que o Texto verde é a posição 0 (A primeira), e o
Teste: Crie uma caixa de Texto em seu formulario com o Nome TxtSubstituir...
Coloque em Um Botão esse Codigo:
Dim F As String
Dim P As Variant
F = Me.TxtSubstituir
'Estou dizendo que a variavel P ira extrair partindo como delimitado o Valor "Processo:"
P = Split(F, "Processo:")
'Extraio e aplico a cx Testo o valor da Primeira posição
Me.TxtSubstituir = P(0)
Teste e retorne!
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!
Tópicos semelhantes
» [Resolvido]Busca qualquer parte do campo texto filtrando uma listbox mas por qualquer palavra de qualquer campo da tabela e não pela inicial do campo
» [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela
» [Resolvido]Corrigir parte de texto em campo de tabela
» [Resolvido] Alterar a cor apenas de uma palavra específica em uma consulta
» [Resolvido]Gerar um terceiro campo texto retirando-se o conteúdo de um campo do conteúdo de outro
» [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela
» [Resolvido]Corrigir parte de texto em campo de tabela
» [Resolvido] Alterar a cor apenas de uma palavra específica em uma consulta
» [Resolvido]Gerar um terceiro campo texto retirando-se o conteúdo de um campo do conteúdo de outro