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

    [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!!!!
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    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: Qua 13 Dez 2017, 09:22