... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

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

 


 

 


Não há comentário

Envie seu comentário: