MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 02/08/2018

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Empty [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

    Mensagem  mfmaiafilho 27/10/2021, 00:45

    Boa noite Srs.
    Estou desenvolvendo uma tela para buscar controles, textbox, comboboxs e etc...


    porém o que eu não consigo fazer é filtrar alguma palavra dentro da String,

    por exemplo, eu buscar por btn , ele deveria me trazer apenas as palavras que contém btn...

    For Each ctl In Forms(frmName).Controls
    If TypeOf ctl Is Listbox Then
    strObj = strObj & "" & ctl.Name & ""
    strObj = strObj & "" & vbCrLf & ""
    End If
    Next

    If IsNull(Me.txt_pesqobj) Or Me.txt_pesqobj = "" Then

    Me.txt_objetos.Value = strObj

    Else

    '// aqui seria o retorno da busca dessa palavra dentro da String strObj

    '// após a busca ele retornaria o valor no txt_objetos

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Empty Re: [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

    Mensagem  JPaulo 27/10/2021, 13:58

    Código:
    For Each ctl In Forms(frmName).Controls
        If TypeOf ctl Is ListBox Then
            If ctl.Name Like "*" & Me.txt_pesqobj.Value & "*" Then
                strObj = strObj & "" & ";" & "" & ctl.Name
                    If Left(strObj, 1) = ";" Then strObj = Right(strObj, Len(strObj) - 1)
                Me.txt_objetos.Value = strObj
            End If
        End If
    Next


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Folder_announce_new Instruções SQL como utilizar...
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 02/08/2018

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Empty Re: [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

    Mensagem  mfmaiafilho 27/10/2021, 22:04

    Boa tarde JPaulo, espero que esteja tudo ótimo com você!

    Amigo meu código funciona com vários For Each, tanto de comboboxs, como de textbox como de outros controles,

    porém eu tenho umas restrições é claro, pra não buscar itens que eu não quero relacionado a sistema, acessos etc

    como eu fiz de uma forma organizada, eu Abro um For Each, e depois fecho, e escrevo o nome dos proximos controles, Tipo TextBox, ComboBox, etc.

    Existe alguma forma de fazer o Like com o montante total ?

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Infor10
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 02/08/2018

    [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox Empty Re: [Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

    Mensagem  mfmaiafilho 28/10/2021, 14:16

    Resolvido!

    Adaptei o código ficou bom demais Wink obrigado JPaulo.

      Data/hora atual: 29/11/2021, 23:38