none
TXTBOX_VBA RRS feed

  • Pergunta

  • - Por gentileza alguem poderia me ajudar ???

    - Como faço para utilizar uma pesquisa usando afterupdate, e ao terminar a pesquisa o focu volte para a primeira textbox que inseri o codigo de busca ???

    quinta-feira, 30 de setembro de 2021 06:53

Todas as Respostas

  • RogerioJJ,

        O ´nome do método é "SetFocus", exemplo:
       
    Private Sub CommandButton1_Click() 
      TextBox1.SetFocus    'A caixa de texto recebe o foco
      UserForm2.Show       'Abra o segundo formulário. 
    End Sub


       Veja também:

    ============================
    Exemplo do controle TextBox, do método SetFocus, das propriedades EnterFieldBehavior, HideSelection, MultiLine, Value
    14/11/2018

    https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/textbox-control-setfocus-method-enterfieldbehavior-hideselection-multiline-value

    ============================
    [RESOLVIDO]TextBox(A).SetFocus É POSSIVEL????

    Me.Controls("TextBox" & A).SetFocus

    http://www.tomasvasquez.com.br/forum/viewtopic.php?t=4393
    ============================
    How to put focus to textbox as needed

    Private Sub OK_Click()
    
        '// Validate form
        If txtAnswer.Text = vbNullString Then
            MsgBox "You need to enter an answer!", vbExclamation, "No Answer Found!"
            txtAnswer.SetFocus
            Exit Sub
        End If
    
        '// You have reached here so form is correct carry on
        recordAnswer
    
    End Sub

    https://stackoverflow.com/questions/10906714/how-to-put-focus-to-textbox-as-needed
    ============================

    []'s,
    Fabio I.
    • Editado Fabio I quinta-feira, 30 de setembro de 2021 11:46
    quinta-feira, 30 de setembro de 2021 11:43
  • Fabio obrigado pela resposta ...

    - Talves nao tenha me expressado corretamente ..

    - O que quero é . 

    - Quando eu digitar o codigo na textbox (1) atraves deste codigo ele ira trazer todas as informaçoes em varias textbox que ja programei, e depois ele retorna para esta textbox(1) automaticamente, para que eu possa digitar outra pesquisa sem a necessidade de ter que selecionar novamente a textbox para receber o focu e sim isso ocrrer automaticamente.... se puder me ajudar .....

    sábado, 2 de outubro de 2021 16:26
  • RogerioJJ,

        Realmente eu não tinha entendido... 
        ... o que você precura chama-se "Preenchimento Automático" ou "Autocompletar"... 
        ... mas eu acho que deve ser usado um ComboBox no lugar de um TextBox... senão você precisa criar vários objetos a mais para emular isto na TextBox.

        Resumindo: Quando o usuário digita o primeiro caractere de um palavra (Evento _Change()), o Objeto sugere o preenchimento do resto da palavra.

        Existe também um Método dentro do Excel chamado "Range.AutoComplete". Ele preenche de acordo com uma faixa (Range) de células.

        Por favor, veja os links abaixo, talvez a solução já esteja pronta:

    ========================================
    Userform Textbox Autocomplete

    Private mbEventsDisabled As Boolean
     
    Private Sub TextBox1_Change()
     
        Dim vaRecent As Variant
        Dim i As Long
        Dim sEntered As String
        
        If Not mbEventsDisabled Then
            sEntered = Me.TextBox1.Text
    
            If Len(sEntered) <= 5 Then
                vaRecent = Me.ListBox1.List
    
                For i = LBound(vaRecent, 1) To UBound(vaRecent, 1)
    
                    If Left$(vaRecent(i, 0), Len(sEntered)) = sEntered Then
                        mbEventsDisabled = True
                            With Me.TextBox1
                                .Text = vaRecent(i, 0)
                                .SelStart = Len(sEntered)
                                .SelLength = Len(vaRecent(i, 0))
                            End With
                        mbEventsDisabled = False
                        Exit For
                    End If
    
                Next i
    
            End If
    
        End If
        
    End Sub



    http://dailydoseofexcel.com/archives/2018/03/28/userform-textbox-autocomplete/
    ========================================
    autocomplete in a textbox using vba

    abacus enterprises
    abalon construction
    abbarch partnership
    abbey lane homes
    abbey rd. communitas

    If I type 'aba', nothing autocompletes (as it should be).
    If I type 'abac', nothing autocompletes (but it should autocomplete 'abacus enterprises''.
    If I type 'abbey', it does autocomplete, but with 'abbey rd. communitas'
    If I type 'abbey l', it doesn't autocomplete 'abbey lane homes'.

    https://www.mrexcel.com/board/threads/autocomplete-in-a-textbox-using-vba.31107/
    ========================================
    How To Autocomplete A Textbox When Typing In Excel?

    https://www.extendoffice.com/documents/excel/4894-excel-textbox-autocomplete.html
    ========================================
    Auto completar em Excel VBA

    https://www.guiadoexcel.com.br/auto-completar-em-excel-vba/
    ========================================
    AUTOCOMPLETAR SEM MODULO

    https://www.vbmania.com.br/index.php?modulo=detalhe&id=2847
    ========================================
    TextBox Auto Completar...

    https://www.tomasvasquez.com.br/forum/viewtopic.php?t=638
    ========================================
    Preenchimento automático

    https://www.tomasvasquez.com.br/forum/viewtopic.php?t=1894
    ========================================
    Método Range.AutoComplete (Excel)

    https://docs.microsoft.com/pt-br/office/vba/api/excel.range.autocomplete
    ========================================
    Preencher textbox automático - Cadastro de ordem de serviço RRS feed

    https://social.msdn.microsoft.com/Forums/pt-BR/7851ea6b-402c-4cbc-b769-c5270b628497/preencher-textbox-automtico-cadastro-de-ordem-de-servio?forum=vbapt
    ========================================
    Como Preencher A Caixa De Texto Com Base Na Seleção De Combobox No UserForm No Excel?

    https://pt.extendoffice.com/documents/excel/5015-excel-userform-populate-textbox-from-combobox.html
    ========================================
    Lista Suspensa com Autocompletar: Aprenda a criar

    https://exceleasy.com.br/lista-suspensa-com-autocompletar/
    ========================================
    VB.NET - Usando o recurso AutoCompletar

    http://www.macoratti.net/09/02/vbn_aad.htm
    ========================================

    []'s,
    Fabio I.
    • Editado Fabio I sábado, 2 de outubro de 2021 17:34
    sábado, 2 de outubro de 2021 17:32
  • - Fabio muito obrigado ... Vou dar uma analisada nos link´s
    segunda-feira, 4 de outubro de 2021 01:41
  • Rogerio,

         OKay, se você tiver dúvidas, poste aqui. E se eu te ajudei, por favor

    []'s,
    Fabio I.

    segunda-feira, 4 de outubro de 2021 09:58