MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Marcar-desmarcar checkBox-caixa de seleção no formulário

    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Melhorar o código para oferecer outra opção

    Mensagem  emacsabino em 16/2/2012, 16:48

    Boa tarde a todos! Estou com o seguinte problema. Tenho um formulário em que tem um botão que ao clicar ele executa o código abaixo:
    Dim Rst As DAO.Recordset
    Set Rst = Me.RecordsetClone
    Do While Not Rst.EOF
    Rst.Edit
    Rst("Escolher") = True
    Rst.Update
    Rst.MoveNext
    Loop
    Set Rst = Nothing


    Ao executar esse código ele marca todas as caixas de seleção do formulário que vem de uma consulta. Só que quando clico de novo ele não desmarca. Então eu queria que ao clicar marcasse tudo, mas que ao clicar de novo ele desmarcasse todos. Acho que deve ser só algo a mais que tem que ser colocado no código. Se alguém puder me ajudar eu agradeço. Outra coisa que percebi é que ele só marca tudo uma vez, se eu começar a desmarcar algumas e depois clicar para marcar tudo de novo, ele não marca
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  criquio em 16/2/2012, 16:54

    Olá! Veja se é assim que quer:

    Dim Rst As DAO.Recordset
    Set Rst = Me.RecordsetClone
    Do While Not Rst.EOF
    Rst.Edit
    If rst("Escolher") = False Then
    Rst("Escolher") = True
    Else
    Rst("Escolher") = False
    Rst.Update
    Rst.MoveNext
    Loop
    Set Rst = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 16/2/2012, 17:05

    Grande Críquio, eu coloquei o código só que agora apareçeu um erro.
    "Erro de compilação
    Loop sem Do"
    O que será?
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  criquio em 16/2/2012, 17:15

    Vou deixar para você descobrir essa amigão. Verifique bem as alterações. Lembre-se que tem coisas que devem ser fechadas depois de usadas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 16/2/2012, 17:20

    Na minha opnião, o que poderia está aberto e não foi fechado, foi o If
    Dim Rst As DAO.Recordset
    Set Rst = Me.RecordsetClone
    Do While Not Rst.EOF
    Rst.Edit
    If rst("Escolher") = False Then
    Rst("Escolher") = True
    Else
    Rst("Escolher") = False
    Rst.Update
    Rst.MoveNext
    End If(eu coloquei isso agora)
    Loop
    Set Rst = Nothing

    No código alterado não tinha. Só que ao fechar o IF agora, quando cliquei, travou foi tudo
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  criquio em 16/2/2012, 17:28

    Tente colocá-lo antes do Update.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 16/2/2012, 17:35

    Coloquei Críquio e ficou assim:
    Dim Rst As DAO.Recordset
    Set Rst = Me.RecordsetClone
    Do While Not Rst.EOF
    Rst.Edit
    If Rst("Escolher") = False Then
    Rst("Escolher") = True
    Else
    Rst("Escolher") = False
    End If
    Rst.Update
    Rst.MoveNext
    Loop
    Set Rst = Nothing


    Só que agora, ele voltou a agir como antes, ele marca tudo, mas se eu clicar de novo ele não desmarca nada, e se eu desmarcar algumas caixas e clicar no botão ele não marca mais nada. Lembrando que o formulário é de uma consulta e os registros são navegados através do formulário passando de um registro para outro
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  criquio em 16/2/2012, 17:37

    Esse campo Sim/Não existe na tabela, certo? Nesses casos, eu costumo editar o campo diretamente na tabela e atualizo o formulário para exibir a alteração.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 16/2/2012, 17:44

    Só que nesse mesmo formulário ele tem um evento que ao carregar, ele desmarca todas as caixas na tabela CurrentDb.Execute "UPDATE Carros SET Carros.Escolher = 0" que é para justamente eu ter a opção de quando abrir esse formulário eu escolher apenas alguns registros ou selecionar todos. Então eu nem precisaria editar para atualizar o formulário pois ele já abre com todos desmarcados
    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 16/2/2012, 18:22

    Críquio, eu percebi o seguinte depois que coloquei seu código. Que ao clicar no botão, as caixas que eu marquei manualmente no formulário, ele desmarca, marcando o restante. Agora se eu não marco nenhuma ele marca todos, mas não desmarca mais.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  JPaulo em 21/2/2012, 13:46

    Veja o simples;




    Private Sub SeuBotão_Click()
    Dim x As Long
    x = Me.CurrentRecord
    Me.Recordset.MoveFirst
    If Me.Escolher.Value = False Then
    Do While Not Me.Recordset.EOF
    Me.Escolher.Value = True
    Me.Recordset.MoveNext
    Loop
    Me.Recordset.MoveFirst
    If x > 1 Then Me.Recordset.Move x - 1

    ElseIf Me.Escolher.Value = True Then

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  JPaulo em 21/2/2012, 13:50

    Se não for um formulario continuo, veja mais simples ainda;

    http://maximoaccess.forumeiros.com/t5435-resolvidomarcar-desmarcar-todas-caixas-de-selecao-no-formulario



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  JPaulo em 22/2/2012, 15:50

    E ae ?

    Funfou ????


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Instruções SQL como utilizar...
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  Dilson em 22/2/2012, 20:34

    Modificado titulo do tópico para facilitar futuras buscas ao assunto em foco.
    avatar
    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  emacsabino em 22/2/2012, 21:29

    JPAULO, funfou bacana. Muito obrigado!! Eu já tinha encontrado aqui uma outra solução, mas vou usar a sua pois ficou perfeito. Valeu amigos do Forum
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty Re: [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  JPaulo em 22/2/2012, 22:23

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Folder_announce_new Instruções SQL como utilizar...
    avatar
    Matheus Bohn
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 56
    Registrado : 28/10/2020

    [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário Empty [Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

    Mensagem  Matheus Bohn em 8/11/2020, 13:13

    JPaulo, ficou excelente seu código, também fiz uso dele.
    Só uma pergunta, e se eu quisesse selecionar somente os itens que estão filtrados no subformulário, e não toda relação?

      Data/hora atual: 29/11/2020, 20:25