[Resolvido]Habilitar todos os Checkbox

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.

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.

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?

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

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

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?

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 ' ' .

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.

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