Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Inserir dados através de Listbox

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

Usuário José:

Tenho uma Listbox com os seguintes campos:

campo_1 (numérico)

campo_2 (data)

campo_3 (texto)

Ao selecionar alguns Itens na Listbox, ela terá que inserir os dados selecionados em uma tabela.

Suporte:

José, fiz um pequeno exemplo. Segue o código utilizado:

Private Sub btAtualizar_Click()
Dim sel, strSql As String, j As Boolean
For Each sel In Me!Lista.ItemsSelected
    strSql = "INSERT INTO tblTeste2 (NumOcorrencia,DataContato,Ocorrencia) Values ('"
    strSql = strSql & Me!Lista.Column(0, sel)
    strSql = strSql & "','" & Me!Lista.Column(1, sel)
    strSql = strSql & "','" & Me!Lista.Column(2, sel) & "');"
    CurrentDb.Execute strSql
    j = True
Next
If j = False Then
    MsgBox "Selecione itens da lista...", vbInformation, "Aviso"
Else
    MsgBox "Registros adicionados na tabela 2 com sucesso...", vbInformation, "Aviso"
End If
End Sub

Usuário José:

Solução atendida!

Obrigado!

Download

Insert_listbox.zip

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |