ME AJUDEM NAO SEI MAIS O QUE FAZER
ola amigos estou com um problema em salvar itens de Uma LISTA , eu consegui fazer qeu ele salve a lista toda o codigo e esse:
Dim i As Integer
For i = 0 To l1.ListIndex
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NOme") = l1.List(i)
next
end sub
so que esta salvando sempre a lista novamente, eu gostaria de saber se tem jeito de salvar apenas o ultimo item da lista.
desde ja agradeco a todos pela atencao....
Dim i As Integer
For i = 0 To l1.ListIndex
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NOme") = l1.List(i)
next
end sub
so que esta salvando sempre a lista novamente, eu gostaria de saber se tem jeito de salvar apenas o ultimo item da lista.
desde ja agradeco a todos pela atencao....
Para salvar apenas o último
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NOme") = l1.List(l1.listcount -1)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NOme") = l1.List(l1.listcount -1)
muito obrigado amigo carlos...
consegui executar com perfeicao
consegui executar com perfeicao
Amigo se sua dúvida foi solucionada por favor encerre o tópico e pontue a pessoa que te ajudou !!
Abraços !!
Abraços !!
Tópico encerrado , respostas não são mais permitidas