ME AJUDEM NAO SEI MAIS O QUE FAZER

USUARIO.EXCLUIDOS 16/08/2007 21:44:49
#231259
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....

USUARIO.EXCLUIDOS 16/08/2007 22:10:56
#231263
Para salvar apenas o último

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NOme") = l1.List(l1.listcount -1)

USUARIO.EXCLUIDOS 16/08/2007 22:41:01
#231269
muito obrigado amigo carlos...
consegui executar com perfeicao
ESLEYSANCHES 16/08/2007 23:05:03
#231275
Amigo se sua dúvida foi solucionada por favor encerre o tópico e pontue a pessoa que te ajudou !!

Abraços !!
Tópico encerrado , respostas não são mais permitidas