none
Valores em caixas de texto e de combinação. RRS feed

  • Pergunta

  • Tenho uma caixa de combinação ou de texto, e quero que o valor relacionado na mesma linha de uma consulta automaticamente seja inserido em outra caixa de combinação em um formulário.

    O mesmo quero fazer em um relatório, aonde tenho caixas de texto e quero que elas recebam valores de uma consulta.

    terça-feira, 11 de maio de 2010 20:41

Respostas

  • Bem exnore vamos lá

    Supondo que o que deseja seja sob a plataforma do Excel segue abaixo.

    Para começar crie um form e nele ponha 1 combobox e 2 textbox, denominados combobox1 e textbox1 e textbox2

    preencha as colunas A B C como mostrado abaixo.

     

    a b c
    1 9 17
    2 10 18
    3 11 19
    4 12 20
    5 13 21
    6 14 22
    7 15 23
    8 16 24

    cole o código abaixo na folha do userform1, ( para isso de duplo clique no form, que vc ira para a folha do mesmo).

    Option Explicit
    Public lancto As Integer
    Private Sub ComboBox1_Change()
        lancto = ComboBox1.ListIndex + 2
        Localizar
    End Sub

    Private Sub UserForm_Activate()
    Dim preencher As Boolean
        With ComboBox1
            Range("A1").Select
            preencher = True
        Do While preencher = True
            ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = Empty Then
            preencher = False
     Exit Do
         Else
            ComboBox1.AddItem ActiveCell.Value
        End If
        Loop
        End With
    End Sub
    Sub Localizar()
    With Sheets(1)
            TextBox1.Value = .Cells(lancto, 2).Value
            TextBox2.Value = .Cells(lancto, 3).Value
    End With
    End Sub

     

    Irá observar que ao selecionar o valor no combobox1 as linhas seguintes que correspondem ao número selecionado aparecerão nos textbox1 e textbox2.

    Espero ter ajudado.

    Joilson

     

    segunda-feira, 17 de maio de 2010 02:00

Todas as Respostas

  • Olá

    se você postar o código para que possamos entender o que quer, ajuda bastante.

     

    sds

     

    Joilson

    domingo, 16 de maio de 2010 05:03
  • Na verdade ainda não existe código, pois não sei como fazer.

    Mas o problema é o seguinte.

    Tenho 3 caixas decombinação, e quando escolher o valor na primeira, quero que os valores relacionados a este valor apareção automaticamente nos outros, preenchendo assim um outro formulário chamado fichas.

    Mas a origem das linhas de cada um esta em tabelas diferentes relacionadas entre si.

    É possivel fazer isto via codigo VBA?

     

     

    domingo, 16 de maio de 2010 22:52
  • Bem exnore vamos lá

    Supondo que o que deseja seja sob a plataforma do Excel segue abaixo.

    Para começar crie um form e nele ponha 1 combobox e 2 textbox, denominados combobox1 e textbox1 e textbox2

    preencha as colunas A B C como mostrado abaixo.

     

    a b c
    1 9 17
    2 10 18
    3 11 19
    4 12 20
    5 13 21
    6 14 22
    7 15 23
    8 16 24

    cole o código abaixo na folha do userform1, ( para isso de duplo clique no form, que vc ira para a folha do mesmo).

    Option Explicit
    Public lancto As Integer
    Private Sub ComboBox1_Change()
        lancto = ComboBox1.ListIndex + 2
        Localizar
    End Sub

    Private Sub UserForm_Activate()
    Dim preencher As Boolean
        With ComboBox1
            Range("A1").Select
            preencher = True
        Do While preencher = True
            ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = Empty Then
            preencher = False
     Exit Do
         Else
            ComboBox1.AddItem ActiveCell.Value
        End If
        Loop
        End With
    End Sub
    Sub Localizar()
    With Sheets(1)
            TextBox1.Value = .Cells(lancto, 2).Value
            TextBox2.Value = .Cells(lancto, 3).Value
    End With
    End Sub

     

    Irá observar que ao selecionar o valor no combobox1 as linhas seguintes que correspondem ao número selecionado aparecerão nos textbox1 e textbox2.

    Espero ter ajudado.

    Joilson

     

    segunda-feira, 17 de maio de 2010 02:00
  • Sim é mais ou menos isto mas o meu problema é no Access.

    Vou tentar alterar os valores Cells pelos nomes das caixas de texto.

    Obrigado

     

    segunda-feira, 17 de maio de 2010 23:57