Inserir dados através de Listbox
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |
