[Resolvido]Listbox com Seleção Múltipla para executar uma consulta de acréscimo em outra tabela.

Olá Feras de Plantão, muito boa tarde.

Possuo uma tabela de cadastro de funcionários com os campos:

Funcionário - Tipo Texto
Matrícula - Tipo número
Setor - Tipo Texto

Uma outra tabela exatamente com os mesmos campos. O que pretendo é que baseado num formulário eu tenha uma Listbox vinculada à primeira tabela e que por seleção múltipla eu acrescente tais itens na segunda tabela.

Obs: Meu Access é 2003

Abraços, fico aguardando a prestimosa ajuda que sempre obtenho dos amigos deste Fórum.

WSenna

Da uma olhada nesse link https://www.maximoaccess.com/t23899-resolvidocomparar-registros-em-duas-tabelas
Acho que pode clarear as idéias.

Olá se entendi bem seria selecionar uns registros numa lista e salva-los em outra tabela. "Apenas os selecionados" correto?

Código:

Private Sub btnAdd_Click()

    Dim i As Integer
    
        For i = 0 To Me.lst1.ListCount - 1
            
            If lst1.Selected(i) Then
             CurrentDb.Execute "Insert Into tbl2 (Nome,Sobrenome) Values ('" & Me.lst1.Column(1, i) & "','" & Me.lst1.Column(2, i) & "')"
            End If
        
        Next i
        
        Me.lst2.Requery
        
End Sub


Olá Feras, boa tarde.

Foram perfeitas as soluções apresentadas, contudo a que melhos atendeu ao meu pedido foi a do Amigão Formiga.

Imensamente grato pela ajuda dos Mestres.

WSenna