MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Desmarcar caixa de seleção em formulário contínuo

    Compartilhe

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Desmarcar caixa de seleção em formulário contínuo

    Mensagem  Chamon Consultoria em Sex 12 Ago 2016, 04:58

    Boa noite!

    Bd em access 2010.


    Formulário contínuo possui a caixa de seleção chamada "Detalhar".
    Pode ser selecionado um ou vários registros para visualização.
    O objetivo é desmarcar todos os registros marcados.
    Encontrei no Fórum um código que funcionou... ele marca ou desmarca todos os registros (o que é muito bom). Porém como se trata de um formulário contínuo, ele percorre todos os registros, tanto para marcar, quanto para desmarcar, o que demora um certo tempo, por causa da quantidade de registros.
    Gostaria de um código que fizesse esse processo de forma instantânea, ou seja, que marque ou desmarque tudo de uma vez.
    Desde já agradeço!

    Segue código que encontrei no Fórum:

    Dim x As Long
    x = Me.CurrentRecord
    Me.Recordset.MoveFirst
    If Me.Detalhar.Value = False Then
    Do While Not Me.Recordset.EOF
    Me.Detalhar.Value = True
    Me.Recordset.MoveNext
    Loop
    Me.Recordset.MoveFirst
    If x > 1 Then Me.Recordset.Move x - 1

    ElseIf Me.Detalhar.Value = True Then

    x = Me.CurrentRecord
    Me.Recordset.MoveFirst
    Do While Not Me.Recordset.EOF
    Me.Detalhar.Value = False
    Me.Recordset.MoveNext
    Loop
    Me.Recordset.MoveFirst
    If x > 1 Then Me.Recordset.Move x - 1
    End If

    Convidado
    Convidado

    Re: [Resolvido]Desmarcar caixa de seleção em formulário contínuo

    Mensagem  Convidado em Sex 12 Ago 2016, 08:15

    Olá!

    Experimente utilizar a consulta de ação UPDATE.  Algo assim:

    Para marcar todos:

    currentdb.execute "UPDATE NomeDaTabela SET detalhar = -1;"
    me.requery

    Para desmarcar todos:

    currentdb.execute "UPDATE NomeDaTabela SET detalhar = 0;"
    me.requery

    Aguadamos

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Desmarcar caixa de seleção em formulário contínuo

    Mensagem  Chamon Consultoria em Sex 12 Ago 2016, 12:56

    Exatamente isso Avelino.

    Muito obrigado!

      Data/hora atual: Ter 06 Dez 2016, 05:45