Inserir dados através de Listbox
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |