[Resolvido]Opção Múltiplas "Nenhum e Simples "

Boa tarde pessoal
Gostaria de uma ajuda para resolver esta questão
No meu Lsit gostaria de usar na opção múltiplas (nenhum e simples “MultiSelect”)
Nenhuma por padrão para alterar uma linha e simples “MultiSelect” para deletar um conjunto de linhas
eu pesquisei mais nada que de certo!

https://docs.microsoft.com/pt-br/office/vba/api/access.listbox.multiselect

Olhei o no fórum enteriro com a palavra chave “multiselect”. Esse do fórum mesmo não deu certo, ao chamar a macro ele limpa as variáveis do form.

https://www.maximoaccess.com/t20421-alternar-a-propriedade-multiselect-da-listbox-entre-1-e-2-com-o-vba#150385

Olá Fernando,

Não há necessidade de programação VBA para esta situação.
Altere a propriedade "Seleções Múltiplas" para "Simples"
Quando o usuário for editar o registro da linha selecionada, mesmo que houver mais de 1 linha selecionada, o Access vai considerar a 1a. linha para alteração.
E quando houver exclusão, é só colocar uma rotina de verificação de quais itens foram selecionados para exclusão.

Compartilhe uma cópia do seu bd para análise e solução do problema.

É isso

Alexandre Fim

Não montei ainda estou desenhado o protejo e esbarrei nesta questão do operador seleccionar mais do que uma linha e achar que irá aplicar instrução em todas.

Bom dia

Na ação altera vou contar o número de linhas selecionados se houver mais do que uma linha selecionada emito uma mensagem e limpo os itens selecionado

Dim N, I As Integer
For I = 0 List.ListCount - 1
If List.Selected(I) Then
N = N + 1
End If
Next I

If N > 1 Then
MsgBox “Você deve selecionar somente uma linha!” , vbInformation, "Atenção"
For I = List.ListCount - 1 To 0 Step -1
List.Selected(I) = False
Next I
End If

Olá Fernando,

O código está com erro, e Aproveitei e fiz um ajuste nele.

Código:



    For I = 0 To List.ListCount - 1
        If List.Selected(I) Then
            N = N + 1
        End If
        If N > 1 Then
            MsgBox "Você deve selecionar somente uma linha!", vbInformation, "Atenção"
            Exit For
        End If
    Next I



É isso

Alexandre Fim

Obrigado