SELECIONAR PELO MENOS UM ITEM NO CHECKBOX

EDSON.PEREIRA 16/07/2024 22:04:10
#503411
Olá a todos!...
Estou usando ListView1 com Checked
Queria trazer uma mensagem quando não estiver marcado pelo menos um item.
exemplo não deu certo

For Each ObjLstItm In Me.ListView2.ListItems
If ObjLstItm.Checked = False Then
AtivarMsg True
CxMsg.ButCancel(0) = True
CxMsg.Abrir "SELECIONE PELO MENOS UM ITEM " & vbCrLf & "", [3 But], RmInformação, "ERRO DE TEMPO DE EXECUÇÃO:"
CxMsg.ButCancel(0) = False
AtivarMsg False
End If
Next

Desde já, agradeço
NILSONTRES 17/07/2024 15:41:01
#503413 Resposta escolhida
Você tem que validar depois do For.
dim vencontrou as boolean
For Each ObjLstItm In Me.ListView2.ListItems
If ObjLstItm.Checked = true Then
vencontrou=true
exit for
end if
next
if vencontrou=false then
CxMsg.Abrir "SELECIONE PELO MENOS UM ITEM " & vbCrLf & "", [3 But], RmInformação, "ERRO DE TEMPO DE EXECUÇÃO:"
CxMsg.ButCancel(0) = False
end if
EDSON.PEREIRA 17/07/2024 16:21:23
#503414
Muito Obrigado NILSONTRES, deu certo.
Valeuuuu
NILSONTRES 18/07/2024 19:35:27
#503424
Show.
EDSON.PEREIRA 13/09/2024 16:40:27
#503555
Teste!
EDSON.PEREIRA 13/09/2024 16:40:51
#503556
Teste!
Tópico encerrado , respostas não são mais permitidas
Voltar