MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Selecionar "itens acima" em um formulario contínuo

    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 31/08/2012

    Selecionar "itens acima" em um formulario contínuo Empty Selecionar "itens acima" em um formulario contínuo

    Mensagem  Chamon Consultoria em Ter 25 Jun 2019, 3:05 pm

    Boa tarde!

    Bd em Access 2010.

    Em um formulário contínuo, seria possível ajustar uma função para selecionar os demais itens a partir de um item selecionado?

    Exemplo:

    O formulário tem uma lista de 20 registros. Eu seleciono o item 9. Clico no botão "Marcar Todos Acima" e a partir do 9 até o 20, todos os registros seriam selecionados (Marcando a caixa "Selec").

    Segue ilustração e arquivo para testes.

    Desde já, agradeço.
    Anexos
    Selecionar "itens acima" em um formulario contínuo AttachmentFiltrar Produtos 3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (183 Kb) Baixado 4 vez(es)
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 26/11/2013

    Selecionar "itens acima" em um formulario contínuo Empty Re: Selecionar "itens acima" em um formulario contínuo

    Mensagem  delsonk em Dom 07 Jul 2019, 7:37 am

    Bom dia!

    Veja se dessa forma atende a sua necessidade!

    Abraço, Delson
    Anexos
    Selecionar "itens acima" em um formulario contínuo AttachmentFiltrar Produtos 3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (326 Kb) Baixado 19 vez(es)
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 226
    Registrado : 31/08/2012

    Selecionar "itens acima" em um formulario contínuo Empty Re: Selecionar "itens acima" em um formulario contínuo

    Mensagem  Chamon Consultoria em Seg 08 Jul 2019, 9:03 pm


    Delson, excelente seu ajuste! É quase isso.

    Mas por questões de segurança, seria importante que, ao filtrar um grupo no campo "txtCodGrupo", a marcação dos itens selecionados acima, ficasse restrita apenas aos itens filtrados.

    Desculpe a demora em responder, mas estava e ainda estou tentando fazer mais esse ajuste. Mas por enquanto, sem sucesso.

    Muito obrigado pelo ajuste e caso tenha alguma ideia para mais este, ficarei grato.

    Abraço!
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 26/11/2013

    Selecionar "itens acima" em um formulario contínuo Empty Re: Selecionar "itens acima" em um formulario contínuo

    Mensagem  delsonk em Ter 09 Jul 2019, 7:26 am

    Bom dia,

    veja que no código, apesar de estar como comentário, tem o código para aplicar o filtro. Veja se atende as necessidades e faça os ajustes necessários!

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Produtos")
       VFinal = Me.TxtVFinal
       VInicial = Me.TxtVInicial
       'Me.Filter = "tbl_Produtos.CODPRO >= [Formulários]![ListaProdutos]![TxtIdCodPro]" 'seleciona o filtro"
       'Me.FilterOn = True

       'If rs.RecordCount > 0 Then
       'rs.MoveNext
        '   Contador = rs.RecordCount
        '   rs.MoveFirst
       'End If
       SysCmd acSysCmdInitMeter, "Realizando as alterações, aguarde...", Contador
       CurrentDb.Execute "UPDATE tbl_Produtos SET tbl_Produtos.SELECIONAR = -1 WHERE (((tbl_Produtos!CODPRO) Between " & [VInicial] & " and " & [VFinal] & "));"
       Me.Requery
       MsgBox " Total de: " & Me.TxtVFinal - Me.TxtVInicial & " registro(s) marcado(s)", vbInformation, "Concluído"
       TxtVInicial = ""
    Exit_TratareiErro:
       Exit Sub
    TratareiErro:
       MsgBox "Ocorreu uma falha neste processamento." _
            & vbCrLf & "Trata-se do erro n°: " & Err.Number _
            & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Erro inesperado"
       Exit Sub

       Me.Requery
       Me.Repaint

    Abrç, Delson

    Conteúdo patrocinado

    Selecionar "itens acima" em um formulario contínuo Empty Re: Selecionar "itens acima" em um formulario contínuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 17 Set 2019, 11:14 am