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


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

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 12/8/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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 12/8/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
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 12/8/2016, 12:56

    Exatamente isso Avelino.

    Muito obrigado!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:33