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]Selecione tudo com campo sim não

    Compartilhe

    Maria José Soares
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 290
    Registrado : 23/11/2011

    [Resolvido]Selecione tudo com campo sim não

    Mensagem  Maria José Soares em Sab 18 Jan 2014, 00:16

    Gente boa noite..

    Eu tenho um formulário onde filtro dados entre datas em um sub formulário e ao filtrar esses dados tenho no formulário principal um campo do tipo sim/não... Bem! Eu queria que após filtrar esses dados ao clicar no botão sim/não no formulário principal ele selecionasse todas as informações filtradas... Será que alguém pode me dar mais essa forçinha??? Eu achei algo aqui no forum mas não contemplou minha necessidade...

    Desde já agradeço muito a atenção de todos...


    Bjão

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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Selecione tudo com campo sim não

    Mensagem  criquio em Sab 18 Jan 2014, 00:53

    Tente algo assim no evento "Ao clicar" ou no evento "Após atualizar" do Sim/Não do formulário principal:

    Código:
    Me.NomeDoSimNãoDoSubForm.Value = Me.NomeDoSimNãoDoFormPrincipal.Value

    Se funcionar a contento, ao marcar o Sim/Não principal, marcará todos os do subform e ao desmarcar o principal, deverá desmarcar todos os do subform.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Maria José Soares
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 290
    Registrado : 23/11/2011

    Selecione tudo com campo sim não

    Mensagem  Maria José Soares em Sab 18 Jan 2014, 11:49

    Criquio bom dia querido!!!!

    Criquio eu tentei da forma que vc me orientou e deu o erro abaixo. Mas ai fiquei pensando! Será que eu não deveria orientar ao nome do subformulario e depois ao nome do botão e todos com a "!" (Me!sub_formulário!sim.value) ai deu certo, mas em partes por que so seleciona a primeira linha...
    O que será que to fazendo de errado...

    Valeu pela atenção querido...

    Bjão

    [Você precisa estar registrado e conectado para ver esta imagem.]


    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Selecione tudo com campo sim não

    Mensagem  criquio em Sab 18 Jan 2014, 12:39

    Talvez assim:

    Código:
        Dim rs As Recordset

        Set rs = Me.query_subformulário.Form.RecordsetClone

        Do While Not rs.EOF
            rs.Edit
            rs!sim.Value = Me.SelTodos.Value
            rs.Update
            rs.MoveNext
        Loop

        rs.Close
        Set rs = Nothing

        Me.query_subformulário.Form.RecordSource = Me.query_subformulário.Form.RecordSource


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Maria José Soares
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 290
    Registrado : 23/11/2011

    Selecione tudo com campo sim não

    Mensagem  Maria José Soares em Sab 18 Jan 2014, 16:14

    Criquio ta resolvidíssimo... Muito bom... Valeu querido... Muito obrigada mesmo...

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Selecione tudo com campo sim não

    Mensagem  criquio em Sab 18 Jan 2014, 23:15

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Sab 03 Dez 2016, 04:34