MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 18/04/2018

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

    Mensagem  fernando rodrigo zanchini 26/8/2022, 17:21

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 26/8/2022, 18:55

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Opção Múltiplas "Nenhum e Simples " Setinf11
    Sistemas e Tecnologia Ltda
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 18/04/2018

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

    Mensagem  fernando rodrigo zanchini 26/8/2022, 19:16

    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.


    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 18/04/2018

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

    Mensagem  fernando rodrigo zanchini 5/9/2022, 13:10

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 5/9/2022, 13:23

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Opção Múltiplas "Nenhum e Simples " Setinf11
    Sistemas e Tecnologia Ltda
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 18/04/2018

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

    Mensagem  fernando rodrigo zanchini 5/9/2022, 15:01

    Obrigado
    cheers cheers cheers cheers cheers cheers cheers cheers

      Data/hora atual: 6/10/2022, 07:37