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


3 participantes

    [Resolvido]Habilitar todos os Checkbox

    avatar
    Edinho_Monteiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/03/2016

    [Resolvido]Habilitar todos os Checkbox Empty [Resolvido]Habilitar todos os Checkbox

    Mensagem  Edinho_Monteiro 10/3/2016, 22:18

    Olá, é minha primeira vez perguntando algo no fórum apesar de sempre o acompanhar. Pesquisei sobre o tema aqui e não encontrei.

    Eu estou desenvolvendo um db pra cadastrar os alunos e nele cada curso terá sua tabela, minha dúvida é a seguinte:
    Caso a turma seja desativada tem como ao deschecar (deixar como falso) um Checkbox automaticamente ele deschecar (marcar como falso) todos os outros da tabela e vice-versa?

    Muito obrigado.


    Última edição por Edinho_Monteiro em 11/3/2016, 16:59, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  FabioPaes 10/3/2016, 22:52

    Veja o exemplo que postei aqui na mensagem nº 08. Baixa, e veja o Formulario FrmSaida, veja o comando que ele executa ao clicar, é o que precisa... somente precisa adaptar pra sua realidade...

    https://www.maximoaccess.com/t25319-resolvidoconsulta-retornar-ultimo-registro

    So lembrando que: quando é campo do tipo Sim/nao (checkBox) o valor que tem la é: 0 para desmarcado e -1 para marcado.
    avatar
    Edinho_Monteiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/03/2016

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  Edinho_Monteiro 11/3/2016, 01:00

    Olá, eu tentei adaptar o código mas não dá certo, o access fica só apresentando erro na macro, tentei de várias maneiras e nada, tem outro método?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  FabioPaes 11/3/2016, 01:33

    Nao conheço... mas poste o Codigo que esta utilizando, e posta tbem a tela do erro pra ver se acho o erro...
    avatar
    Edinho_Monteiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/03/2016

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  Edinho_Monteiro 11/3/2016, 04:18

    O código eu fiz assim:

    Private Sub Comando56_Click()
    If MsgBox("Deseja alterar os dados?", vbYesNo) = vbYes Then
    CurrentDb.Execute "UPDATE ARTES SET ARTES.Ativo = '-1'"
    Else

    End If
    End Sub
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  Gabriel Brunichaki 11/3/2016, 13:55

    Bom dia!

    Se tratando de valores numéricos, não se utiliza apóstrofes ou aspas, pois o SQL vai entender que é uma String. Se o valor do seu campo é Sim/Não vai dar erro mesmo.

    CurrentDb.Execute "UPDATE ARTES SET ARTES.Ativo = '-1'"

    Será este o problema?


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  FabioPaes 11/3/2016, 15:09

    O Gabriel B esta certo amigo, o correto é assim:

    CurrentDb.Execute "UPDATE ARTES SET ARTES.Ativo = -1 "

    Agora, voce tera que colocar uma condição WHERE pois se rodar esse comando dessa forma, ele irá MARCAR todos os registros da tabela. Claro se esse for seu Objetivo...

    Se não for esse o objetivo deve ficar mais ou menos assim:



    CurrentDb.Execute "UPDATE ARTES SET ARTES.Ativo = 0 WHERE IdCurso= " & Me.txtIdCurso & " "

    IdCurso e nome do campo da tabela;
    txtIdCurso é o campo do formulario que mostra o IdCurso.

    Outra coisa, Para desmarcar a o valor correto é 0 (zero), para marcar -1 e nao necessita estar entre " " ou ' ' .
    avatar
    Edinho_Monteiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/03/2016

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  Edinho_Monteiro 11/3/2016, 16:52

    Pessoal muito obrigado, me bati muito com esse código, descobri que o erro mostrado no print era o botão ou formulário, pq tentei deixar só uma msgbox e dava erro também, então criei um novo banco em branco pra testar e deu certo logo de primeira, acabei excluindo o form e criei outro, agora tá funcionando.

    Gabriel B, eu não sabia sobre as aspas nos números, ajudou mesmo essa informação.
    Fabiopaes, eu deixei sem WHERE mesmo pra que desative todos os alunos quando a turma for desativada.

    Aproveitei e já fiz um botão pra ativar também.

    O código ficou assim:

    Private Sub Comando26_Click()
    'Desativar Turma

    If MsgBox("Deseja Desativar a turma?", vbYesNo, "Atenção!") = vbYes Then
    CurrentDb.Execute "UPDATE ARTES SET Ativo = 0 "

    Else

    End If
    End Sub

    Private Sub Comando53_Click()
    'Ativar Turma
    If MsgBox("Deseja Ativar a turma?", vbYesNo, "Atenção!") = vbYes Then
    CurrentDb.Execute "UPDATE ARTES SET Ativo = -1 "

    Else

    End If
    End Sub

    Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  FabioPaes 11/3/2016, 19:25

    Maravilha, que bom que deu certo! Ate a proxima!

    Conteúdo patrocinado


    [Resolvido]Habilitar todos os Checkbox Empty Re: [Resolvido]Habilitar todos os Checkbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:38