TODOS ITENS DO LISTVIEW
Olá, tenho 2 listview (vb6/access) em um form. O primeiro lista os nomes dos funcionarios. Com duploclique em um nome carrega informações deste funcionario no segundo listview (que tem chekboxs). Alguns funcionarios carregam uma linha; outros 2; 3 e assim por diante. Acima dos listviews tenho um botão que altera o status destas informações do segundo listview na tabela: de codstatus= 1 para codstatus = 2. Ao selecionar todos chekbox ou alguns ,o botão executaria uma rotina que atualizaria os campos codstatus de todas as linhas do listview ou só das que foram marcadas. Só que do jeito que fiz até agora só consigo atualizar 1 de cada vez . Ele atualiza, tenho de fechar o form, abrir executar o botão,....etc.
Segue o que consegui até agora:
Private Sub btnMover_Click()
MoveHistorico
End Sub
Sub MoveHistorico()
For i = 1 To ListView2.ListItems.Count
If ListView2.ListItems(i).Checked = True Then
frmEditaCertificado.txtCodStatus.Text = 2
conn.Execute [Ô]UPDATE tbCertificado set [Ô] & _
[Ô]codStatus =[ô][Ô] & frmEditaCertificado.txtCodStatus.Text & [Ô][ô][Ô] & _
[Ô]WHERE codCertificado =[Ô] & ListView2.SelectedItem.Text
MsgBox [Ô]Alteração efetuada com sucesso.[Ô]
End If
Next i
ListView2.ColumnHeaders.Clear
ListView2.ListItems.Clear
End Sub
Segue o que consegui até agora:
Private Sub btnMover_Click()
MoveHistorico
End Sub
Sub MoveHistorico()
For i = 1 To ListView2.ListItems.Count
If ListView2.ListItems(i).Checked = True Then
frmEditaCertificado.txtCodStatus.Text = 2
conn.Execute [Ô]UPDATE tbCertificado set [Ô] & _
[Ô]codStatus =[ô][Ô] & frmEditaCertificado.txtCodStatus.Text & [Ô][ô][Ô] & _
[Ô]WHERE codCertificado =[Ô] & ListView2.SelectedItem.Text
MsgBox [Ô]Alteração efetuada com sucesso.[Ô]
End If
Next i
ListView2.ColumnHeaders.Clear
ListView2.ListItems.Clear
End Sub
Alterei um pouco
Sub MoveHistorico()
For Each itemList In ListView2.ListItems
If itemList.Checked = True Then
frmEditaCertificado.txtCodStatus.Text = 2
conn.Execute [Ô]UPDATE tbCertificado set [Ô] & _
[Ô]codStatus =[ô][Ô] & frmEditaCertificado.txtCodStatus.Text & [Ô][ô][Ô] & _
[Ô]WHERE codCertificado =[Ô] & itemList.Text
[ô] [txt-color=#e80000]MsgBox [Ô]Alteração efetuada com sucesso.[Ô] [/txt-color] Não é muito aconselhável deixar deste jeito
End If
Next
[ô]ListView2.ColumnHeaders.Clear [txt-color=#e80000]Limpa tudo os dois.[/txt-color]
[ô]ListView2.ListItems.Clear
End Sub
Sub MoveHistorico()
For Each itemList In ListView2.ListItems
If itemList.Checked = True Then
frmEditaCertificado.txtCodStatus.Text = 2
conn.Execute [Ô]UPDATE tbCertificado set [Ô] & _
[Ô]codStatus =[ô][Ô] & frmEditaCertificado.txtCodStatus.Text & [Ô][ô][Ô] & _
[Ô]WHERE codCertificado =[Ô] & itemList.Text
[ô] [txt-color=#e80000]MsgBox [Ô]Alteração efetuada com sucesso.[Ô] [/txt-color] Não é muito aconselhável deixar deste jeito
End If
Next
[ô]ListView2.ColumnHeaders.Clear [txt-color=#e80000]Limpa tudo os dois.[/txt-color]
[ô]ListView2.ListItems.Clear
End Sub
Que estranho, lembro que abri este tópico, mas não estava conseguindo visualisa-lo achando que não tinha conseguido envia-lo pois estava tendo problemas com minha internet. Mas sendo assim OMAR2011, testei aqui e funcionou, vou encerrar então...valeu!!!
Tópico encerrado , respostas não são mais permitidas