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]LOOP - Cx Seleção Subformulario

    Compartilhe

    Ramon.mattos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 09/05/2013

    [Resolvido]LOOP - Cx Seleção Subformulario

    Mensagem  Ramon.mattos em Sex 28 Fev 2014, 16:04

    Boa tarde.
    Tenho um formulário ao qual contem uma caixa de seleção camada “Selecionar Todos”. Ao clicar na caixa, todos os itens da coluna Habilitado presente no subformulario recebem o valor de -1. Pois vinculei a cx de seleção uma consulta Atualizar (UpDate).
    Porem configurei meu subformulario como folha de dados, pois desejo utilizar os filtros já disponíveis nas colunas. (Começa com..., Contem..., etc)
    Meu desejo é:
    Após eu filtrar os itens desejados, eu clique num botão e habilite somente os itens filtrados.
    Pensei em algo como um loop.....é possível fazer?
    Obrigado pela ajuda de todos!!!!

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]LOOP - Cx Seleção Subformulario

    Mensagem  HARYSOHN em Sex 28 Fev 2014, 23:12

    Boas Ramon.. creio ser possível sim..

    Envie-nos um modelo conciso do bd para que possamos ver isto pra ti.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Ramon.mattos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 09/05/2013

    Re: [Resolvido]LOOP - Cx Seleção Subformulario

    Mensagem  Ramon.mattos em Sab 01 Mar 2014, 13:57

    Consegui resolver com o seguinte metodo.....não sei se no futuro poderá ficar lento.....

    Private Sub SelectAll_AfterUpdate()

    Dim item As Recordset

    Set item = Me.Tabela1_subformulário.Form.Recordset

    If Me.SelectAll.Value = 0 Then
    item.MoveFirst
    Do
    Me.Tabela1_subformulário.Form.TICK.Value = 0
    item.MoveNext
    Loop Until item.EOF
    item.MoveFirst
    Else: Me.SelectAll.Value = -1
    item.MoveFirst
    Do
    Me.Tabela1_subformulário.Form.TICK.Value = -1
    item.MoveNext
    Loop Until item.EOF
    item.MoveFirst
    End If
    End Sub

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]LOOP - Cx Seleção Subformulario

    Mensagem  HARYSOHN em Sab 01 Mar 2014, 15:40

    Esqueceu-se de colocar o resolvido no tópico, desta vez eu coloco.

    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 15:33