none
Como seleccionar um dado na ListBox de um formulário e Inserir em uma textBox de outro formulário em Access? RRS feed

  • Pergunta

  • Bom dia carissimos!

    por favor preciso de ajuda, como pegar o dado seleccionado em uma listbox de um formulário e inserir em uma textbox de outro formulário usando o Access?

    Obrigado e conto convosco...


    Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

    sexta-feira, 23 de outubro de 2015 08:20

Respostas

  • Olá Daniel, é bem simples

    Insira o código abaixo no evento ao clicar da caixa de listagem

    Substitua os nomes da caixa de listagem (Lista0), da caixa de texto (texto2) e do outroformulário.

    Private Sub Lista0_Click()
    
    If Me.Lista0.ListIndex > 0 Then
        Me.Texto2.Value = nomedooutroformulario.Lista0
    End If
    
    End Sub

    • Sugerido como Resposta André Santo sexta-feira, 23 de outubro de 2015 15:20
    • Marcado como Resposta danielbeneditorosa sábado, 24 de outubro de 2015 09:47
    sexta-feira, 23 de outubro de 2015 15:20

Todas as Respostas

  • Olá Daniel, é bem simples

    Insira o código abaixo no evento ao clicar da caixa de listagem

    Substitua os nomes da caixa de listagem (Lista0), da caixa de texto (texto2) e do outroformulário.

    Private Sub Lista0_Click()
    
    If Me.Lista0.ListIndex > 0 Then
        Me.Texto2.Value = nomedooutroformulario.Lista0
    End If
    
    End Sub

    • Sugerido como Resposta André Santo sexta-feira, 23 de outubro de 2015 15:20
    • Marcado como Resposta danielbeneditorosa sábado, 24 de outubro de 2015 09:47
    sexta-feira, 23 de outubro de 2015 15:20
  • Bom dia André e muito obrigado pela resposta.

    na verdade é o seguinte: eu tenho um formulário (MovimentoCaixa) e nele tem um SubFormulario (Detalhes Movimento Caixa) e no SubFormulario tem uma textbox  (CodigoContaPlano).

    Nesta textbox no Evento KeyDown, usei o seguinte código para abrir o formulário com a lista do plano de contas:

    Private Sub CodigoContaPlano_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF2 Then
    CodigoContaPlano.SetFocus

    DoCmd.OpenForm "PlanoContasLista"
    KeyCode = 0

    End If

    este código abre a lista de contas no formulário com as contas, o que eu pretendo é selecionar uma conta e ao premir a tecla Enter preenche a textbox com o código da conta selecionada e fecha o formulário Lista Plano de contas.

    Como faço isso?

    Obrigado


    Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

    sábado, 24 de outubro de 2015 09:47
  • Bom dia André,

    ja resolvi a situação, vinculei o campo a uma listbox e o usuário vai so escolhendo na medida em que clica neste campo.

    obrigado


    Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server

    quarta-feira, 28 de outubro de 2015 09:40